asp 根据ip跳转

<%
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

%>

posted on 2013-04-20 20:23  巍 巍  阅读(212)  评论(0编辑  收藏  举报

导航