Søg
Avatar billede remo27 Nybegynder
08. april 2003 - 08:24 Der er 11 kommentarer og
1 løsning

hvem kan hjælpe med dette upload script

Jeg har fundet dette upload script til billeder, men jeg vil gerne have lavet det lidt om således at man kan uploade alle slags filer i  en mappe der hedder download, der skal være en begrænsning på 2 MB. 

Hvem kan hjælpe mig, da jeg selv er meget grøn i ASP.

*********  upload.asp **********

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    intFormSize = Request.TotalBytes

    If intFormSize > 20000 Then
        Response.Write "Du må maksimum uploade 20k i denne demo!"
        Response.End
    End If
   
    strData = Request.BinaryRead(intFormSize)
    bCrLf = ChrB(13) & ChrB(10)
   
    intDivider = LeftB(strData, InStrB(strData, bCrLf) - 1)
    intDataStart = InStrB(strData, bCrLf & bCrLf) + 4
    intDataEnd = InStrB(intDataStart + 1, strData, intDivider) - intDataStart
   
    Response.ContentType = "image/gif"
    Response.BinaryWrite MidB(strData, intDataStart, intDataEnd)
    Response.End
End If
%>
<html><head>
<title>Upload uden komponent</title>
</head><body>

<form enctype="multipart/form-data" action="upload.asp" method="POST">
<p>Vælg et billede:<br>
<input name="image" type="file"><br>
<input type="submit" value="Upload" name="Action">
</form>

</body></html>
Avatar billede ellebaek Nybegynder
08. april 2003 - 18:52 #1
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    intFormSize = Request.TotalBytes

    If intFormSize > 2000000 Then
        Response.Write "Du må maksimum uploade 20k i denne demo!"
        Response.End
    End If
   
    strData = Request.BinaryRead(intFormSize)
    bCrLf = ChrB(13) & ChrB(10)
   
    intDivider = LeftB(strData, InStrB(strData, bCrLf) - 1)
    intDataStart = InStrB(strData, bCrLf & bCrLf) + 4
    intDataEnd = InStrB(intDataStart + 1, strData, intDivider) - intDataStart
   
    Response.ContentType = ""
    Response.BinaryWrite MidB(strData, intDataStart, intDataEnd)
    Response.End
End If
%>
<html><head>
<title>Upload uden komponent</title>
</head><body>

<form enctype="multipart/form-data" action="upload.asp" method="POST">
<p>Vælg et billede:<br>
<input name="image" type="file"><br>
<input type="submit" value="Upload" name="Action">
</form>

</body></html>
Avatar billede ellebaek Nybegynder
08. april 2003 - 18:58 #2
muligvis noget i denne stil.
Jeg ved det ikke helt, jeg går ud fra der er en fil mere der hører til dette script, men prøv det...
Jeg har prøvet det, og hver gang får jeg bare smidt filen i hovedet til download...

Synes du skal prøve dette script:
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=79

og så ændre denne linie:
intFileUpload = FileUpload("upload/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)

til:
intFileUpload = FileUpload("upload/", 2000000, Array(""), Array(""), strContentType, strFilename, intFileTotalBytes)
Avatar billede remo27 Nybegynder
09. april 2003 - 11:47 #3
Jeg har hendtet dette script du referer til ændret linie som du beskriver.

Men, når jeg vil se side  kommer den kun med en fejl 500.

hvor i IE Browseren under Funktioner-Instillinger-Avenceret, skal man sætte et flueben så man får en ordenlig fejlmeddelse frem ??

En aden fejl er også at jeg bruger <%@ Language="VBScript" %>
<%  Option Explicit %> på min default side, er det ikke noget med at det kun må bruges en gang. ???
Avatar billede ellebaek Nybegynder
09. april 2003 - 21:12 #4
det er kun et problem hvis du benytter iframes eller <!--#include file-->
Eller er det ikke et prob. med de koder 2 gange.

Mener den du skal slå til er den der hedder: indstillinger-> avanceret -> vis meddelser om uskadelige http fejl...
Avatar billede remo27 Nybegynder
09. april 2003 - 22:22 #5
Takker for hjælpen nu virker det.
Avatar billede ellebaek Nybegynder
09. april 2003 - 22:47 #6
selv tak...
Avatar billede remo27 Nybegynder
09. april 2003 - 22:54 #7
jeg har lige et spørgsmål, når jeg vil uploade en pdf, eller zip film kommer denne fejl nu:

Active Server Pages error 'ASP 0113'

Script timed out

/jepsen/admin/uploadgfx.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Hvad gør jeg her, små billeder og txt filer smutter fint afsted, men når jeg sender en 850 kb fil afsted kommer dette
Avatar billede ellebaek Nybegynder
09. april 2003 - 23:14 #8
<%
Server.ScriptTimeout = 600
%>

sæt denne linie ind i toppen af dit upload dokument, så har du ti minuter til at uploade filen...
Avatar billede remo27 Nybegynder
09. april 2003 - 23:24 #9
er det korret sat ind.

<%@ Language="VBScript" %>
<% Server.ScriptTimeout = 600 %>

<!-- #INCLUDE FILE="fileupload.inc" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
Server.ScriptTimeout = 240

'*************************************
'**** Test af FileUpload funktion ****
'****                            ****
'**** Upload .gif eller .jpg      ****
'**** billede til mappen /upload  ****
'*************************************

    'Skal formen vises?
    If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<FORM ENCTYPE="multipart/form-data" ACTION="uploadgfx.asp" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file" size="20"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("../download\", 2000000, Array(""), Array(""), strContentType, strFilename, intFileTotalBytes)
       
        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
            Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
            Response.Write "<IMG SRC=""../download\" & strFilename & """><BR>"
        Else 
            Response.Write "Der opstod en fejl under upload!<BR>"
            Response.Write "Fejl nr: " & intFileUpload & "<BR>"
            Response.Write "Filnavn: " & strFilename & "<BR>"
            Response.Write "Filtype: " & strContentType & "<BR>"
            Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
        End If
    End If
%>
</BODY>
</HTML>
Avatar billede ellebaek Nybegynder
09. april 2003 - 23:27 #10
<%@ Language="VBScript" %>


<!-- #INCLUDE FILE="fileupload.inc" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
Server.ScriptTimeout = 600

'*************************************
'**** Test af FileUpload funktion ****
'****                            ****
'**** Upload .gif eller .jpg      ****
'**** billede til mappen /upload  ****
'*************************************

    'Skal formen vises?
    If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<FORM ENCTYPE="multipart/form-data" ACTION="uploadgfx.asp" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file" size="20"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("../download\", 2000000, Array(""), Array(""), strContentType, strFilename, intFileTotalBytes)
       
        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
            Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
            Response.Write "<IMG SRC=""../download\" & strFilename & """><BR>"
        Else 
            Response.Write "Der opstod en fejl under upload!<BR>"
            Response.Write "Fejl nr: " & intFileUpload & "<BR>"
            Response.Write "Filnavn: " & strFilename & "<BR>"
            Response.Write "Filtype: " & strContentType & "<BR>"
            Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
        End If
    End If
%>
</BODY>
</HTML>
Avatar billede remo27 Nybegynder
10. april 2003 - 10:11 #11
hmmm, jeg får stadigvæk

Active Server Pages error 'ASP 0113'

Script timed out

/jepsen/admin/uploadgfx.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

selvom det er sat til 600  nogle gode råd
Avatar billede ellebaek Nybegynder
10. april 2003 - 19:13 #12
<%@ Language="VBScript" %>
<% Server.ScriptTimeout = 600 %>


<!-- #INCLUDE FILE="fileupload.inc" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%

'*************************************
'**** Test af FileUpload funktion ****
'****                            ****
'**** Upload .gif eller .jpg      ****
'**** billede til mappen /upload  ****
'*************************************

    'Skal formen vises?
    If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<FORM ENCTYPE="multipart/form-data" ACTION="uploadgfx.asp" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file" size="20"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("../download\", 2000000, Array(""), Array(""), strContentType, strFilename, intFileTotalBytes)
       
        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
            Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
            Response.Write "<IMG SRC=""../download\" & strFilename & """><BR>"
        Else 
            Response.Write "Der opstod en fejl under upload!<BR>"
            Response.Write "Fejl nr: " & intFileUpload & "<BR>"
            Response.Write "Filnavn: " & strFilename & "<BR>"
            Response.Write "Filtype: " & strContentType & "<BR>"
            Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
        End If
    End If
%>
</BODY>
</HTML>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 I går 15:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
White papers
Flere white papers »