时间:2021-05-28
提问:
复制代码 代码如下:
<script type=text/javascript src=http://fw.qq.com/ipaddress></script>
<script type=text/javascript>
var hehe1=IPData[2]
var hehe2=IPData[3]
alert(hehe1);
alert(hehe2);
document.write(IPData.join(' '));
</script>
如何用ASP来存储,从上面读取出来的数据呢。
回答:
复制代码 代码如下:
<%
function GetResStr(URL,code)
err.clear
dim Http,ReturnStr
Set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
If Http.status=200 Then
ReturnStr=BytesToBstr(http.responseBody,code)
GetResStr=ReturnStr
End If
End If
End Function
'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
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
dim vUrl,TempStr
vUrl="http://fw.qq.com/ipaddress"
TempStr=GetResStr(vUrl,"gb2312")
response.write "您的IP为(asp获取真实IP):"&split(TempStr,"""")(1)" " &split(TempStr,"""")(5)" "&replace(split(TempStr,"""")(7),"市","")
%>
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
本文介绍了asp.net获取客户端浏览器访问的IP地址的实例代码,分享给大家,自己也留个笔记1、js方法Documentdocument.write('IP地址
获取客户端的IP地址,代码如下:复制代码代码如下://////获取客户端IP地址//////publicstringGetClientIP(){stringus
asp检查ip地址是否为私有/内网ip地址源代码。内网/私有IP地址网段如下,还有127开头的回环地址:10.0.0.0-10.255.255.255172.1
Asp获取真实IP地址,最简单可用一句话获取:ip=request.ServerVariables("REMOTE_ADDR")response.Write(i
本机IP地址怎么获取win8系统下获取ip地址本机IP地址怎么获取win8系统下获取ip地址本机IP地址怎么获取win8系统下获取ip地址本机IP地址怎么获取w