通過ASP禁止指定IP和只允許指定IP訪問網(wǎng)站的代碼
更新時(shí)間：2011年10月19日 00:00:58 作者：
通過ASP禁止指定IP和只允許指定IP訪問網(wǎng)站的代碼，需要的朋友可以參考下。
一、禁止指定IP防問網(wǎng)站,并執(zhí)行相應(yīng)操作:
<%
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)操作:
<%
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
%>
三、實(shí)際應(yīng)用中的使用方法：
然后把上面其中的代碼另存為IP.asp文件，然后用下面方法在asp程序頁(yè)面加入下面代碼即可
<!-- #include file="IP.asp" -->
復(fù)制代碼 代碼如下:
<%
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
%>
三、實(shí)際應(yīng)用中的使用方法：
然后把上面其中的代碼另存為IP.asp文件，然后用下面方法在asp程序頁(yè)面加入下面代碼即可
<!-- #include file="IP.asp" -->
相關(guān)文章
asp下多種現(xiàn)在實(shí)現(xiàn)防止垃圾留言信息2008-04-04
在web開發(fā)中經(jīng)常遇到多關(guān)鍵詞對(duì)對(duì)單個(gè)字段查詢，我一般是通過動(dòng)態(tài)數(shù)組來實(shí)現(xiàn)的。當(dāng)然多個(gè)關(guān)鍵詞的一般是用空格或,隔開，我這幾假設(shè)多個(gè)關(guān)鍵詞用空格隔開,關(guān)鍵字字符串為keyStr，具體代碼為。2008-11-11
利用ActiveX控件InetCtls.Inet在ASP中實(shí)現(xiàn)新聞小偷
利用ActiveX控件InetCtls.Inet在ASP中實(shí)現(xiàn)新聞小偷...2007-02-02
這個(gè)函數(shù)多用來后臺(tái)表單設(shè)置，然后生成asp配置文件的函數(shù)，這樣不用每次都讀取數(shù)據(jù)庫(kù)，提高程序速度2008-04-04
不時(shí)有人問這種問題， js怎么傳值到asp, asp 怎么傳值到j(luò)s。 其實(shí)這個(gè)問題很經(jīng)典，我以前也犯過這種糊涂。2009-05-05
ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過來就可以了。2008-12-12
windows2003下使用asp WScript.Shell的設(shè)置方法
在windows2000下，IIS默認(rèn)設(shè)置是可以web和可執(zhí)行程序通信的。但是在2003下IIS關(guān)于這方面的服務(wù)是禁止的。2007-12-12
asp 取得用戶真實(shí)IP，對(duì)代理地址仍然有效的函數(shù)
這篇文章主要介紹了asp 取得用戶真實(shí)IP，對(duì)代理地址仍然有效的函數(shù),需要的朋友可以參考下2007-08-08
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼...2007-03-03
不用模板只用ASP+FSO生成靜態(tài)HTML頁(yè)的一個(gè)方法
不用模板只用ASP+FSO生成靜態(tài)HTML頁(yè)的一個(gè)方法...2006-09-09