<%
Server.ScriptTimeOut=86400
dim arr(3)
dim upload,file,formName,formPath,iCount,filename,fileExt,i
set upload=new upload_5xSoft ''建立上传对象
inputName = Upload.Form("inputName")
upFolder = Upload.Form("upFolder")
formPath="../UpFile/"&upFolder&"/"
set file=upload.file("file")
''''限制文件格式
fileExt=getExt(file.filename)
Forum_upload="jpg,gif,png,jpeg,doc,xls,exe,mdb,rar,zip,txt,mp3,wma,wmv,rm,mid,midi,ra,avi,mpg,mpeg,asf,asx,mov,swf"
Forumupload=split(Forum_upload,",")
for i=0 to ubound(Forumupload)
if fileEXT=trim(Forumupload(i)) then
uploadsuc=true
exit for
else
uploadsuc=false
end if
Next
uploadsuc=true
if uploadsuc=false then
response.write "文件格式受限制[请重新上传]"
response.end
end If
'''''''''''''''
if file.filesize>0 then
if file.filesize>1024*1024*10 Then '限制上传的文件大小
response.write "文件大小超过了限制[重新上传]"
response.end
end If
uploadsuc=false
end if
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formpath&filename) ''保存文件
response.write "上传成功 请返回"
end if
Response.Write ""
Response.Write ""
set file=nothing
set upload=nothing
%>