checkwarn.asp

花了2000元买来的,可以使用的自助建站源码-人力资源的

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