<body >
<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
http = Request.ServerVariables("HTTP_REFERER") 
if InStr(http,"work/famu")=0 then 
Response.Write "<script language=javascript>{alert('对不起，程序拒绝您的操作！！！\n     按确定返回！');parent.history.go(-1);}</script>" 
Response.End 
end if 
sj=DateDiff("s",session("zhbg_sj"),now())
if sj<13 then
	Response.Write "<script language=JavaScript>{alert('提示：请不要使用变速软件！');window.close();}</script>"
	Response.End
end if	
session("zhbg_sj")=now()
Session("zhbg_jl")=Session("zhbg_jl")+1
Response.Write "<script language=JavaScript>{parent.show.fm2.innerHTML="&int(Session("zhbg_jl")/3)&";parent.show.fm3.innerHTML="&Session("zhbg_jl") mod 3&";}</script>"
%>
