📄 doupload.asp
字号:
<%
Option Explicit
Response.Expires = -1
%>
<html>
<head>
<title>Uploading file
</title>
</head>
<body>
<%
const UploadOK = 0
const FilesizeInvalid = 1
const ExtensionNotAllowed = 2
const DestinationPathInvalid = 3
const UnknownError = 4
const UnableToCreateFile = 5
const FileDoesntExist = 6
Dim nUploadResult
Dim objUploader
Dim strError
Dim strUserName
Dim strHiddenValue
Dim strFileUploaded
Set objUploader = Server.CreateObject("InetUtil.Uploader")
objUploader.StartUpload(Request)
strUserName = objUploader.GetFormValue("userName")
strHiddenValue = objUploader.GetFormValue("hiddenValue")
objUploader.SetDestinationPath "c:\temp"
objUploader.SetAllowedExtensions "*" ' all extensions
objUploader.SetForbiddenExtensions "exe", "com"
nUploadResult = objUploader.UploadFile("uploadFile")
strFileUploaded = objUploader.GetUploadFilename("uploadFile")
strError = objUploader.GetError(nUploadResult)
%>
<p>Username: <%=strUserName%></p>
<p>Hidden value: <%=strHiddenValue%></p>
<p>File uploaded: <%=strFileUploaded%></p>
<p>Upload Result: <%=strError%></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -