asp限制IP登陆

<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>

 

 

Dim UserIP
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : UserIP = Trim(Replace(UserIP,"'",""))

If UserIP="192.168.1.2" Then

Response.Write "欢迎**网吧"

Else

Response.Write "欢迎光临"

End If




<%
'如果只有两三个IP,如下方法：
If UserIP="192.168.1.2" Or UserIP="222.231.31.46" Then
Response.Write "欢迎**网吧"
Else
Response.Write "欢迎光临"
End If




####################################################################



'如果有多个条件IP，可以写一个处理多个IP的函数：
Public Sub Welcome(ByVal IPs, ByVal UserIP, ByVal InternetBarName)
Dim i,Authorization
Authorization = False
IPs = Split(IPs,"|")
For i = 0 To UBound(IPs)
If Trim(IPs(i)) = UserIP Then
Authorization = True
Exit For
End If
Next

If Authorization = True
Response.Write "欢迎光临"&InternetBarName
Else
Response.Write "欢迎光临"
End If
End Sub




' 然后在需要的地方调用 Welcome(ByVal IPs,ByVal UserIP,ByVal InternetBarName) 函数就可以，例如：
Dim UserIP, IPs

UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : UserIP = Trim(Replace(UserIP,"'",""))

'多个IP用 | 分割开就行了
IPs = "192.168.1.2|222.231.31.46|222.231.31.47|222.231.31.48|222.231.31.49|222.231.31.50" '......

'执行调用函数就OK了
Welcome(IPs,UserIP,"XX网吧")

%>

 

 

 

'=================================IP验证 Begin==============================================
HOPE_Ip=Request.ServerVariables("REMOTE_ADDR")

Set rs=Server.Createobject("Adodb.recordset")
    Sql="Select * From Websen_IPSet"
    rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
   if rs("HOPE_IP")=HOPE_Ip then
    Call HOPE_err("登录失败","当前登录的IP地址已经锁定<br><br>请联系系统管理员!","返回上一页","javascript:history.go(-1);")
    Response.end
   end if
rs.movenext
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
'=================================IP验证 End==============================================