关于限制访问次数的问题！！

panjisheng 2002-01-12 03:17:14

各位好！！
我是新来的朋友，刚接触ASP 朋友们让我到这里来去经！！

我想要一个限制访问量的页面，具体内容是这样的
----------
一个ASP 页面在一个小时内，允许访问固定次数，如果访问次数大于“固定次数” 则 “报错”
判断如果距离最后一次成功访问页面的时间大于60分钟后重新统计访问次数！
-------------
谁能告诉我应该怎样做这个程序啊！？

...全文

372 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Soft21 2002-01-13

打赏
举报

大家好啊，好啊，Up!

wuxineyou 2002-01-12

打赏
举报

Global.asa
*****************************************************************************
<script language=vbscript runat=server>
Sub Application_OnStart
Application("userclick")=0
Application("starttime")=now()
End Sub
</script>
*****************************************************************************
default.asp
*****************************************************************************


<%
'阿游友情提供
Application.Lock
Application("userclick")=Application("userclick")+1
Application.UnLock
const vthmax=100 '默认限制为100次
const pertime=3600 '默认限制为3600秒
'计算时间差(精确到秒)
nowtime=now()
if datediff("s",datevalue(Application("starttime")),datevalue(nowtime))>=86400

then
daydiff=datediff("s",datevalue(Application("starttime")),datevalue(nowtime))
else
daydiff=0
end if
starthour=hour(Application("starttime"))
startminute=minute(Application("starttime"))
startsecond=second(Application("starttime"))
endhour=hour(nowtime)
endminute=minute(nowtime)
endsecond=second(nowtime)
hourdiff=(endhour-starthour)*3600
minutediff=(endminute-startminute)*60
seconddiff=endsecond-startsecond
timediff=daydiff+hourdiff+minutediff+seconddiff
'计算时间差代码结束
if timediff<=pertime then
if Application("userclick")>vthmax then
response.write "Sorry!您是自"&Application("starttime")&"算起，在"&pertime&"

秒时间内第"&Application("userclick")&"位来访者，您的这次访问超过了本站规定

每"&pertime&"秒时间内最多"&vthmax&"位访客的限制，请稍后再来！"
response.end
end if
else
Application.Lock
Application("starttime")=now()
Application("userclick")=0
Application.UnLock
end if
%>

<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Homepage</title>
</head>
<body>
<p>正常访问！"您是自<%=Application("starttime")%>算起，在<%=pertime%>秒时间内第

<%=Application("userclick")%>位来访者。</p>
</body>
</html>
*****************************************************************************
在iis5.1+ie6下调试通过！

panjisheng 2002-01-12