<!--#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"-->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网    址：http://www.bokew.net
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
%>
<!doctype html>
<html>
<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="<%=Bokecms_Lang_Copyright(13)%>">
<meta name="author" content="<%=Bokecms_Lang_Copyright(3)%>">
<title><%=Bokecms_Lang_Copyright(1)%> <%=Soft_Version%></title>
<!--#Include file="BokeCMS_Css.Asp"-->
</head>
<body>
<!--#Include file="BokeCMS_Top.Asp"-->
<!--#Include file="BokeCMS_Meun.Asp"-->
<div id="wrap">
	<%
	If InStr(CompanyAdminPurview, "|28,") = 0 Then
		response.Write ("<br /><br /><div style='height:100%; text-align:center' class='main'><font style=""color:red; font-size:14px;"")>"&Bokecms_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><%=Bokecms_Lang_Copyright(14)%></li>
                <li>会员级别管理</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-edit"></i><span class="break"></span><strong>会员级别管理</strong></h2> 
                    </div>
                    <div class="panel-body">					
                        <a class="ShortCut2" href="BokeCMS_MemGroup.asp">  
                            <i class="fa fa-users"></i>
                            <div class="title">会员级别列表</div>
                        </a>														
                        <a class="ShortCut4" href="BokeCMS_MemList.asp">  
                            <i class="fa fa-file-text-o"></i>
                            <div class="title">会员列表</div>
                        </a>
                        <a class="ShortCut4" href="BokeCMS_MemEdit.Asp?Result=Add">  
                            <i class="fa fa-file-text-o"></i>
                            <div class="title">添加会员</div>
                        </a>
                        <a class="ShortCut1" href="BokeCMS_Member_purse.asp">  
                            <i class="fa fa-user"></i>
                            <div class="title">会员财务流水</div>
                        </a>						
                    </div>
                </div>
            </div>
        </div>
        <div class="row">
            <div class="col-lg-12">
                <div class="panel panel-default">
                    <div data-original-title="" class="panel-heading">
                        <h2><i class="fa fa-user"></i><span class="break"></span>会员级别列表</h2>
                    </div>
                    
                    <div class="panel-body">
                        <div id="DataTables_Table_0_wrapper" class="dataTables_wrapper form-inline no-footer">
                        	<input type="hidden" name="Result" value="MemGroup">
                            <table id="datatable" class="table table-striped table-bordered bootstrap-datatable" cellspacing="0" width="100%">
                            <thead>
                            <tr role="row">
                                <th>ID</th>
                                <th>组别号</th>
                                <th>组别名称</th>
                                <th>权限值</th>
                                <th>说明</th>
                                <th>创建时间</th>
								<th>操作</th>
                                <th>选择</th>
                            </tr>
                            </thead>
                            <tbody>
								<%Call MemGroup()%>
                            </tbody>
                            </table>
                        </div>            
                    </div>
                </div>
            </div>
        </div>
    </div>	
	<!--#Include file="BokeCMS_End.Asp"-->
</div>
<script>
$(document).ready(function(){
	var oTable = $('#datatable').dataTable();
	oTable.fnSort( [ [0,'asc'] ] );
});
</script>
<!--#Include file="BokeCMS_Js.Asp"-->
</body>
</html>
<%
Function MemGroup()
	datafrom = "BokeCMS_MemGroup"
	taxis = "Order by ID desc"
	sql = "select * from ["& datafrom &"] "&taxis
	
	set rs = server.createobject("adodb.recordset")
	rs.open sql,conn,1,2
	do until rs.eof
		Response.Write "<tr role='row'>" & vbCrLf
		Response.Write "<td>"&rs("ID")&"</td>" & vbCrLf	
		Response.Write "<td>"&rs("GroupID")&"</td>"& vbCrLf
		Response.Write "<td>"&rs("GroupName")&"</td>"& vbCrLf
		Response.Write "<td>"&rs("GroupLevel")&"</td>" & vbCrLf
	  if len(rs("Explain"))>24 then
        Response.Write "<td nowrap title='"&rs("Explain")&"' class=""forumRow"">"&left(rs("Explain"),22)&"…</td>" & vbCrLf
      else
        Response.Write "<td nowrap title='"&rs("Explain")&"' class=""forumRow"">"&rs("Explain")&"</td>" & vbCrLf
      end if 
      Response.Write "<td nowrap class=""forumRow"">"&rs("AddTime")&"</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<a title='修改' href='BokeCMS_MemGroupEdit.Asp?Result=Modify&ID="&rs("ID")&"' class='btn btn-info'><i class='fa fa-edit'></i></a>"
        If rs("sys")=False Then
		Response.Write "<a title='删除' href='JavaScript:void(0)' class='btn btn-danger' onclick='test("&rs("ID")&", ""MemGroup"")'><i class='fa fa-trash-o'></i></a>"
        End if
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>"		
		Response.Write "<input name='SelectID' type='checkbox' value='"&rs("ID")&"'>"		
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		rs.movenext
	loop
End Function
%>