ASP實現(xiàn)防止網(wǎng)站被采集代碼
更新時間:2009年11月12日 20:49:45 作者:
ASP實現(xiàn)防止網(wǎng)站被采集代碼,是個不錯的思路,但現(xiàn)在都是生成靜態(tài)的了。
復(fù)制代碼 代碼如下:
<%
Dim AppealNum,AppealCount
AppealNum=10 '同一IP60秒內(nèi)請求限制10次
AppealCount=Request.Cookies("AppealCount")
If AppealCount="" Then
Response.Cookies("AppealCount")=1
AppealCount=1
Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now())
Else
Response.Cookies("AppealCount")=AppealCount+1
Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now())
End If
If Int(AppealCount)>Int(AppealNum) Then
Response.Write "抓取很累,歇一會兒吧!"
Response.end
End If
%>
相關(guān)文章
asp中記錄集對象的getrows和getstring用法分析
asp中記錄集對象的getrows和getstring用法分析,需要的朋友可以參考下2012-03-03
錯誤類型:Provider (0x80004005)未指定的錯誤 的一個處理方法
一般情況下asp可以正常運行,但只要連接數(shù)據(jù)庫就提示,Microsoft JET Database Engine 錯誤'80004005'2007-04-04

