根据IP地址自动判断转向分站的代码

时间:2009-02-04 04:07:17  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:r />getIpvalue=0Exit FunctionEnd IfFor i=0 To 3strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))NextgetIpvalue=strIpIf Err Then getIpvalue=0End Function clientIP=request.ServerVariables("REMOTE_HOST")IpValue=getIpvalue(clientIP)strSql="select to...
  正文:

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://www.jzxue.com")
if instr(UrlCity,"深圳")<>0 then response.Redirect("http://www1.jzxue.com")
if instr(UrlCity,"上海")<>0 then response.Redirect(http://www2.jzxue.com)
以上代码ASP/ target=_blank class=infotextkey>asp核心代码,至于数据库连接需要自己另外根据网站数据库自己书写,IP数据库可以从网上下.

根据IP地址自动判断转向分站的代码》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2009-02-04/8928.html


关键字:

关于《根据IP地址自动判断转向分站的代码》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td