以下是一个使用ASP上传文件到服务器的示例代码：
<html>
<body>
<%
' 检查是否有文件上传
If Request.Files.Count > 0 Then
' 获取上传的文件
Dim file
For Each file In Request.Files
' 指定文件保存的路径
Dim savePath
savePath = Server.MapPath("上传文件目录/") & file.FileName
' 将文件保存到服务器
file.SaveAs savePath
Response.Write "文件上传成功！"
Next
End If
%>
<form action="" method="post" enctype="multipart/form-data">
<input type="file" name="file" />
<br /><br />
<input type="submit" value="上传文件" />
</form>
</body>
</html>请注意，上述代码中的”上传文件目录/”是上传文件保存在服务器上的相对路径，您需要根据实际情况修改为合适的路径。此外，还需要确保服务器具有相应的写入权限来保存上传的文件。
以下是ASP上传文件到服务器的示例代码：
<%
' 获取上传文件的保存路径
Dim uploadPath
uploadPath = Server.MapPath("uploads/")
' 检查目标路径是否存在，若不存在则创建目录
If Not FileSystemObject.FolderExists(uploadPath) Then
FileSystemObject.CreateFolder(uploadPath)
End If
' 处理上传文件
Dim file
Set file = Request.Files("file")
If Not file Is Nothing And file.FileName <> "" Then
' 文件保存的完整路径
Dim filePath
filePath = uploadPath & "" & file.FileName
' 保存文件到服务器
file.SaveAs filePath
' 输出文件保存路径
Response.Write("文件已成功上传到服务器：" & filePath)
Else
Response.Write("请选择要上传的文件")
End If
%>请注意，在上述代码中，服务器端保存文件的目录为uploads/，上传的文件保存在该目录下。如果该目录不存在，代码会自动创建该目录。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/141409.html
