asp 根据ip跳转
2013-04-20 20:23
197 查看
<%
IPsum=0
iparr=Split(getIP(),".")
For i= 0 To 2
IP1=cint(iparr(i))*(256^(2-i))
IPsum=IP1+IPsum
Next
sqlsqlsql="select top 1 ip1 form A where ip1<="&IPsum&" and ip2>="&IPsum&" "
set rsrsrsrs=server.createobject("ADODB.recordset")
set connconnconn=server.createobject("ADODB.connection")
connconnconn.open "dbq="+server.mappath("sdsdddds.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
rsrsrsrs.open sqlsqlsql,connconnconn,1,1
If (rsrsrsrs.eof and rsrsrsrs.bof) Then
response.redirect "http://sjz.fangku.com/"
End If
rsrsrsrs.close
set rsrsrsrs=Nothing
Public Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
actforip = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
actforip = Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
actforip = Request.ServerVariables("REMOTE_ADDR")
End If
getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
End Function
%>
IPsum=0
iparr=Split(getIP(),".")
For i= 0 To 2
IP1=cint(iparr(i))*(256^(2-i))
IPsum=IP1+IPsum
Next
sqlsqlsql="select top 1 ip1 form A where ip1<="&IPsum&" and ip2>="&IPsum&" "
set rsrsrsrs=server.createobject("ADODB.recordset")
set connconnconn=server.createobject("ADODB.connection")
connconnconn.open "dbq="+server.mappath("sdsdddds.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
rsrsrsrs.open sqlsqlsql,connconnconn,1,1
If (rsrsrsrs.eof and rsrsrsrs.bof) Then
response.redirect "http://sjz.fangku.com/"
End If
rsrsrsrs.close
set rsrsrsrs=Nothing
Public Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
actforip = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
actforip = Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
actforip = Request.ServerVariables("REMOTE_ADDR")
End If
getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
End Function
%>
相关文章推荐
- asp.net网站首页根据IP自动跳转指定页面的示例
- 一种基于自定义代码的asp.net网站首页根据IP自动跳转指定页面的方法!
- 一种基于自定义代码的asp.net网站首页根据IP自动跳转指定页面的方法!
- asp.net网站首页根据IP自动跳转指定页面的示例
- ASP根据IP来判断跳转页面
- 一种基于自定义代码的asp.net网站首页根据IP自动跳转指定页面的方法!
- ASP根据IP来判断跳转页面
- asp.net根据域名查ip C#版
- ASP.Net 根据IP获取所在省市地址
- asp.net实现根据IP获取当地天气预报
- ASP.NET实现根据IP获取省市地址的方法
- IIS&ASP.NET 站点IP跳转到域名
- 修改Chrome默认搜索引擎为Google.com(不会再根据ip进行跳转)
- 如何使用 asp.net 4.0 新特性 路由功能 有助于seo优化 给一个 asp.net web项目(网站项目) 增加路由功能 ,继承,给根据路由生成的url的结尾,增加一个有利于seo优化的斜杠 /,跳转到一个路由生成的url页面
- 根据IP自动跳转地区页面功能实现
- dede首页添加根据IP访问区域跳转对应页面
- asp.net 2.0根据域名查ip C#版
- asp.net根据ip获得城市地址
- PHP根据IP跳转不同城市代码
- 用asp.net实现根据IP获取当地天气预报