<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
文件上传
<%
''将当前的日期和时间转为文件名
function makefilename()
dim fname
fname = now()
fname = trim(fname)
fname = replace(fname,"-","")
fname = replace(fname,"/","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
dim upload,file,formName,formPath,mc
dim i,l,fileType,newfilename,filenamelist
'创建新文件名称
newfilename = makefilename()
'建立上传对象
set upload=new upload_5xsoft
'上传文件目录
formPath = Server.mappath("img")&"/"
'列出所有上传了的文件
for each formName in upload.objFile
'生成一个文件对象
set file=upload.file(formName)
mc= upload.form("mc")
'如果 FileSize > 0 说明有文件数据
if file.FileSize>0 then
'取得文件扩展名
fileType = file.FileName '文件名以及扩展名
i = instr(fileType,".") '是否存在“.”
l = Len(fileType)
if i>0 then
fileType = Right(fileType,l-i+1) '得到扩展名
end if
newfilename = newfilename & fileType
filenamelist = formPath&newfilename '新文件绝对地址和名称
file.SaveAs filenamelist ''保存文件
end if
set file=nothing
next
'将文件信息传入内容字段
response.write ""
response.Write("上传成功")
set upload=nothing ''删除此对象
%>