ASP 獲取騰訊IP地址的代碼
更新時(shí)間：2010年04月12日 14:22:07 作者：
ASP 獲取騰訊IP地址的代碼 用ASP來存儲，從上面讀取出來的數(shù)據(jù)。
提問：
<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來存儲，從上面讀取出來的數(shù)據(jù)呢。
回答：
<%
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
'函數(shù)名:BytesToBstr
'作用:轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符
'參數(shù):Body-二進(jìn)制數(shù)據(jù),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獲取真實(shí)IP):"&split(TempStr,"""")(1)" " &split(TempStr,"""")(5)" "&replace(split(TempStr,"""")(7),"市","")
%>
復(fù)制代碼 代碼如下:
<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來存儲，從上面讀取出來的數(shù)據(jù)呢。
回答：
復(fù)制代碼 代碼如下:
<%
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
'函數(shù)名:BytesToBstr
'作用:轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符
'參數(shù):Body-二進(jìn)制數(shù)據(jù),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獲取真實(shí)IP):"&split(TempStr,"""")(1)" " &split(TempStr,"""")(5)" "&replace(split(TempStr,"""")(7),"市","")
%>
相關(guān)文章
ASP正則表達(dá)式清除HTML指定標(biāo)簽的方法
這篇文章主要介紹了ASP正則表達(dá)式清除HTML指定標(biāo)簽的方法，告訴大家如何精準(zhǔn)的過濾掉某些特定的屬性標(biāo)簽和參數(shù)，感興趣的小伙伴們可以參考一下2015-09-09
由于工作的需要，我需要為客戶做一個在線生成Excel及Word報(bào)表程序，參考了網(wǎng)上很多辦法2008-06-06
asp下實(shí)現(xiàn)批量插入數(shù)據(jù)的方法
asp下實(shí)現(xiàn)批量插入數(shù)據(jù)的方法...2007-08-08
使用XMLDOM在不支持FSO的服務(wù)器上...2006-08-08
asp下實(shí)現(xiàn)字符串的補(bǔ)充fill()
在一個字符串前后補(bǔ)全另一字符串,在一個字符串前面補(bǔ)全另一字符串,在一個字符串后面補(bǔ)全另一字符串2008-02-02
ASP調(diào)用存儲過程的技巧...2007-01-01
UTF-8編碼...2006-09-09
asp(vbscript)中自定義函數(shù)的默認(rèn)參數(shù)實(shí)現(xiàn)代碼
這篇文章主要介紹了asp(vbscript)中自定義函數(shù)的默認(rèn)參數(shù)實(shí)現(xiàn)代碼,需要的朋友可以參考下2020-09-09
ASP智能搜索的實(shí)現(xiàn)...2006-08-08
在Vista IIS 7 中用 vs2005 調(diào)試 Web 項(xiàng)目的注意事項(xiàng)
在Vista IIS 7 中用 vs2005 調(diào)試 Web 項(xiàng)目核心是要解決以下幾個問題2008-09-09