<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/System_Language.asp" -->
<!--#include file="../Include/Version.Asp" -->
<!--#include file="CheckAdmin.Asp"-->
<%
'*********************************************
'软件名称：电家企业网站内容管理系统
'软件开发：电脑家园工作室
'网   址：http://www.537600.cn
'服务QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：diannaojiayuan
'*********************************************
%>
<!DOCTYPE html>
<html lang="zh-cn">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="<%=DianJiaCMS_Lang_Copyright(13)%>">
<meta name="author" content="<%=DianJiaCMS_Lang_Copyright(3)%>">
<title><%=DianJiaCMS_Lang_Copyright(1)%> <%=Soft_Version%></title>
<!--#Include file="DianJiaCMS_Css.Asp"-->
</head>

<body>
<!--#Include file="DianJiaCMS_Top.Asp"-->
<!--#Include file="DianJiaCMS_Meun.Asp"-->
<div id="wrap">
	<%
	If InStr(CompanyAdminPurview, "|8,") = 0 Then
		response.Write ("<br /><br /><div style='height:100%; text-align:center' class='main'><font style=""color:red; font-size:14px;"")>"&DianJiaCMS_Lang_System(26)&"</font></div>")
		response.End
	End If
	%>
    <div class="main">
        <div class="row">
            <ol class="breadcrumb">
                <li><i class="fa fa-home"></i> <%=DianJiaCMS_Lang_Copyright(14)%></li>
                <li><%=DianJiaCMS_Lang_Copyright(2)%></li>
                <li class="active">功能模块管理</li>
            </ol>	
        </div>	
 
        <div class="row">
        	<div class="col-lg-12 hideInIE8">
            	<div class="panel panel-default">
                    <div class="panel-heading">
                        <h2><i class="fa fa-user"></i><span class="break"></span>功能模块管理</h2>
                    </div>
                    <div class="panel-body">
                        <%SystemList()%>
                    </div>
                </div>
            </div>
        </div>
    </div>
    <!--#Include file="DianJiaCMS_End.Asp"-->
</div>
<!--#Include file="DianJiaCMS_Js.Asp"-->
</body>
</html>
<%
Function SystemList()
datafrom = "DianJiaCMS_Module"
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from "&datafrom&" Order by ID asc",conn,1,2
do until rs.eof
	response.Write "<div class='AppDiv'>"
	response.Write "	<div class='Div1'>"
	response.Write "		<img src='"&rs("Pic")&"'/>"
	response.Write "		<div class='text'></div>"
	response.Write "	</div>"
	response.Write "	<h2 class='text-center'><strong>"&rs("SystemName")&"</strong></h2>"
	response.Write "	<div class='row'>"
	response.Write "		<div class='col-xs-5'>"
	response.Write "			<a title='管理' href='"&rs("SystemPath")&"' class='btn btn-primary btn-block'>管理</a>"
	response.Write "		</div>"
	response.Write "		<div class='col-xs-5'>"
	response.Write "			<a title='修改' href='DianJiaCMS_Funct_SystemEdit.asp?Result=Modify&ID="&rs("ID")&"' class='btn btn-primary btn-block'>修改</a>"
	response.Write "		</div>"
	response.Write "	</div>"
	response.Write "</div>"
	rs.movenext
loop
rs.close : set rs = nothing
End Function
%>