managerusersave.asp

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

ASP
114 行
字号 
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加用户</title>
</head>

<body>
<%
visualID=request("vid")
if visualID=1 then
 
 tempName=session("TempName")
 tempAccount=session("TempAccount")
 tempPassword=session("TempPassword")
 tempCollege=session("TempCollege")
 tempDepartment=session("TempDepartment")
 tempMayjor=session("TempMayjor")
 tempClass=session("TempClass")
 tempRole=session("TempRole")
 
 sql="select * from user_info"
 set rs=server.createobject("adodb.recordset")
 rs.open sql,conn,3,2
 rs.addnew
 
 rs("UserAccount")=tempAccount
 rs("UserPwd")=tempPassword
 rs("UserRName")=tempName
 rs("Class_ID")=tempClass
 rs("Dep_ID")=Mayjor_ID
 rs("Class_ID")=tempDepartment
 rs("College_ID")=tempCollege
 rs("Role_ID")=tempRole
 rs("pas_user_id")=request.Cookies("userid")
 rs("isActive")=0
 
 rs.update

 sql1="select * from user_info where UserAccount="&tempAccount&""
 set rs1=server.createobject("adodb.recordset")
 rs1.open sql1,conn,3,2
 v_userid=rs1("UserID")
 rs1.close
 
 sql2="select * from teacher_subject"
 set rs2=server.createobject("adodb.recordset")
 rs2.open sql2,conn,3,2
 rs2.addnew
 rs2("Teacher_ID")=v_userid
 rs2("Sub_ID")=request("subject")
 rs2.update
 rs2.close
 rs.close
else
 tempName=session("TempName")
 tempAccount=session("TempAccount")
 tempPassword=session("TempPassword")
 tempCollege=session("TempCollege")
 tempDepartment=session("TempDepartment")
 tempMayjor=session("TempMayjor")
 tempClass=session("TempClass")
 tempRole=request("role")
 
 sql="select * from user_info"
 set rs=server.createobject("adodb.recordset")
 rs.open sql,conn,3,2
 rs.addnew
 
 rs("UserAccount")=tempAccount
 rs("UserPwd")=tempPassword
 rs("UserRName")=tempName
 rs("Mayjor_ID")=tempMayjor
 rs("Class_ID")=tempClass
 rs("Dep_ID")=tempDepartment
 rs("College_ID")=tempCollege
 rs("Role_ID")=tempRole
 rs("pas_user_id")=request.Cookies("userid")
 rs("isActive")=0

 rs.update

 rs.close
 
 
 
 
end if
%>
<p>　</p>
<p>　</p>

<div align="center">
  <center>
  <table cellspacing="0" style="border-collapse: collapse" bordercolor="#336699" width="480" id="AutoNumber2" cellpadding="0" border="1">
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC"><b>&nbsp;<font color="#FFFFFF">操作成功</font></b></td>
    </tr>
    <tr>
      <td width="100%" height="160" bgcolor="#EFEFEF">
      <p align="center" class="style1">祝贺您，已经成功添加一个新用户！</p>
      <p align="center" class="style1">按下返回按钮返回人员管理页面！</p></td>
    </tr>
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC">
      <p align="center">
      <input type="button" value=" 返 回 " name="B3" class="s02" onClick="window.location='manageruser.asp'"></td>
    </tr>
  </table>
  </center>

</body>
</html>

managerusersave.asp - 源码说明

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

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

⌨️ 快捷键说明

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