ADODB.Stream (0x800A0BBA)错误，帮忙看看

代码如下，下载文件时总是提示ADODB.Stream (0x800A0BBA)错误，提示Stream.LoadFromFile Server.MapPath("TrueFileName")这句错了。

Function GetFileName(longname) '/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function

Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName,".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "非法操作！"
Response.End
End Select
Response.Clear
Response.AddHeader "content-disposition:&q

ADODB.Stream (0x800A0BBA)错误，帮忙看看 ASP: adodb.stream怎么用? 关于adodb.stream的问题 adodb.stream 中 position 属性的用法？ 如何检测adodb.stream组件被关闭 无法建立adodb.stream对象是什么原因 求关于Adodb.Stream的详解! 恶意程序Exploit.JS.ADODB.Stream.ab 恶意程序 Exploit.JS.ADODB.Stream.m adodb.stream 问题 高分求救 在线等