ASP模拟POST提交数据的方法

ASP模拟POST提交数据的方法

Author：flymorn Source：飘易
Categories：Asp编程 PostTime：2009-4-7 13:21:40

正 文：
有时需要获取远程网站的某些信息，而服务器又限制了GET方式，只能通过POST数据提交，这个时候我们可以通过asp来实现模拟提交post数据，飘易加工了下面的部分代码，比如获取IP138的IP数据地址信息，代码如下：

<%
Onerrorresumenext'容错处理

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

FunctionBytesToBstr(body,Cset)'飘易：转换GB2312
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction

Response.WriteGetBody("61.186.177.105")
%>