Msg="文件大小超过了限制。"
CALL showErr(Msg)
end if
if Instr(upFileType,GetExtendName(thisfile.FileName))=0 then
Flag=False
Msg="文件格式不符合要求。"
CALL showErr(Msg)
end if
If Flag then
'创建临时上传文件夹
tempPath="/publish/images/"&Session.SessionID&"/"
set FSO= CreateObject("Scripting.FileSystemObject")
If NOT FSO.FolderExists(Server.MapPath(tempPath)) then
'文件夹未存在则创建
FSO.CreateFolder(Server.MapPath(tempPath))
set FSO=Nothing
End if
'执行文件上传操作
setFileName=now() '获取当前时间作为文件名
setFileName=Replace(setFileName,"-","") '去除日期格式符"-"
setFileName=Replace(setFileName," ","") '去除空格
setFileName=Replace(setFileName,":","")&GetExtendName(thisfile.FileName) '去除时间格式符":"及添加文件扩展名
thisfile.SaveAs Server.mappath(tempPath&setFileName)
End if
Next
CALL resultTip()
Response.End()
End if
%>
<html>
<head>
<me
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
