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