Question

ADODB.Stream 错误 '800a0bb9' 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

ADODB.Stream 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/fenxi.asp，行 86

Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb."&"stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body (出错的地方在这里)
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
这样改是没意义的。
objstream.Write body (出错的地方在这里)
改成:
objstream.Write(body) (出错的地方在这里)

补充说明：
上面的代码可以正常运行完，但是如果连续调用上面的页面30次，就会出现上面的错误。
补充一点：解决问题的，再送200分。

Answer 1

把BytesToBstr(body,Cset)改成：

Function BytesToBstr(body,Cset)
if lenb(body)=0 then
BytesToBstr=""
exit function
end if
dim mystream
set mystream=server.createobject("adodb.stream")
mystream.type=2
mystream.mode=3
mystream.open
mystream.writetext body
mystream.position=0
mystream.charset=Cset
mystream.position=2
bstr=mystream.readtext()
mystream.close
set mystream=nothing
BytesToBstr=bstr
End Function

Answer 2

objstream.Write body
这个"body",类型要求是"Byte()",而不能是"String".

例如:
bts = Request.BinaryRead(nLen) 'bts是Byte()

objstream.Write bts
objstream.Position = posM - 1
body = objstream.Read(nLen) 'body是Byte()

但是,经过字符串运算,结果赋值给body, 例如:
body = MidB(bts, posM, nLen) 'body就变成了String

然后执行 objstream.Write body 就出现"参数类型不正确".
即使设置 objstream.Type = 2 'adTypeText 也是错.

楼主要检查看看哪里使 body 变成 String.

是不是 GetBody = Retrieval.ResponseBody 呢?

惭愧,我不懂 "Microsoft.XMLHTTP"

Answer 3

你加个限制就可以了
,如果返回的值存在不符合类型的,就直接中断程序
Function BytesToBstr(body,Cset)

if len(body)=0 then exit function

dim objstream
set objstream = Server.CreateObject("adodb."&"stream")
objstream.Type = 1
objstream.Mode =3