有问题啦,各位DX帮忙,是pb读取asp内容的问题。
通过浏览器打开asp问题执行没问题,就是通过pb读取的时候有问题。
下面是asp的源码。
<!--#include file="conn.asp"-->
<%
set rs=Server.CreateObject("adodb.recordset")
sql="select * from ssmg_reg_code where system_code='"&request("system_code")&"' and system_regcode='"&request("system_regcode")&"' and soft_active=true"
rs.open sql,conn,1,1
if not rs.eof then
response.write "The Code Is OK!"
else
response.write "The Code Is ERROR!"
end if
'rs.close
'set rs=nothing
%>
用浏览器打开http://localhost/ssmg/chk_regcode.asp?system_code=3A15713F-9B3D-49AE-8CD6-08737E6F109E&system_regcode=56BCB25BD12625E1C57FB892B720DFDC
正确返回the code is ok
但用pb处理后就就返回the code is error
不知道怎么搞的,用的是pb11
下面是pb的代码
Try
loo_xmlhttp = Create oleobject
loo_xmlhttp.ConnectToNewObject("MSXML2.XMLHTTP.3.0")
loo_xmlhttp.open ("GET",ls_get_url + "?" + ls_args + "&m="+String(Second(Now())), false)
loo_xmlhttp.send()
ls_status_text = loo_xmlhttp.StatusText
ll_status_code = loo_xmlhttp.Status
If ll_status_code=200 Then
ls_response_text = loo_xmlhttp.ResponseText
return String(ls_response_text)
Else
MessageBox("提示1","链接不存在!请检查互联网连接。")
End If
loo_xmlhttp.DisconnectObject()
Catch (RuntimeError rte)
MessageBox("提示2","链接不成功!请检查互联网连接。")
End Try
[解决办法]
没这么麻烦的,直接用inet对象处理就可以了~~
你可以参考一下我的资源库中关于asp页面的调用,封装了一个纯PB的对象的,不需要用到OLE;
资源是提供免费下载的
http://download.csdn.net/source/2062190
[解决办法]
看上去返回值200,url访问是正确了,参数是不是传递不正确呢
用什么拦截一下你的http的协议看看,pb发送的请求和ie发送的有什么区别,
只能先这样比较一下了
我的异常网推荐解决方案:免费资源库,http://www.myexception.cn/other/1391134.html