ASP使用ADO.STREAM实现文件上传

ASP（Active Server Pages）是一种服务器端脚本环境，可以用来创建动态交互式网页。ADO（ActiveX Data Objects）是一个用于访问数据的组件对象模型库。在ASP中，可以使用ADO的Stream对象来处理文件上传的功能。具体实现步骤如下：

1. 创建一个HTML表单，其中包含一个类型为"file"的<input>元素，用户可以通过这个元素选择要上传的文件。

<form action="upload.asp" method="post" enctype="multipart/form-data">
    <input type="file" name="fileToUpload" id="fileToUpload">
    <input type="submit" value="Upload File" name="submit">
</form>

2. 在ASP脚本中，首先判断表单是否提交。如果是提交状态，就可以获取上传的文件信息。

3. 使用ADO.Stream对象来接收上传的数据流。首先，创建一个ADO.Stream对象，并设置其类型为1（adTypeBinary），表示我们处理的是二进制数据。

<%
Dim stream
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1 'adTypeBinary
stream.Open
%>

4. 将文件数据从请求中读取出来，并写入到Stream对象中。

<%
If Request.TotalBytes <> 0 Then
    stream.Write Request.BinaryRead(Request.TotalBytes)
End If
%>

5. 接下来，可以使用Stream对象的SaveToFile方法将流中的数据保存到服务器上的指定文件路径。

<%
' 设置文件保存路径
Dim savePath
savePath = Server.MapPath("uploads/" & Request.Form("fileToUpload").FileName)

' 确保路径以反斜杠结束
If Right(savePath, 1) <> "\" Then
    savePath = savePath & "\"
End If

' 保存文件
stream.SaveToFile savePath, 2 'adSaveCreateOverWrite
%>

6. 最后，关闭Stream对象，并对用户进行上传成功的提示。

<%
stream.Close
Set stream = Nothing

Response.Write("文件上传成功！")
%>