<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="include/adovbs.inc" -->
<!--#include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Setting_Function "
rs.open sql,conn,1,1 
j=rs.recordcount
%>

<html>
<head>
<title>申请表设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="include/e1.css">
</head>

<body>
<p>&nbsp; </p>
<form name="form1" method="post" action="Setting_FunctionCheck.asp">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#AAAAAA">
<tr><td>
<table width="100%" border="0" cellspacing="1" cellpadding="5">
          <tr class="td3"> 
            <td width="40%" height="30"><div align="center"><font color="#FFFFFF">功能名称</font></div></td>
            <td width="50%" height="30"><div align="center"><font color="#FFFFFF">显示</font></div></td>
          </tr>
          <%while not rs.eof%>
          <tr  bgcolor="#FFFFFF"> 
            <td><div align="center"> 
                <input name="name_<% =rs("FuncName")%>" readonly type="text" value="<% =rs("FuncText")%>">
              </div></td>
            <td><div align="center"> 
                <input name="value_<% =rs("FuncName")%>" type="checkbox"  value="1" <%if rs("IsDisplay")=true then%> checked<%end if%>>
              </div></td>
          </tr>
          <% rs.movenext
wend%>
        </table>
</td></tr></table>
  <p><font color="#FF0000"><strong>*</strong></font>默认情况下，系统拥有所有功能，您可以根据您的需要屏蔽部分功能（只需要将勾去掉）</p>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center">
        <input type="submit" name="Submit" value="提交">
      </div></td>
    <td> <div align="left">
        <input type="reset" name="Submit2" value="取消">
      </div></td>
  </tr>
</table>
</form>
</body>
</html>
