Function getIpvalue(clientIP) '取得客戶端的IP轉換成整數型,傳回值getIpvalue
出錯時繼續下一步
暗淡 strIp,array_Ip
條帶=0
array_Ip = Split(客戶端IP,".")
如果 UBound(array_Ip)<>3 那麼
取得IP值=0
退出功能
結束如果
對於 i=0 到 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
下一個
取得Ip值=strIp
如果出錯則 getIpvalue=0
結束功能
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="從 [Ipaddress] 中選擇前 1 個城市,其中“&IpValue&”位於 Ip1 和 Ip2 之間”
設定 RsIp=conn.execute(strSql)
如果 RsIp.bof 和 RsIp.eof 那麼
UrlCity=“未知”
別的
UrlCity=RsIp.Fields.Item("城市").Value
End If
if instr(UrlCity,"廣州")<>0 then response.Redirect(" http://code.knowsky.com ")
if instr(UrlCity,"深圳")<>0 then response.Redirect(" http://moban.knowsky.com ")
if instr(UrlCity,"上海")<>0 then response.Redirect(" http://font.knowsky.com ")
由於IP庫超過1M,所以上傳不了,IP庫網上很多,code.knowsky.com就有下載。