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("µÇ¼ʧ°Ü","µ±Ç°µ