<% 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 %>
|
||
|
| 网站首页 | 全脑速读文章 | 速读记忆书城 | 淘宝店 | 在线学外语 | 医学教育培训 | 精英推广联盟 | 中华会计网校 | 快速阅读课程 | | |
|
|
|
|
|
|
||||
|
||||||
 |
|
 |
|
||||||||
|
|
 |
|
 |
