|
|
| |
|
| |
| |
| 用ASP实现禁止刷新当前页的方法 |
|
[ 2008-4-18 11:06:00 | By: ronglitai ] |
方法1:
代码：
Dim SplitReflashPage
Dim DoReflashPage
dim shuaxin_time
DoReflashPage=true
shuaxin_time=10
ReflashTime=Now()
if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then
if DateDiff("s",session("ReflashTime"),Now())response.write " 本页面起用了防刷新机制，请不要在"&shuaxin_time&"秒内连续刷新本页面
正在打开页面，请稍候……"
response.end
else
session("ReflashTime")=Now()
end if
elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then
Session("ReflashTime")=Now()
end if
randomize timer
regjm=int(rnd*8998)+1000
方法2:
代码：
Dim URL
If DateDiff("s",Request.s("oesun")("vitistime"),Now())<2 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write(" ")
Response.Write("防刷新,两秒后自动跳转")
Response.End
End IF
Response.s("oesun")("vitistime")=Now()
--------------------------------------------------------------------------------
镕立泰是北京一家互联网基础服务提供商,主要面向中小企业专业提供--双线虚拟主机,北京双线虚拟主机,FTP空间,纯FTP空间,asp网站空间,PHP网站空间,全能空间,虚拟主机,北京网站维护,北京网站改版,北京网站建设,大兴网站建设,北京网站建设,网站建设,网站设计,网站制作,网站维护,网站改版,网站建设公司,网址注册,通用网址,国际域名注册(.com/.net/.org),国内域名注册查询(.cn/.com.cn/.net.cn/.org.cn/.gov.cn/.bj.cn),域名申请,主机租用,企业邮箱,企业邮局,网站定制,北京网站定制,263企业邮箱,主机托管,三维动画,演示动画,智能建站,自助建站，九天智能建站,等服务,镕立泰是北京263企业邮箱金牌代理商,为企业公司提供263企业邮箱,企业邮局,企业邮件,企业G邮局,企业邮局提供商等多项邮箱服务,倾力于互联网信息服务,电子商务服务等高新技术工作,镕立泰拥有全国领先的网络带宽资源、电子商务方案解决实力,相信我们,重在优质,信誉第一!凭借多年的互联网服务经验为企业公司提供专业便捷的服务！镕立泰热线:010-81282399 www.ronglitai.com"
本日志相关的主题：
|
| 发表评论：
| | |
|
