Problemer med et upload script.
Jeg har nedenstående script som driller. Når man henter den første gang er der ingen problemer. men når man så submitter formen, og den, som jeg ser det, henviser til sig selv, så kommer den og siger, at siden ikke findes.Hvem kan greje det?
<!-- #INCLUDE FILE="fileupload.inc" -->
<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
<link HREF="../style.css" REL="stylesheet" TYPE="text/css">
</HEAD>
<BODY>
<%
Response.write "<p class=over>Upload til " & request.querystring("brugernavn") & "</p>"
%>
<%
'*********************************************
'**** Test af FileUpload funktion ****
'**** ****
'**** Upload .gif eller .jpg ****
'**** billede til mappen /cgi-bin/upload ****
'*********************************************
'Skal formen vises?
If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<FORM ENCTYPE="multipart/form-data" ACTION="uploadgfx.asp" METHOD="POST">
<P class=normal>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
Else
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
intFileUpload = FileUpload("../cgi-bin/upload/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), 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=""../cgi-bin/upload/" & strFilename & """><BR>"
' Databaseforbindelse - husk at angive sti til din database
' dim Conn, DSN, strSQL, rs
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../cgi-bin/database.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Update medlemmer set billede = '" & strFilename & "' where brugernavn = request.querystring('brugernavn');"
Response.Write strSQL
' Udfør forespørgsel
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
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>
Undskyld den lange kode. :-?
