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

ADODB.Stream错误'800a0bb9'参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。/fenxi.asp,行86FunctiongetHTTPPa... 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分。
展开
 我来答
开发者之路
推荐于2018-05-04 · TA获得超过910个赞
知道大有可为答主
回答量:2031
采纳率:0%
帮助的人:926万
展开全部
把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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
指知数
2010-03-30 · TA获得超过1085个赞
知道大有可为答主
回答量:1103
采纳率:95%
帮助的人:1006万
展开全部
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"
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
傲神05
2013-10-15
知道答主
回答量:1
采纳率:0%
帮助的人:1442
展开全部
你加个限制就可以了
,如果返回的值存在不符合类型的,就直接中断程序
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式