Hej
Jeg har netop afprøvet et asp upload uden komponent. Det er skrevet til at
uploade billeder, men jeg vil gerne have det tila t acceptere txt og html
filer.
Er der en som kan hjælpe med at rette de rigtige steder, da det ikke virker
når jeg prøver.
Her er koden:
<%@ Language="VBScript" %>
<!-- #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"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
Else
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
intFileUpload = FileUpload("../databaser/news/", 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=""../databaser/news/" & 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>
På forhånd mange tak
Jon Klose Larsen
VACC-DK Director
director@vacc.dk
http://www.vacc.dk/ "Real ATC by Real People"