<%OPTION EXPLICIT%>



<%
function getex(filename)
getex = right(filename,(len(filename)-InStr(filename,".")))
End Function

dim upload,file,formName,formPath,fname,getfilename
set upload=new upload_5xSoft ''建立上传对象

if upload.form("filepath")="" then ''得到上传目录
HtmEnd "请输入要上传至的目录!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if



fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = fname&Int((right(fname,4) - 0 + 1) * Rnd + 0)

for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 then
file.SaveAs Server.mappath(formPath&fname&"."&getex(file.filename))
else
Response.Write "请不要上传0字节文件!返回"
end if
set file=nothing
next
set upload=nothing

%>