ASP 获取腾讯IP地址的代码


提问:

复制代码 代码如下:

<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),"市","")
%>



相关阅读:
Linux下如何解包和打包initrd image文件
如何用CSS让文字居于div的底部
vbscript禁用 启用fso的方法
Linux操作系统下USB图像采集驱动的安装
用ASP.NET还原与恢复Sql server
asp.net夜话之九:验证控件---(下)
Winxp下php5,mysql5详细安装教程
php下常用表单验证的正则表达式
巧用ASP脚本命令重启服务器
RTM,RTW,GA等软件版本号详解
PHP容易被忽略而出错陷阱 数字与字符串比较
js实现的层变换效果
使用CSS Sprite的一些最佳实践
Thinking XML: XML 样式的 HTML5
快速导航

Copyright © 2016 phpStudy |