下面是一个简单的ASP文件上传代码示例：
<%
' 设置允许上传的文件类型和大小
allowFileType = "jpg,jpeg,png,gif"
maxSize = 1024 ' 限制文件大小为1MB
' 检查是否有文件上传
If Request.Files.Count > 0 Then
' 获取上传的文件
Set file = Request.Files("file")
' 检查文件类型和大小是否符合要求
fileType = Right(file.FileName, Len(file.FileName) - InStrRev(file.FileName, "."))
If InStr(allowFileType, fileType) = 0 Then
Response.Write "上传的文件类型不符合要求"
ElseIf file.Size > (maxSize * 1024) Then
Response.Write "上传的文件过大，最大限制为 " & maxSize & "KB"
Else
' 保存文件到指定目录
file.SaveAs Server.MapPath("upload/" & file.FileName)
Response.Write "文件上传成功"
End If
End If
%>在这个代码示例中，首先设置了允许上传的文件类型和大小，然后检查是否有文件上传，获取上传的文件并检查文件类型和大小是否符合要求。最后将文件保存到指定目录中。您可以根据实际需求进行修改和扩展。
ASP网站文件上传代码示例：
<%
' 指定文件上传保存的目录
uploadDir = Server.MapPath("Uploads/")
' 判断请求是否是POST方式
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim objForm, fieldName, fieldValue
Dim filePath, fileName, fileSize
' 创建Form对象
Set objForm = Server.CreateObject("Scripting.Dictionary")
' 将POST请求中的数据存储到Form对象中
For Each fieldName In Request.Form
fieldValue = Request.Form(fieldName)
objForm.Add fieldName, fieldValue
Next
' 将文件上传的数据存储到Form对象中
For Each fieldName In Request.Files
Set file = Request.Files(fieldName)
If file.Size > 0 Then
objForm.Add fieldName, file
End If
Next
' 获取文件名和文件大小
fileName = objForm("file").FileName
fileSize = objForm("file").Size
' 保存文件到指定目录
filePath = uploadDir & fileName
objForm("file").SaveAs filePath
Response.Write "文件上传成功！文件名：" & fileName & " 文件大小：" & fileSize & "字节"
Else
Response.Write "只允许通过POST方式上传文件！"
End If
%>以上代码实现了一个简单的ASP文件上传功能，通过POST请求方式将文件上传到指定目录中。请注意文件上传功能可能存在安全风险，请谨慎使用。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/155879.html
