记事本

年纪大了,找个地方记点东西

ASP模拟POST提交数据的方法

ASP模拟POST提交数据的方法

Author:flymorn Source:飘易
Categories:Asp编程 PostTime:2009-4-7 13:21:40
 文:
   有时需要获取远程网站的某些信息,而服务器又限制了GET方式,只能通过POST数据提交,这个时候我们可以通过asp来实现模拟提交post数据,飘易加工了下面的部分代码,比如获取IP138的IP数据地址信息,代码如下:
<%
On error resume next '容错处理

 

Function GetBody(ips) '飘易-获取远程IP地址POST信息
Set https = Server.CreateObject("MSXML2.XMLHTTP") 
With https 
.Open "Post", "http://www.ip138.com/ips8.asp", False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send "ip="&ips&"&action=2"
GetBody = .ResponseBody
End With 
GetBody = BytesToBstr(GetBody,"GB2312")
Set https = Nothing 
End Function

 

Function BytesToBstr(body,Cset) '飘易:转换GB2312
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

 

Response.Write GetBody("61.186.177.105")
%>
阅读更多
想对作者说点什么? 我来说一句

ASP.NET POST XML JSON数据

2015年08月10日 6KB 下载

没有更多推荐了,返回首页

不良信息举报

ASP模拟POST提交数据的方法

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭