<% Dim IP,IPString,VisitIP '設(shè)置IP地址，用“|”隔開 IPString="|192.168.0.42|192.168.0.43|" '獲取IP地址 IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If VisitIP="|"&IP&"|" If instr(1,IPString,VisitIP)>0 Then '符合禁止的IP執(zhí)行相應(yīng)的操作 Response.write "您所在的IP禁止訪問" response.end End If %>
二、把代碼修改一下，只允許指定IP防問網(wǎng)站,并執(zhí)行相應(yīng)操作:
復(fù)制代碼 代碼如下:
<% Dim IP,IPString,VisitIP '設(shè)置IP地址，用“|”隔開 IPString="|192.168.0.42|192.168.0.42|" '獲取IP地址 IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If VisitIP="|"&IP&"|" If instr(1,IPString,VisitIP)>0 Then '符合的IP執(zhí)行相應(yīng)的操作 Response.write 您所在的IP可以訪問" else '不符合的IP執(zhí)行相應(yīng)的操作 Response.write "您所在的IP禁止訪問" response.end End If %>
