<% Option Explicit %>
<!--#include file="../../Inc/Function.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0602") then Call ReturnError1()
Dim UpFilesPath,Files,DummConfigObj
Set DummConfigObj = Conn.Execute("Select DoMain from Config")
UpFilesPath = "/" & SysRootDir
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÐéÄâÄ¿Â¼¹ÜÀí</title>
</head>
<link href="../CSS/css.css" rel="stylesheet">
<body topmargin="1" leftmargin="0">
<iframe id="MenuWindow" scrolling="yes" src="DummyMenu.asp" style="width:20%;height:100%;"  frameborder=1></iframe>
<iframe id="OpreateWindow" scrolling="yes" src="DummyList.asp?Path=<% = UpFilesPath %>" style="width:80%;height:100%;" frameborder=1></iframe>
</body>
</html>
