防止网站内容被人小偷和采集的ASP代码
防止一般的采集以及小偷读取,加在顶部。同理,可以改造成JS脚本。
<%
Dim AppealNum, AppealCount
AppealNum = 10 '同一IP60秒内请求限制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
%>
<%
Dim AppealNum, AppealCount
AppealNum = 10 '同一IP60秒内请求限制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
%>
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.