ASP實(shí)現(xiàn)防止網(wǎng)站被采集代碼
更新時(shí)間:2009年11月12日 20:49:45 作者:
ASP實(shí)現(xiàn)防止網(wǎng)站被采集代碼,是個(gè)不錯(cuò)的思路,但現(xiàn)在都是生成靜態(tài)的了。
復(fù)制代碼 代碼如下:
<%
Dim AppealNum,AppealCount
AppealNum=10 '同一IP60秒內(nèi)請(qǐng)求限制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 "抓取很累,歇一會(huì)兒吧!"
Response.end
End If
%>
相關(guān)文章
asp中記錄集對(duì)象的getrows和getstring用法分析
asp中記錄集對(duì)象的getrows和getstring用法分析,需要的朋友可以參考下2012-03-03
asp簡(jiǎn)單生成靜態(tài)的方法(模板標(biāo)簽替換)
asp簡(jiǎn)單生成靜態(tài)的方法,今天看了詞典工具里面的代碼,比較簡(jiǎn)單,需要的朋友可以參考下。2011-03-03
asp實(shí)現(xiàn)本周的一周時(shí)間列表的代碼
原理也相對(duì)簡(jiǎn)單,就是利用date函數(shù)獲取日期,然后通過(guò)固定的字符串?dāng)?shù)組進(jìn)行替換。2009-02-02
ASP + Serv-u 實(shí)現(xiàn)FTP的代碼
ASP + Serv-u 實(shí)現(xiàn)FTP的代碼...2006-10-10
錯(cuò)誤類(lèi)型:Provider (0x80004005)未指定的錯(cuò)誤 的一個(gè)處理方法
一般情況下asp可以正常運(yùn)行,但只要連接數(shù)據(jù)庫(kù)就提示,Microsoft JET Database Engine 錯(cuò)誤'80004005'2007-04-04
ASP把長(zhǎng)的數(shù)字用逗號(hào)隔開(kāi)顯示的代碼
對(duì)于一些比較長(zhǎng)的數(shù)字,我們可以用asp實(shí)現(xiàn)隔開(kāi)顯示,尤其是一些金錢(qián)相關(guān)的東西2008-06-06

