泰山一村房价:asp 打开有BLOB字段,提示数据类型不被支持。

<%dim cnn
set cnn=server.CreateObject("ADODB.Connection")
constr="Provider=MSDAORA;Data Source=server;User ID=anything; Password=67375272"
cnn.open constr
if err then
err.clear
echoerr("打开数据库失败！<br>可能因配置错误或驱动程序版本太低！")
response.end
end if
%>
<%

dim search,rs,j
search="select * from arc_orgfile "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open search,cnn,1,3
if rs.bof or rs.eof then
response.write "错误：找不到该文件"
response.end
end if

'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType = LCase(trim(contentType))
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)
Session("Bytes") = bytes
Session("Type") = contentType
End Function

SetForDisplay RS("File"),rs("FileType")
'Response.AddHeader "Content-Disposition", "attachment; filename=" & rs("FileName")
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""

%>
我用的是oracle数据库,其中一表中有一字段是blob类型,其里面存放的是二进制形式的文件内容
运行之后显示:
Microsoft OLE DB Provider for Oracle 错误 '80004005'

数据类型不被支持。

/windy/windywindy.asp，行 18
第18行是:rs.Open search,cnn,1,3