asp中用XMLHTTP Post获取IP所在地址
2008-02-17 17:07
387 查看
最近想通过XMLHttp提交IP地址到http://www.ip138.com/ 以获取ip所在地址。但是一开始在使用XMLHTTP的responseText获取返回值时,取得的返回页面中的中文全部变成了乱码,后来改为responseBody后正常显示。
<%
'转换为字符串函数
Function BytesToBstr(body,Cset)
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
'提交IP到http://www.ip138.com/ips8.asp,并得到查询的地址
Function returnIPAddress(ip)
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
str = "ip="&ip&"&action=2" 'str为POST的数据,既要查询的表单的内容提交。
xmlHttp.open "POST","http://www.ip138.com/ips8.asp",false
xmlHttp.setRequestHeader"Content-Length",Len(str)
xmlHttp.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
xmlHttp.send(str)
tempstr=BytesToBstr(xmlHttp.responseBody,"GB2312") '使用responseBody方法获取返回值
tempstr=left(tempstr,instr(1,tempstr,"</li><li>查询结果2:",1)-1)
tempstr=mid(tempstr,instr(1,tempstr,"本站主数据:",1)+6)
returnIPAddress=tempstr
End Function
'取得访问用户的IP
visitorIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Trim(visitorIP)="" Then visitorIP = request.servervariables("remote_addr")
response.write("您是来自:"& returnIPAddress(visitorIP) &" 的用户")
%>
<%
'转换为字符串函数
Function BytesToBstr(body,Cset)
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
'提交IP到http://www.ip138.com/ips8.asp,并得到查询的地址
Function returnIPAddress(ip)
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
str = "ip="&ip&"&action=2" 'str为POST的数据,既要查询的表单的内容提交。
xmlHttp.open "POST","http://www.ip138.com/ips8.asp",false
xmlHttp.setRequestHeader"Content-Length",Len(str)
xmlHttp.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
xmlHttp.send(str)
tempstr=BytesToBstr(xmlHttp.responseBody,"GB2312") '使用responseBody方法获取返回值
tempstr=left(tempstr,instr(1,tempstr,"</li><li>查询结果2:",1)-1)
tempstr=mid(tempstr,instr(1,tempstr,"本站主数据:",1)+6)
returnIPAddress=tempstr
End Function
'取得访问用户的IP
visitorIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Trim(visitorIP)="" Then visitorIP = request.servervariables("remote_addr")
response.write("您是来自:"& returnIPAddress(visitorIP) &" 的用户")
%>
相关文章推荐
- ASP.Net 根据IP获取所在省市地址
- 获取用户Ip地址通用方法常见安全隐患(HTTP_X_FORWARDED_FOR)
- 获取用户IP地址的三个属性的区别(HTTP_X_FORWARDED_FOR,HTTP_VIA,REMOTE_ADDR)
- 获取用户Ip地址通用方法常见安全隐患(HTTP_X_FORWARDED_FOR)
- [Asp.Net]获取客户端IP以及MAC地址
- 如何从HttpServletRequest中获取外网IP地址
- 获取用户IP地址的三个属性的区别(HTTP_X_FORWARDED_FOR,HTTP_VIA,REMOTE_ADDR)
- 获取用户Ip地址通用方法常见安全隐患(HTTP_X_FORWARDED_FOR)
- (转)asp.net获取访问用户IP地址信息的类
- 获取iP所在地址
- ASP.NET获取客户端IP及MAC地址
- [Asp.Net]获取客户端ip和mac地址
- asp.net 自定义 Http Post,Get,WebClient ,TcpClient 请求url地址
- 如何用ASP来获取客户端真实IP的地址
- ASP.NET获取IP与MAC地址的方法
- ASP.NET获取客户端IP及MAC地址
- 如何用ASP来获取客户端真实IP的地址_草根编程
- asp.net获取 ip 地址
- 获取用户Ip地址通用方法常见安全隐患(HTTP_X_FORWARDED_FOR)
- ASP.NET获取IP与MAC地址的方法