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>

　　<%

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

　　%>