<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<% MyDbPath = "../"
dim obj
set obj = New admin_index
	obj.AspInit()
set obj = nothing

class admin_index
	Private Mesky
	Private Sub Class_Initialize()
		Set Mesky = New Cls_Main
		Founderr = False
	End Sub
	Private Sub Class_Terminate()
		Set Mesky = Nothing
	End Sub
	Public Sub AspInit()
		If Mesky.adminName = "" Then
			Mesky.strMsg = "<li>非法操作！你没有以管理员的身份登录到后台管理系统，3秒钟后自动转到登录界面。" & _
			"<LINK href=""admin.css"" type=text/css rel=stylesheet>" & _
			"<meta HTTP-EQUIV=REFRESH CONTENT='3; URL=../admin_login.asp'>"
			Call Mesky.SystemMsg
		Else
			Call Main
		End If
	End Sub
	Private Sub Main()
		Response.Write "<html>" & vbCrLf
		Response.Write "<head>" & vbCrLf
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
		Response.Write "<title>浙江软件园 V3.0 —— 后台管理　　　　　　　Powered By  Www.hz66.com.cn　　　　</title>" & vbCrLf
		Response.Write "</head>" & vbCrLf
		Response.Write "<frameset rows=""*"" cols=""181,*"" framespacing=""0"" frameborder=""1"" border=""false"" id=""frame"" scrolling=""yes"">" & vbCrLf
		Response.Write "  <frame name=""left"" scrolling=""auto"" marginwidth=""0"" marginheight=""0"" src=""Admin_Index_Left.asp"">" & vbCrLf
		Response.Write "  <frameset framespacing=""0"" border=""false"" rows=""22,*"" frameborder=""0"" scrolling=""yes"">" & vbCrLf
		Response.Write "    <frame name=""top"" scrolling=""no"" src=""Admin_Index_Top.asp"">" & vbCrLf
		Response.Write "    <frame name=""main"" scrolling=""auto"" src=""Admin_Index_Main.asp"">" & vbCrLf
		Response.Write "  </frameset>" & vbCrLf
		Response.Write "</frameset>" & vbCrLf
		Response.Write "<noframes>" & vbCrLf
		Response.Write "  <body leftmargin=""2"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
		Response.Write "  <p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p>" & vbCrLf
		Response.Write "  </body>" & vbCrLf
		Response.Write "</noframes>" & vbCrLf
		Response.Write "</html>" & vbCrLf
	End Sub
End class
%>