提问： 复制代码 代码如下: <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),"市","") %>

　　推荐阅读

　　ASP 日期的加减运算实现代码

举个例子来说，要查找出2007-10-12至2007-10-31之间在网站上注册的会员，选择好日期后，点击“查询”按钮，发现2007-10-31注册的会员的信息根本没有显示出来，试验了几次结果都是一样。调试程序发现，原来是在SQL语>>>详细阅读

本文标题：ASP 获取腾讯IP地址的代码

地址：http://www.17bianji.com/kaifa2/ASP/31939.html

 1/2    1