根据访问者IP自动转向不同网页的代码

代码其实很简单，下载个ip地址数据库进行结合即可。一般用于判断访问者来源，转向到相应的网站页面。

Function getIpvalue(clientIP)  '得到客户端的IP转换成长整型，返回值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://bj.leled.com)
if instr(UrlCity,"南京")<>0 then response.Redirect(“http://nj.leled.com”)

以上代码为asp核心代码,至于数据库连接需要自己另外根据网站数据库自己书写,IP数据库可以从网上下.

相关文章

ASP完美转化ACCESS为SQL数据库连..[02-17]

CMS全接触：淘特ASPCMS产品介绍/..[11-27]

如何IIS中调试ASP找500错误[10-26]

ASP网站编码转换乱码问题的解决与..[10-26]

ASP一小时快速入门[07-24]

MySQL和SQL Server 对比选择[06-26]

最新文章

ASP完美转化ACCESS为SQL数据库连..[02-17]

提高排名之10个增加外链的巧方法[01-31]

“色情网站”赚钱的真正秘密[01-27]

晒晒15天内让百度和google收录的..[01-27]

最佳搜索关键词的选择技巧[01-02]

域名买卖市场火爆 交易平台亟需规..[01-02]