有没有人有aspSmartUpload.zip的资源包啊,求分享,最近遇到一个用aspSmartUpload组件上传的程序,是在解决不到,不知道是不是缼组件的问题
<%@LANGUAGE="VBSCRIPT"%>
<%
On error resume next
Dim mysmartupload
Dim intcount
Dim FILE
intcount=0
Set mysmartupload = Server.CreateObject("aspSmartUpload.SmartUpload")
Response.write("<br>"& "" & " ==============.<BR>")
mysmartupload.allowedfileslist="Jpg,bmp,pdf"
mysmartupload.Maxfilesize=700000
mysmartupload.Upload
'intcount = mysmartupload.save("/car/photos")
For each file In mysmartupload.files
if not file.ismissing then
file.saveas("Photos/" & file.fileName)
'if err then
'
'else
'Response.write("<b>Wrong selection: </b>"&err.description)
'then
Response.write("<b><font color=#000066 face=Verdana, Arial, Helvetica, sans-serif size=2>File Name= " & file.fileName & "<BR>")
Response.write("size= "& file.size & " bytes <BR></b>")
intcount = intcount + 1
end if
Next
Response.write("<br>"& mysmartupload.files.count & " files could be upload.<BR>")
Response.write("<b>" & intcount & " file(s) uploaded<br><br><br></font>")
%>