📄 useradd.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<%
  set CheckUser = server.createobject("adodb.recordset")
  sql1 = "select * from UserManage where UserName='"&Name&"' and password='"&PassWord&"'"
  CheckUser.open sql1,conn,1,1  
  if CheckUser("Purview")<>"管理员" then response.redirect"error.asp?msg=用户管理"
  checkUser.close
  set CheckUser=nothing
%>
<body background="images/BLogo.gif">
<form name=form method=post action="UserSave.asp" onsubmit="return CheckUser()">
  <table width="312" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
    <tr bgcolor="#FFFFFF"> 
    <td colspan="3" width="100%" height="25">
	<!--#include file = topMenu.htm--></td>
  </tr>

  <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
    <td height="2" colspan="3" background="images/BLogo.gif">
        <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F5F5F5">
          <tr bgcolor="#FFFFFF"> 
            <td height=20 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>用户名：</td>
            <td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center"> 
              <input type="text" name="Name">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height=20 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>密码：</td>
            <td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center"> 
              <input type="Password" name="Password" value="tcbiz">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height=60 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; rowspan="3">类型： 
            </td>
            <td height=2 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center"> 
              <input ID=Purview1 type="radio" name="Purview" value="管理员" onclick=CheckPurview() checked>
              管理员 </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center"> 
              <input ID=Purview2 type="radio" name="Purview" value="总编辑" onclick=CheckPurview()>
              总编辑</td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center"> 
              <input ID=Purview3 type="radio" name="Purview" value="录入员" onclick=CheckPurview()>
              录入员 </td>
          </tr>
          <tr bgcolor="#FFFFFF" align="center">
            <td height=20 colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
              <table width="100%" border="0" cellspacing="0" cellpadding="1" id=Purview2 style="DISPLAY: none">
                <tr> 
                  <td width="25%">权限分配 ：</td>
                  <td width="75%">
                    <input type=checkbox name=SystemSet value=Category> 可以添加、删除、修改栏目<br>          
					<input type=checkbox name=SystemSet value=SetRecycle> 可以删除回收站的商务信息<br>
                  </td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0" id=Purview3 style="DISPLAY: none">
                <tr>
                  <td width="37%">指定录入栏目：</td>
                  <td width="63%"> 
				  <%
                    set rs=Server.CreateObject("adodb.recordset")
                    sql="select * from SmallClass Order by id Desc"
                    rs.open sql,conn,1,1
                    while not rs.eof
                  %> 
                    <input type=checkbox name=Class value=<%=rs("SmallClass")%>><%=rs("SmallClass")%><br>
                  <%
                    rs.movenext
                    wend
                    rs.close
                    set rs=nothing
                  %></td>
                </tr>
                <tr align="center"> 
                  <td colspan=2> 
                    <input type=checkbox name=ModPas value=true checked>
                    <font color="#FF0000">录入员是否能修改密吗？</font><br>
                    <font color="red">录入员有审核商务信息权限？</font></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF" align="center"> 
            <td height=20 colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><b> 
              </b> &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type=hidden value=ADD name=operation>
              <input type=submit value=" 添 加 ">
            </td>
          </tr>
        </table>
    </td>
  </tr>
</table>
</form>
</body>
</html>
<script>
function CheckPurview(){
if (document.form.Purview2.checked == true) {
        Purview2.style.display = "";

}else{
        Purview2.style.display = "none";

}

if (document.form.Purview3.checked == true) {
        Purview3.style.display = "";

}else{
        Purview3.style.display = "none";

}
}

</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -