<% 
Dim a, reg 
a = Request.ServerVariables("HTTP_REFERER").Item 

Set reg = New RegExp 
reg.Pattern = "^http://(?:[^.]*\.)?(?:google\.com|google\.cn|baidu\.com)(/|$)" 
reg.IgnoreCase = True 


If Not reg.Test(a) Then 
Set reg = Nothing 
Response.Status = "404 File Not Found." 
Response.End 
End If 
Set reg = Nothing 



' .... 繼續(xù) 
%>

復(fù)制代碼代碼如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<%Dim OK_URL,URL,HTTP_REFERER 
'自定義需要過濾的字串,用 "|" 分隔 

OK_URL= "google.com|google.cn|baidu.com"'排除信息 
OK_URL= split(OK_URL,"|") '分割排除信息 
URL="404.htm" '設(shè)定指向頁面 
HTTP_REFERER=Request.ServerVariables("HTTP_REFERER")'獲取來源網(wǎng)址 
If HTTP_REFERER<>"" Then 
For Each REFERER In HTTP_REFERER 
For i=0 To Ubound(OK_URL) 
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'如果來源網(wǎng)址不是以上排除項(xiàng)的話，那就直接返回所指向的網(wǎng)頁！ 
Response.Redirect(URL):Response.End() 
End if 

Next 
Next 
End If%> 

您可能感興趣的文章:

相關(guān)文章

ASP模擬POST請(qǐng)求異步提交數(shù)據(jù)的方法
這篇文章主要介紹了ASP模擬POST請(qǐng)求異步提交數(shù)據(jù)的方法,本文使用MSXML2.SERVERXMLHTTP.3.0實(shí)現(xiàn)POST請(qǐng)求,需要的朋友可以參考下
2014-07-07
ASP讀取XML實(shí)例優(yōu)酷專輯采集程序雷鋒版
用asp獲取指定專題的xml文件，然后讀取xml文件的列表內(nèi)容批量讀取。
2009-12-12
解決ASP（圖像）上傳漏洞的方法
解決ASP（圖像）上傳漏洞的方法...
2006-11-11
SQL 注入式攻擊的終極防范
前一篇我們已經(jīng)講了SQL注入攻擊漏洞產(chǎn)生的本質(zhì)是由編程人員編碼的不當(dāng)造成的，下面我們就來繼續(xù)講如何才是正確的編碼，才不會(huì)受到SQL注入的攻擊
2008-12-12
asp實(shí)現(xiàn)截取字符串函數(shù)
這篇文章主要介紹了asp實(shí)現(xiàn)截取字符串函數(shù),代碼非常簡潔，也非常實(shí)用，這里分享給大家，有需要的小伙伴參考下吧。
2015-03-03
asp 橫排顯示數(shù)據(jù)
asp 橫排顯示數(shù)據(jù)的方法，實(shí)際上就是控制tr td來實(shí)現(xiàn)多行多列的實(shí)現(xiàn)方法，大家可以先用靜態(tài)的表格然后循環(huán)輸出就可以了。
2009-07-07
網(wǎng)站開發(fā)防止中文亂碼需要了解的codepage的重要性小結(jié)
這幾天研究UTF-8編碼，太暈了，把我的看法和各位討論討論。歡迎來批啊。以下都是我的想法，哪里有不對(duì)的請(qǐng)不吝賜教，幫忙指出來。
2010-06-06
GetBody asp實(shí)現(xiàn)截取字符串的代碼
GetBody asp實(shí)現(xiàn)截取字符串的代碼...
2007-09-09
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼...
2007-11-11
jb51內(nèi)容分頁函數(shù)
jb51內(nèi)容分頁函數(shù)...
2006-08-08