asp 根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼
更新時(shí)間：2008年11月27日 00:48:16 作者：
根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼
這個(gè)是一個(gè)不錯(cuò)的解決之道，可以緩解服務(wù)器壓力過大等一些問題
Function getIpvalue(clientIP)'得到客戶端的IP轉(zhuǎn)換成長(zhǎng)整型，返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpvalue=0
Exit Function
End If
For i=0 To 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Next
getIpvalue=strIp
If Err Then getIpvalue=0
End Function
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="select top 1 City from [Ipaddress] where "&IpValue&"
between Ip1 and Ip2"
Set RsIp=conn.execute(strSql)
If RsIp.bof and RsIp.eof then
UrlCity="未知"
Else
UrlCity=RsIp.Fields.Item("City").Value
End If
if instr(UrlCity,"廣州")<>0 then
response.Redirect("http://www.dbjr.com.cn")
end if
if instr(UrlCity,"深圳")<>0 then
response.Redirect("http://img.jb51.net")
end if
if instr(UrlCity,"上海")<>0 then
response.Redirect("http://xiazai.jb51.net")
end if
所用到的IP數(shù)據(jù)庫可以去網(wǎng)上down一個(gè)回來
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpvalue=0
Exit Function
End If
For i=0 To 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Next
getIpvalue=strIp
If Err Then getIpvalue=0
End Function
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="select top 1 City from [Ipaddress] where "&IpValue&"
between Ip1 and Ip2"
Set RsIp=conn.execute(strSql)
If RsIp.bof and RsIp.eof then
UrlCity="未知"
Else
UrlCity=RsIp.Fields.Item("City").Value
End If
if instr(UrlCity,"廣州")<>0 then
response.Redirect("http://www.dbjr.com.cn")
end if
if instr(UrlCity,"深圳")<>0 then
response.Redirect("http://img.jb51.net")
end if
if instr(UrlCity,"上海")<>0 then
response.Redirect("http://xiazai.jb51.net")
end if
所用到的IP數(shù)據(jù)庫可以去網(wǎng)上down一個(gè)回來
相關(guān)文章
ASP實(shí)現(xiàn)智能搜索實(shí)現(xiàn)代碼
asp下智能搜索功能的實(shí)現(xiàn)，方便大家學(xué)習(xí)2008-06-06
用ASP做搜索很容易，但要實(shí)現(xiàn)智能搜索這類就比較累一點(diǎn)，其實(shí)任何程序都差不多，主要還是看數(shù)據(jù)庫的處理能力，一般小網(wǎng)站ASP經(jīng)常跟ACCESS數(shù)據(jù)庫搭配2009-03-03
現(xiàn)在很多朋友使用了sql2008，但原來2000的代碼已經(jīng)無法使用了，這里分享下asp連接sql2008的方法，需要的朋友可以參考下2015-01-01
一個(gè)暴力破解MSSQL用戶密碼的ASP程序，最早發(fā)布在EST論壇。以下這個(gè)版本是可以運(yùn)行之后關(guān)閉瀏覽器，運(yùn)行完畢將在當(dāng)前目錄生成結(jié)果文件的。 用ASP做事情效率很慢，當(dāng)然這個(gè)程序所體現(xiàn)的不是它的效率，而是……給你點(diǎn)懸念，不然多沒意思哦。2008-05-05
asp中response.write(''中文'')或者js中文亂碼問題
這篇文章主要介紹了asp中response.write('中文')或者js中文亂碼問題，有時(shí)候我們需要輸出js也會(huì)出現(xiàn)亂碼，這里給出了幾個(gè)解決方法,需要的朋友可以參考下2020-03-03
Asp無組件上傳進(jìn)度條解決方案...2007-09-09
從事asp開發(fā)好多年了，asp沒有多行注釋真的很不方便，只有每行前面加一個(gè)逗號(hào)來一行行注釋了，難道沒有更快的方法加注釋了，其實(shí)勇敢dreamweaver輕松實(shí)現(xiàn)2015-12-12
現(xiàn)在黑客經(jīng)常測(cè)試網(wǎng)站，一些網(wǎng)站經(jīng)常被各種注入，為程序員的成長(zhǎng)提供了比較緊迫的環(huán)境，所以大家在寫程序的時(shí)候一定要注意網(wǎng)站安全問題2006-10-10
asp 表格形式顯示數(shù)據(jù),方便多行多列內(nèi)容的輸出。2008-11-11
asp調(diào)用Word打印的代碼...2007-04-04