新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › 跪求了!!同一页面,同一IP,一分钟内只允许刷新10次,的代 ...

查看: 64|回复: 5

跪求了!!同一页面,同一IP,一分钟内只允许刷新10次,的代码!ASP代码

[复制链接]

兲外☆飛唬

电梯直达

1^#

发表于 2010-1-10 06:50:40 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

以前看见过一个ASP代码, 就是同一页面,同一IP,一分钟内只允许刷新10次的ASP代码,

网上有好多禁止刷新的, 可都是几秒钟内,禁止刷新,没有用,

我要的是同一IP,一分钟内只允许刷新10次的ASP代码,

帮帮忙,谢谢了!

收藏0

使用道具举报

蓝血腥人

2^#

发表于 2010-1-10 06:50:44 | 只看该作者

<%
'我用Session代替IP。
If Session(lastTime)=Nothing Then Session("lastTime")=CStr(Hour(Now) & "_" & Minute(Now))
If Session("lastTime")=CStr(Hour(Now) & "_" & Minute(Now)) Then
If Session("lastTimeCount")=Nothing Then
Session("lastTimeCount")=1
Else
Session("lastTimeCount")=Session("lastTimeCount")+1
End If
Else
Session("lastTime")=CStr(Hour(Now) & "_" & Minute(Now))
End If
if Session("lastTimeCount")>10 Then
Response.End
End If
%>

随便写的，可能在=Nothing那里有写法错误，那就换成别的判断为空的方法，最近在看别的语言，忘了一些。
另外，我用Session代替IP，用服务器的分钟，即1分30秒到2分30秒是允许刷新20次的。

回复支持反对

使用道具举报

林枫

3^#

发表于 2010-1-10 06:50:48 | 只看该作者

其实我主要是想说明一个思路。不晓得你学到点什么没有。

确实错得厉害，一个是关于Nothing的判断上，一个是CStr函数用错了，还有就是有一个拼写错误。

刚才测试了也修改了，代码附在后面。一点点写一点点改，代码确实看起来比较累赘。

程序代码：
<%
If Session("lastTime")="" Then Session("lastTime")=Hour(Now) & "_" & Minute(Now)
If Session("lastTime")<>Hour(Now) & "_" & Minute(Now) Then
  Session("lastTime")=Hour(Now) & "_" & Minute(Now)
  Session("lastTimeCount")=0
End If
If Session("lastTime")=Hour(Now) & "_" & Minute(Now) Then
  If Session("lastTimeCount")="" Then
   Session("lastTimeCount")=1
  Else
   Session("lastTimeCount")=Session("lastTimeCount")+1
  End If
Else
Session("lastTime")=Hour(Now) & "_" & Minute(Now)
End If
if Session("lastTimeCount")>10 Then
  Response.End
End If
%>

回复支持反对

使用道具举报

52巧克力aiq

4^#

发表于 2010-1-10 06:50:52 | 只看该作者

不行,错的历害!!

回复支持反对

使用道具举报

若叶花吹雪

5^#

发表于 2010-1-10 06:50:56 | 只看该作者

的确上面写错好多代码…………

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册