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(" if instr(UrlCity,"深圳")<>0 then response.Redirect(" if instr(UrlCity,"上海")<>0 then response.Redirect(" 由于IP庫超過1M,所以上傳不了,IP庫網上很多,code.VeVb.com 就有下載。上面只是其中一種方法.
新聞熱點
疑難解答