- ·上一篇文章:asp实现同网站不同目录帮定不同域名
- ·下一篇文章:使用md5给实际字符串加密码
asp网站防采集代码
今天在网上看到防采集代码,我把它放到这里与大家共享。
此代码的缺点是:也防了蜘蛛。
<
% 
Dim 
AppealNum,AppealCount 
AppealNum=10 
&
#39
同一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 
&
#39
同一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网站防采集代码