checkwarn.asp

来自「一个不错的企业网站源代码！」· ASP 代码 · 共 27 行

<%@ Language=VBScript%>
<!-- #include file="../links.asp" -->
<%
Response.Buffer=false
Response.Expires=0
if session("adminusername")="" then
		session("xhy")=1
		Response.Redirect linkwarn
	else
		httpadd=Request.QueryString("httpadd")
		if httpadd="0" then
				session("cpflag")=0
				Response.Write("<script language=Javascript>")
				Response.Write("window.top.location.reload();")
				Response.Write("window.close();")
				Response.Write("</script>")
		elseif httpadd="9" then	
				session("cpflag")=9
				Response.Write("<script language=Javascript>")
				Response.Write("window.top.location.reload();")
				Response.Write("window.close();")
				Response.Write("</script>")
			else
				Response.Redirect httpadd
		end if
end if
%>