manageruseradd5.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 96 行

ASP

96 行

<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加用户</title>
<script language="javascript">
function rsubmit()
{var myform=document.form1;
 var bool=true;
 if (myform.role.value==1)
   {myform.action="manageruseradd6.asp"
    myform.submit();
   }
  if (myform.role.value=="")
    { alert("请选择用户应具有的权限！");
      myform.role.focus();
      bool=false;
	} 
  if (myform.chongfu.value==1)	
   { alert("上一步操作中输入的用户帐号重复！请返回更改，否则系统出错！");
      bool=false;
	  location.href="manageruser.asp"
   }
  return bool;	
}
</script>

</head>

<body>
<table width="100%" height="25" border="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
  <tr>
    <td width="100%">当前位置：<a href="news.asp">系统管理</a> &gt;<a href="manageruser.asp">人员管理</a> &gt; 添加用户</td>
  </tr>
</table>
<form name="form1" method="post" action="managerusersave.asp?vid=0" onSubmit="return rsubmit()">
  <table width="100%" height="75"  border="1">
    <tr bgcolor="#CCCCCC">
      <td colspan="2"><div align="center"><strong>为用户赋予权限</strong></div></td>
    </tr>
    <tr>
      <td width="15%"><div align="center"><strong>权限</strong></div></td>
      <td width="85%"><select name="role" id="role">
        <option>选择用户权限</option>
		<%
		sql_a="select * from user_info"
		set rs_a=server.createobject("adodb.recordset")
        rs_a.open sql_a,conn,3,2
		aBool=0
		while not rs_a.eof
		 if rs_a("UserAccount")=request("account") then
		   aBool=1
		 end if
		rs_a.movenext 
		wend
		v_Class=request("class")

		v_Name=request("name")
		v_Account=request("account")
		v_Password=request("password")
		
		session("TempClass")=v_Class
		session("TempName")=v_Name
		session("TempAccount")=v_Account
		session("TempPassword")=v_Password
		
		sql="select * from role_info"
		set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,2
		while not rs.eof
		%>
        <option value="<%=rs("RoleID")%>"><%=rs("RoleName")%></option>
		<%
		rs.movenext
		wend
		rs.close
		%>

      </select><input name="chongfu" type="hidden" value="<%=aBool%>"></td>
    </tr>
    <tr>
      <td height="23" colspan="2"><div align="center">
        <input type="submit" name="Submit" value="下一步">
      </div></td>
    </tr>
  </table>
		<%
		'response.Write(aBool)
		'response.Write("aljkf")
		'response.End()
		%>
</form>

</body>
</html>

manageruseradd5.asp - 源码说明

本页面展示了「网络考试系统最终备份」中的 manageruseradd5.asp 源码文件，采用 ASP 编程语言编写，共 96 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络考试系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?