Question

ASP无组件上传代码，只求简单！

ASP无组件上传文件代码，只求简单！完整！

Answer 1

dim upload,file
set upload=new UpFile_Class ''建立上传对象
upload.GetDate (2048*1024) '取得上传数据,限大小2M

if upload.err > 0 then
select case upload.err
case 1
Response.Write "请先选择你要上传的文件 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
case 2
Response.Write "文件大小超过了限制 2048K [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
end select

else

formPath="UploadFile/" '上传目录
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
fileExt=lcase(file.FileExt) '取文件后缀名

'付值变量
randomize
ranNum=int(90000*rnd)+10000 '生成随机数
F_Type=CheckFiletype(fileEXT)
file_name=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
filename=file_name&"."&fileExt
rename=filename&"|"
filename=formPath&filename '以上根据时间及随机数
生成新的文件名
Filesize=file.FileSize '取文件大小

'记录文件
if Filesize>0 then '如果 FileSize > 0 说明有文件数据
file.SaveToFile Server.mappath(FileName) ''执行上传文件
end if
set file=nothing
next
end if
set upload=nothing