通過(guò)ASP禁止指定IP和只允許指定IP訪(fǎng)問(wèn)網(wǎng)站的代碼
更新時(shí)間：2011年10月19日 00:00:58 作者：
通過(guò)ASP禁止指定IP和只允許指定IP訪(fǎng)問(wèn)網(wǎng)站的代碼，需要的朋友可以參考下。
一、禁止指定IP防問(wèn)網(wǎng)站,并執(zhí)行相應(yīng)操作:
<%
Dim IP,IPString,VisitIP
'設(shè)置IP地址，用“|”隔開(kāi)
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禁止訪(fǎng)問(wèn)"
response.end
End If
%>
二、把代碼修改一下，只允許指定IP防問(wèn)網(wǎng)站,并執(zhí)行相應(yīng)操作:
<%
Dim IP,IPString,VisitIP
'設(shè)置IP地址，用“|”隔開(kāi)
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可以訪(fǎng)問(wèn)"
else
'不符合的IP執(zhí)行相應(yīng)的操作
Response.write "您所在的IP禁止訪(fǎng)問(wèn)"
response.end
End If
%>
三、實(shí)際應(yīng)用中的使用方法：
然后把上面其中的代碼另存為IP.asp文件，然后用下面方法在asp程序頁(yè)面加入下面代碼即可
<!-- #include file="IP.asp" -->
復(fù)制代碼 代碼如下:
<%
Dim IP,IPString,VisitIP
'設(shè)置IP地址，用“|”隔開(kāi)
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禁止訪(fǎng)問(wèn)"
response.end
End If
%>
二、把代碼修改一下，只允許指定IP防問(wèn)網(wǎng)站,并執(zhí)行相應(yīng)操作:
復(fù)制代碼 代碼如下:
<%
Dim IP,IPString,VisitIP
'設(shè)置IP地址，用“|”隔開(kāi)
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可以訪(fǎng)問(wèn)"
else
'不符合的IP執(zhí)行相應(yīng)的操作
Response.write "您所在的IP禁止訪(fǎng)問(wèn)"
response.end
End If
%>
三、實(shí)際應(yīng)用中的使用方法：
然后把上面其中的代碼另存為IP.asp文件，然后用下面方法在asp程序頁(yè)面加入下面代碼即可
<!-- #include file="IP.asp" -->
您可能感興趣的文章:
- ASP.net做的IP訪(fǎng)問(wèn)限制
- 用ASP代碼實(shí)現(xiàn)對(duì)IP的訪(fǎng)問(wèn)限制的代碼
- Asp下實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)的程序代碼
- 用asp腳本實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)
- 推薦的用Asp實(shí)現(xiàn)屏蔽IP地址訪(fǎng)問(wèn)的代碼
- ADSI+ASP添加IP到IIS禁止訪(fǎng)問(wèn)列表中
- 記錄游客頁(yè)面訪(fǎng)問(wèn)IP的簡(jiǎn)易實(shí)現(xiàn)代碼 (asp.net+txt)
- Asp限制IP訪(fǎng)問(wèn) 阻止某一個(gè)IP段禁止訪(fǎng)問(wèn)本站的代碼
- asp實(shí)現(xiàn)限制一個(gè)ip只能訪(fǎng)問(wèn)一次的方法
相關(guān)文章
asp下多種現(xiàn)在實(shí)現(xiàn)防止垃圾留言信息2008-04-04
ASP 多關(guān)鍵詞查詢(xún)實(shí)例代碼
在web開(kāi)發(fā)中經(jīng)常遇到多關(guān)鍵詞對(duì)對(duì)單個(gè)字段查詢(xún)，我一般是通過(guò)動(dòng)態(tài)數(shù)組來(lái)實(shí)現(xiàn)的。當(dāng)然多個(gè)關(guān)鍵詞的一般是用空格或,隔開(kāi)，我這幾假設(shè)多個(gè)關(guān)鍵詞用空格隔開(kāi),關(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ù)多用來(lái)后臺(tái)表單設(shè)置，然后生成asp配置文件的函數(shù)，這樣不用每次都讀取數(shù)據(jù)庫(kù)，提高程序速度2008-04-04
不時(shí)有人問(wèn)這種問(wèn)題， js怎么傳值到asp, asp 怎么傳值到j(luò)s。 其實(shí)這個(gè)問(wèn)題很經(jīng)典，我以前也犯過(guò)這種糊涂。2009-05-05
ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過(guò)來(lái)就可以了。2008-12-12
windows2003下使用asp WScript.Shell的設(shè)置方法
在windows2000下，IIS默認(rèn)設(shè)置是可以web和可執(zhí)行程序通信的。但是在2003下IIS關(guān)于這方面的服務(wù)是禁止的。2007-12-12
asp 取得用戶(hù)真實(shí)IP，對(duì)代理地址仍然有效的函數(shù)
這篇文章主要介紹了asp 取得用戶(hù)真實(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