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")
%>