upfile.asp <!--#include FILE="upload.inc"--> <html> <head> <title>文件上传</title> </head> <body> <% dim arr(3) dim upload,file,formName,formPath,iCount,filename,fileExt,i set upload=new upload_5xSoft ''建立上传对象
formPath=upload.form("filepath") ''在目录后加(/) if right(formPath,1)<>"/" then formPath=formPath&"/" iCount=0 i=0 for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象
if file.filesize<0 then response.write "<font size=2>请先选择你要上传的图片 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>" response.end