蕾仔屋屋
-之黑色依然(未完成)
[技术]『 ASP-vbs,模仿聊天室里防止刷屏的函数 』 [原创] 阅读次数: 3442 作者：蕾仔 出处：ltroy@163.com加入时间：2005-8-4 1:05:47
<%
Function super_name(u_url)
session("time")=now() '读取时间
const a=#0:0:5# '定义相隔之间的秒数
if session("time2") >0 then
if session("time2")+a > session("time") then '
Response.Write "<script language=JavaScript>" & chr(13) & "alert('你发信息太快了！');" & "javascript:history.back(1);" & "</script>"
Response.end
end if
end if
session("time2")=now() '读取时间
%>
Function super_name(u_url)
session("time")=now() '读取时间
const a=#0:0:5# '定义相隔之间的秒数
if session("time2") >0 then
if session("time2")+a > session("time") then '
Response.Write "<script language=JavaScript>" & chr(13) & "alert('你发信息太快了！');" & "javascript:history.back(1);" & "</script>"
Response.end
end if
end if
session("time2")=now() '读取时间
%>
BLOG评论 [ 0 条] [我来说两句]
[ 还没有人说呢 ]