實(shí)現(xiàn)ASP頁(yè)面的防采集_ASP教程

推薦：解讀提高M(jìn)SSQL和ACCESS兼容性的方法
大家都知道ASP當(dāng)中，最常用到的是ACCESS和MSSQL兩個(gè)數(shù)據(jù)庫(kù)。很多程序都想開(kāi)發(fā)成兩個(gè)數(shù)據(jù)庫(kù)都可以使用的模式，但是礙于兩個(gè)數(shù)據(jù)庫(kù)得一些SQL語(yǔ)句不一致，所以導(dǎo)致很多程序都分兩個(gè)沒(méi)有必要的版本，就是ACCESS和MSSQL版！而事實(shí)上，我們可以通過(guò)對(duì)代碼判斷和識(shí)

自己寫了一段防小偷采集的代碼,與大家交流交流!

用法:
單獨(dú)保存一個(gè)文件如(no.asp);
在相應(yīng)的asp頁(yè)面頭部用<!--#include file="no.asp" -->加入即可!

<%
'****************************************
'* 網(wǎng)頁(yè)防采集實(shí)現(xiàn) *
'****************************************
dim onlyURL,from

'***指定來(lái)源網(wǎng)址...
onlyURL="/"

from=trim(request.serverVariables("HTTP_REFERER"))
if from="" then
'***來(lái)源為空:可能直接輸入網(wǎng)址或小偷...
response.write "<div style='display:none'><p>拒絕小偷!!!"
response.write "<p>來(lái)自:" & from
response.write "<p>請(qǐng)?jiān)L問(wèn):<a href='" & onlyURL & "'>" & onlyURL &"</a>"
response.write "<p><form name='blankForm' method=get action=''></form>"
response.write "<p><script language=""JavaScript"">blankForm.submit()</script>" & vbCRLF
response.end
else
if inStr(from,onlyURL)<>1 then
'***非指定來(lái)源:盜鏈...
response.write "<div style='display:none'><p>拒絕盜鏈!!!"
response.write "<p>來(lái)自:" & from
response.write "<p>請(qǐng)?jiān)L問(wèn):<a href='" & onlyURL & "'>" & onlyURL &"</a>"
response.write "<p><form name='blankForm' method=get action=''></form>"
response.write "<p><script language=""JavaScript"">blankForm.submit()</script>"
response.end
else
'***來(lái)源正常,將訪問(wèn)后面的內(nèi)容...
end if
end if
%>

來(lái)源：CSDN

分享：解析ASP隱藏下載地址及防盜代碼
以下為引用的內(nèi)容：