📄 upfile.asp
字号:
<%@ codepage ="936" %><%OPTION EXPLICIT%><%server.ScriptTimeout=600%><!--#include FILE="uploadinc.asp"--><html><head><title>文件上传</title></head><body><br>文件上传!<hr size=1 noshadow width=300 align=left><br><br><%dim upload,file,formName,formPath,iCount,filenameset upload=new upload_5xSoft ''建立上传对象response.write upload.Version&"<br><br>" ''显示上传类的版本if upload.form("filepath")="" then ''得到上传目录formPath=upload.form("filepath")''在目录后加(/)elseformPath=upload.form("filepath")''在目录后加(/)if right(formPath,1)="/" or right(formPath,1)="\" thenelseformPath=formPath&"/" end ifend ifiCount=0for each formName in upload.file ''列出所有上传了的文件set file=upload.file(formName) ''生成一个文件对象if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据file.SaveAs formPath&file.FileName ''保存文件response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"iCount=iCount+1end ifset file=nothingnextset upload=nothing ''删除此对象Htmend iCount&" 个文件上传结束!"sub HtmEnd(Msg)set upload=nothingresponse.write "<br>"&Msg&" [<a href=""javascript:history.back();"">返回</a>]</body></html>"response.endend sub%></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -