6.asp

来自「这是去年开发的中移鼎讯手机进销存系统 大家」· ASP 代码 · 共 37 行

<%   
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())<cint(shuaxin_time) then   
		response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制，请不要在<b><font color=ff0000>"&shuaxin_time&"</font></b>秒内连续刷新本页面<BR>正在打开页面，请稍候……"   
		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   

Function Reflash()
	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())<cint(shuaxin_time) then 
			Response.Write("禁止刷新此页")
			Response.end
		end if
	end if
End Function

%>