Upload komponent ?
Hej ... jeg har fundet følgende upload komponent, men problemet er at den ikke gemmer filen på min webserver men bare viser det billede jeg vælger, der står noget om at man kan udvide scriptet med FileSystemObject så den også gemmer filen ... er der nogen der kan/gider gøre det for jeg aner sq ikke hvordan dette gøres ... script er som følger:<%
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>
På forhånd tak!
