提问：
复制代码 代码如下:
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),"市","")
%>
您可能感兴趣的文章:- 以IP来获取客户端电脑名称(一句代码实现)
- ASP.NET获取真正的客户端IP地址的6种方法
- 获取客户端电脑日期时间js代码(jquery)
- IP138 IP地址查询小偷实现代码
- asp.net 通过指定IP地址得到当前的网络上的主机的域名
- asp.net DZ论坛中根据IP地址取得所在地的代码
- 获取客户端IP地址c#/vb.net各自实现代码
