您现在的位置是：网站首页> 编程资料编程资料
ASP实现防止网站被采集代码_应用技巧_
2023-05-25
243人已围观
简介 ASP实现防止网站被采集代码_应用技巧_
复制代码 代码如下:
<%
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
%>
相关内容
- ASP向Excel导数据(图片)终结版 ASP操作Excel_应用技巧_
- ASP 常见的连接字符串写法(access2007)_ASP基础_
- ASP 高级模板引擎实现类_应用技巧_
- asp 自定义分段函数/求第N名成绩_数据库相关_
- asp 实现的冒泡排序程序_应用技巧_
- ASP 调用dll及封装dll实例_应用技巧_
- asp 获取url函数小结_应用技巧_
- asp 判断上传文件中是否存在危险代码_木马相关_
- asp 取一个数的整数 但不是四舍五入，只要有小数，就取大于这个数的整数_应用技巧_
- asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法。_应用技巧_
