作家
登录

ASP 获取腾讯IP地址的代码

作者: 来源:www.28hudong.com 2013-03-30 08:18:51 阅读 我要评论

提问: 复制代码 代码如下: <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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)