AspSmartUpload fejl beskrivelse
Kan ikke få dette script til at vise hvad fejlen er når man feks. prøver at uploade en txt. (som jeg sat som denied) fil som ikke er tilladt. Jeg vil gerne have den til at vise hvad fejlen er, men kan ikke få det til at funke. Har prøvet med (som kan ses i bunden af selve scriptet):If Err Then
Response.Write(\"<b>Wrong selection : </b>\" & Err.description)
Else \' Display the number of files uploaded
\' ************************************
Response.Redirect(\"news.htm\")
Nogen som kan hjælpe ???
Script:
--------------------------------------------------
<% @Language=\"VBScript\" %>
<% Option Explicit %>
<!-- #include file=\"Adovbs.inc\" -->
<HTML> <BODY BGCOLOR=\"white\"> <H1>aspSmartUpload : Sample 3</H1> <HR>
<%
\' Variabler til upload af filer
Dim mySmartUpload
Dim intCount
Dim item
Dim value
Dim file
\' Variabler til databaseoperationer
Dim cn
Dim strSQL
Dim rs
\' Variabler til postsættene
Dim bytKarak
Dim strHeadline
Dim strDato
Dim strNews1
Dim strFil
Dim i
\' Her erklæres/instantieres aspSmartUpload objektet
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
\'********** Nedenstående fil-extensions accepteres: *************************************
mySmartUpload.AllowedFilesList = \"jpg,gif,jpeg\"
\' Allow all files except exe, bat and asp
\' ***************************************
mySmartUpload.DeniedFilesList = \"exe,bat,asp,txt\"
\' Only allow files smaller than 50000 bytes
\' *****************************************
mySmartUpload.MaxFileSize = 50000
\' Deny upload if the total fila size is greater than 200000 bytes
\' ***************************************************************
mySmartUpload.TotalMaxFileSize = 200000
mySmartUpload.Upload
\' Her fanges dataene fra formularen på siden default.asp
\' Læg mærke til, at man ikke kan benytte Request.Form, men skal benytte mySmartUpload.Form
\'bytKarak = mySmartUpload.Form(\"karakter\")
strHeadline = mySmartUpload.Form(\"Headline\")
strDato = mySmartUpload.Form(\"Dato\")
strNews1 = mySmartUpload.Form(\"News1\")
\'Upload af filer
\'Rettighederne på mappen for IUSR skal være RW
intCount = mySmartUpload.Save(\"images\")
\'Derefter gemmes alt i databasen NEWS
Set cn = Server.CreateObject(\"ADODB.Connection\")
cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(\"data/NEWS.mdb\")
For i = 1 To mySmartUpload.Files.Count
If mySmartUpload.Files.Item(i).FileName = \"\" Then
Else
strFil = mySmartUpload.Files.Item(i).FileName
strSQL = \"INSERT INTO News (Headline, Dato, News1, Billed) \"
strSQL = strSQL & \"VALUES(\'\" & strHeadline & \"\',\'\" & strDato & \"\',\'\" & strNews1
strSQL = strSQL & \"\',\'\" & strFil & \"\');\"
cn.Execute strSQL
End If
Next
\' Trap errors
\' ***********
If Err Then
Response.Write(\"<b>Wrong selection : </b>\" & Err.description)
Else \' Display the number of files uploaded
\' ************************************
Response.Redirect(\"news.htm\")
End If
%>
</BODY>
</HTML>
