首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

有有关问题啦,各位DX帮忙,是pb读取asp内容的有关问题

2013-09-11 
有问题啦,各位DX帮忙,是pb读取asp内容的问题。通过浏览器打开asp问题执行没问题,就是通过pb读取的时候有问

有问题啦,各位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

热点排行