<%
'定义提示文本，并禁止缓存
Const Text1="<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>提示</title><meta http-equiv=pragma content=no-cache>"
Const Text2="</head><body></body></html>"
'定义一个弹出提示框并返回上页的函数
sub setAlert(str)
   response.write Text1&"<SCRIPT language=JavaScript>alert('"&str&"');javascript:history.go(-1)</SCRIPT>"&Text2
   response.end
end sub
'定义一个弹出提示框并返回上上页的函数
sub setAlert2(str)
   response.write Text1&"<SCRIPT language=JavaScript>alert('"&str&"');javascript:history.go(-2)</SCRIPT>"&Text2
   response.end
end sub
'定义一个弹出提示框并转向目标页的函数
sub pageTo(alerttext,topage)
   response.write Text1&"<SCRIPT language=JavaScript>alert('"&alerttext&"');location.href='"&topage&"';</SCRIPT>"&Text2
   response.end
end sub
'定义一个弹出提示框并关闭窗口的函数
sub closewin(alerttext)
   response.write Text1&"<SCRIPT language=JavaScript>alert('"&alerttext&"');window.close();</SCRIPT>"&Text2
   response.end
end sub
%>