防止网站内容被小偷采集的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 
%>

时间： 2024-10-14 18:37:08

防止网站内容被小偷采集的ASP代码_应用技巧的相关文章

防止网站内容被小偷采集的ASP代码

复制代码 代码如下: 防止一般的采集以及小偷读取,加在顶部.同理,可以改造成JS脚本. <%  Dim AppealNum,AppealCount  AppealNum=10 '同一IP60秒内请求限制10次  AppealCount=Request.Cookies("AppealCount")  If AppealCount="" Then  response.Cookies("AppealCount")=1  AppealCount=1

防止网站内容被小偷采集的js代码

js|采集 function setCookie(name, value, expires, path, domain, secure) {         var curCookie = name + "=" + escape(value) +                 ((expires) ? "; expires=" + expires.toGMTString() : "") +                 ((path) ? &

值得收藏的一些HTML、JavaScript、ASP代码_应用技巧

1. CDONTS.NewMail 组件使用说明   Set MailObject = Server.CreateObject("CDONTS.NewMail")   MailObject.From = "发信邮箱"   MailObject.To = "收信邮箱"   MailObject.Cc = "抄送邮箱"   MailObject.Bcc = "密送邮箱"   MailObject.Subject

适合所有网站的rss和xml聚合功能asp代码_应用技巧

rss.asp格式的 下面代码保存为rss.asp 复制代码 代码如下: <!--#include file="conn.asp"--> <% strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariables("script_name"),len(request.server

记录asp.net网站是什么原因导致停止运行的代码_实用技巧

记录网站是什么原因导致停止运行还是有必要的,下面是具体的实现方式. 复制代码 代码如下: protected void Application_End(object sender, EventArgs e) { RecordEndReason(); } /// <summary> /// 记录网站停止运行原因 /// </summary> protected void RecordEndReason() { HttpRuntime runtime = (HttpRuntime)ty

asp中获取内容中所有图片与获取内容中第一个图片的代码_应用技巧

复制代码 代码如下: '===================================== '获取内容中所有图片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Match t1="" IF Not(IsNull(t0) Or Len(t0)=0) Then Set Regs=New RegExp Regs.Pattern="<img

isnumeric检测是否为数字类型的asp代码_应用技巧

ASP判断是否为数字通常用isnumeric()函数,它的作用是判断里面的参数表达式是不是数值,用法:IsNumeric(内容),如果"内容"最终运算结果为数字,则 IsNumeric 返回 True:否则返回 False.如果 expression 是日期表达式,则 IsNumeric 返回 False. ASP判断是否为数字的具体例子: 复制代码 代码如下: <% if isNumeric(内容)  then Response.Write("是数字") e

动网防恶意广告比较有效的办法附asp代码_应用技巧

1.   进入后台,风格界面模板总管理,page_login,template.html(13)  <TR> <TD class=tablebody1><B>密码问题</B>:<BR>忘记密码的提示问题</TD> 在此两句上面添加如下代码  <TR> <TD class=tablebody1> <div style="color:red"><b>反论坛群发必填项:&l

实用301转向到另一域名相应页面的asp代码_应用技巧

前几天,为了增强本站的SEO,着手把另一个域名:www.kanshule.com下的所有页面301转向到www.jb51.net下. 由于本站目前只有一个博客,于是从博客上入手. 思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向. 代码如下: 复制代码 代码如下: <% Dim toDomain,fromDomain,curDomain,q,p,url toDomain=www.jb51.net fromDomain="kanshule.co