Chinaunix首页 | 论坛 | 博客
  • 博客访问: 14481130
  • 博文数量: 5645
  • 博客积分: 9880
  • 博客等级: 中将
  • 技术积分: 68081
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-28 13:35
文章分类

全部博文(5645)

文章存档

2008年(5645)

我的朋友

分类:

2008-04-28 20:37:38

下载本文示例代码
  因为要做移动梦网WAP的一些接口,所以要用到这种方式,接下来会有ASP.net版本的,这个是ASP版本的,利用了MSXML2.XMLHTTP对像。    request.asp dim Https set Https=server.createobject("MSXML2.XMLHTTP")'定义一个XMLHTTP对像Https.open "POST","",falseHttps.send "echo1234569876541111122222"if Https.readystate=4 then response.write "提交成功" 'readstate读取状态为4则成功,继续后面的,不成功当然就不用继续处理了 dim objstream  set objstream = Server.CreateObject("adodb.stream") '定义一个stream,因为读过来的直接拿出来是乱码的,所以得处理一下 objstream.Type = 1  objstream.Mode =3  objstream.Open  objstream.Write Https.responseBody  objstream.Position = 0  objstream.Type = 2  objstream.Charset = "GB2312"  html = objstream.ReadText '转好码,就放到html里,好关闭这些对像 objstream.Close  set objstream = nothing  set https=nothingend ifresponse.write htmlresponse.asp'创建DOMDocument对象Set xml = Server.CreateObject ("msxml2.DOMDocument")xml.async = False'装载POST数据 xml.Load Request If xml.parseError.errorCode <> 0 Then  response.write "不能正确接收数据" & "Description: " & xml.parseError.reason & "<br>Line: " & xml.parseError.LineEnd Ifset blogchild=xml.getElementsByTagName("misc_command")'the_text=blogchild.item(0).childnodes(1).text'the_text=blogchild.item(0).text'for i=0 to blogchild.length-1response.write the_text  利用这种方法,ASP里调用Servlet或Web Service都是很轻松的!   因为要做移动梦网WAP的一些接口,所以要用到这种方式,接下来会有ASP.net版本的,这个是ASP版本的,利用了MSXML2.XMLHTTP对像。    request.asp dim Https set Https=server.createobject("MSXML2.XMLHTTP")'定义一个XMLHTTP对像Https.open "POST","",falseHttps.send "echo1234569876541111122222"if Https.readystate=4 then response.write "提交成功" 'readstate读取状态为4则成功,继续后面的,不成功当然就不用继续处理了 dim objstream  set objstream = Server.CreateObject("adodb.stream") '定义一个stream,因为读过来的直接拿出来是乱码的,所以得处理一下 objstream.Type = 1  objstream.Mode =3  objstream.Open  objstream.Write Https.responseBody  objstream.Position = 0  objstream.Type = 2  objstream.Charset = "GB2312"  html = objstream.ReadText '转好码,就放到html里,好关闭这些对像 objstream.Close  set objstream = nothing  set https=nothingend ifresponse.write htmlresponse.asp'创建DOMDocument对象Set xml = Server.CreateObject ("msxml2.DOMDocument")xml.async = False'装载POST数据 xml.Load Request If xml.parseError.errorCode <> 0 Then  response.write "不能正确接收数据" & "Description: " & xml.parseError.reason & "<br>Line: " & xml.parseError.LineEnd Ifset blogchild=xml.getElementsByTagName("misc_command")'the_text=blogchild.item(0).childnodes(1).text'the_text=blogchild.item(0).text'for i=0 to blogchild.length-1response.write the_text  利用这种方法,ASP里调用Servlet或Web Service都是很轻松的! 下载本文示例代码


利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法利用ASP发送和接收XML数据的处理方法
阅读(104) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~