防止網站內容被人小偷和採集的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
%>
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.