quanxian.asp

现代化的企业越来越重视科学技术

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../other/Check_Sql.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--

.style1 {font-size: 9pt}
.style4 {
	font-size: 9pt;
	color: #0000FF;
}
-->
</style>
<form name="form1" method="post" action="addquanxian.asp">
  <div align="center">  
    <p>&nbsp;</p>
    <table width="200" height="100" border="0" cellpadding="2" cellspacing="0">
      <tr>
        <td height="28" class="back_southidc"><div align="center">请选择人员姓名</div></td>
      </tr>
      <tr>
        <td class="tr_southidc">
          <p>&nbsp;</p>
          <div align="center">
            <p>
              <%
	set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_user  where name1 <> '系统管理员'"
  rs.Open sql,conn,0,2,1
	
	%>
              <select name="select">
                <% while not (rs.bof or rs.eof) %>
                <option value="<%=rs("bianhao")%>"><%=rs("name1")%> & [ <%=rs("bianhao")%> ] </option>  
                <%
		      rs.movenext
			  	wend
				rs.close
				set rs=nothing
				call endconn()
		%>
              </select>
              <br>
            </p>
            <p>
              <input type="submit" name="Submit" value=" 提 交 "> 
            </p>
            <p>&nbsp;                      </p>
        </div></td>
      </tr>
    </table>
    <div align="left"><br>
      
      <span class="red">* 系统管理员（admin）为最高权限无须修改！所以不在此修改内<br>
      <br>
      * 权限与 菜单目录向对应！请注意！</span></div>
    <p>&nbsp;	</p>
  </div>
</form>