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