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分。 展开
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/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分。 展开
3个回答
展开全部
把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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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"
这个"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"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你加个限制就可以了
,如果返回的值存在不符合类型的,就直接中断程序
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
,如果返回的值存在不符合类型的,就直接中断程序
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询