adminuser.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

Case "block"
    Call block()
Case Else
    Call addForm()
End Select

Dim errMsg
errMsg = CInt(ABS(Request("errMsg")))
Select Case errMsg
Case 1
    errMsg = "<font color=""#FF0000"">请求的数据不存在。</font>"
Case 2
    errMsg = "<font color=""#FF0000"">发送的数据错误。</font>"
Case Else
    errMsg = ""
End Select

Sub addForm()
%>
      <table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
        <form name="newUser" action="?action=save" method="post" onSubmit="return checkInput('newUser');">
		<tr> 
          <td align="right">&nbsp;</td>
          <td>新建账号 <% = errMsg %></td>
        </tr>
        <tr> 
          <td width="40" align="right">&nbsp;</td>
          <td>账号：<input name="account" type="text" id="account" size="16" maxlength="16" selfValue="账号">
            真实姓名：<input name="name" type="text" id="name" size="16" maxlength="16" selfValue="真实姓名">
            用户等级：<% = getList(2,"baidu_level","lId","lName","level","用户等级") %></td>
        </tr>
        <tr> 
          <td width="40" align="right">&nbsp;</td>
          <td>密码：<input name="password" type="password" id="password" size="16" maxlength="16" selfValue="密码">
            确认密码：<input name="confirmPWS" type="password" id="confirmPWS" size="16" maxlength="16" selfValue="确认密码">
            所属小组：<% = getList(2,"baidu_group","gId","gName","group","所属小组") %></td>
        </tr>
        <tr> 
          <td align="right">&nbsp;</td>
          <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <input type="submit" name="Submit" value=" 建 立 "> &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
        </tr>
		</form>
      </table>
<%
End Sub

Sub saveData()
    Dim uAccount,uPassword,uConfirmPWS,uName,uLevel,uGroup
	uAccount = Trim(Request("account"))
	uPassword = Trim(Request("password"))
	uConfirmPWS = Trim(Request("confirmPWS"))
	uName = Trim(Request("name"))
	uLevel = CInt(Request("level"))
	uGroup = CInt(Request("group"))
	If uAccount = "" Or uPassword = "" Or uPassword <> uConfirmPWS Or uName = "" Or uGroup = "" Then
	    Response.Redirect("adminuser.asp?errMsg=2")
	End If
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select Top 1 * From baidu_user",conn,3,2
	rs.AddNew
	rs("uAccount") = uAccount
	rs("uPassword") = uPassword
	rs("uName") = uName
	rs("uLevel") = uLevel
	rs("uGroup") = uGroup
	rs.Update
	rs.Close
	Set rs = Nothing
	Response.Redirect("adminuser.asp")
End Sub

Sub editForm()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("adminuser.asp?errMsg=1")
	Dim uAccount,uPassword,uName,uLevel,uGroup
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_user Where uId = " & uId,conn,3,1
	If rs.RecordCount <> 1 Then Response.Redirect("adminuser.asp?errMsg=1")
	uAccount = rs("uAccount")
	uPassword = rs("uPassword")
	uName = rs("uName")
	uLevel = rs("uLevel")
	uGroup = rs("uGroup")
%>
      <table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
        <form name="newUser" action="?action=saveEdit" method="post" onSubmit="return checkInput('newUser');">
		<tr> 
          <td align="right">&nbsp;</td>
          <td>修改账号</td>
        </tr>
        <tr> 
          <td width="40" align="right">&nbsp;</td>
          <td>账号： 
              <input name="account" type="text" id="account" value="<% = uAccount %>" size="16" maxlength="16">
            真实姓名： 
              <input name="name" type="text" id="name" value="<% = uName %>" size="16" maxlength="16">
            用户等级：<% = getList(2,"baidu_level","lId","lName","level","用户等级") %>
              <input name="id" type="hidden" id="id" value="<% = uId %>"></td>
        </tr>
        <tr> 
          <td width="40" align="right">&nbsp;</td>
          <td>密码： 
              <input name="password" type="password" id="password" value="<% = uPassword %>" size="16" maxlength="16">
            确认密码： 
              <input name="confirmPWS" type="password" id="confirmPWS" value="<% = uPassword %>" size="16" maxlength="16">
            所属小组：<% = getList(2,"baidu_group","gId","gName","group","所属小组") %></td>
        </tr>
        <tr> 
          <td align="right">&nbsp;</td>
          <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <input type="submit" name="Submit" value=" 编 辑 "> &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
        </tr>
		</form>
      </table>
<script language="JavaScript">
<!--
    var level = "<% = uLevel %>";
	var group = "<% = uGroup %>";
	for (i=0;i<document.newUser.level.options.length;i++){
        if (document.newUser.level.options[i].value == level)
            document.newUser.level.options[i].selected = true;
    }
	for (i=0;i<document.newUser.group.options.length;i++){
        if (document.newUser.group.options[i].value == group)
            document.newUser.group.options[i].selected = true;
    }
-->
</script>
<%
End Sub

Sub saveEditData()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("id")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("adminuser.asp?errMsg=1")
    Dim uAccount,uPassword,uConfirmPWS,uName,uLevel,uGroup
	uAccount = Trim(Request("account"))
	uPassword = Trim(Request("password"))
	uConfirmPWS = Trim(Request("confirmPWS"))
	uName = Trim(Request("name"))
	uLevel = CInt(Request("level"))
	uGroup = CInt(Request("group"))
	If uAccount = "" Or uPassword = "" Or uPassword <> uConfirmPWS Or uName = "" Or uGroup = "" Then
	    Response.Redirect("adminuser.asp?errMsg=2")
	End If
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select Top 1 * From baidu_user Where uId = " & uId,conn,3,2
	If rs.RecordCount <> 1 Then Response.Redirect("adminuser.asp?errMsg=1")
	rs("uAccount") = uAccount
	rs("uPassword") = uPassword
	rs("uName") = uName
	rs("uLevel") = uLevel
	rs("uGroup") = uGroup
	rs.Update
	rs.Close
	Set rs = Nothing
	Response.Redirect("adminuser.asp")
End Sub

Sub deleteData()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("adminuser.asp?errMsg=1")
	''Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_user Where uId = " & uId,conn,3,2
	If rs.RecordCount <> 1 Then Response.Redirect("adminuser.asp?errMsg=1")
	rs.Delete
	rs.Update
	rs.Close
	Set rs = Nothing
	Response.Redirect("adminuser.asp")
End Sub

Sub block()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("adminuser.asp?errMsg=1")
	''Dim rs
	Dim uBlock
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_user Where uId = " & uId,conn,3,2
	If rs.RecordCount <> 1 Then Response.Redirect("adminuser.asp?errMsg=1")
	uBlock = rs("uBlock")
	If uBlock = True Then
	    rs("uBlock") = False
	Else
	    rs("uBlock") = True
	End If
	rs.Update
	rs.Close
	Set rs = Nothing
	Response.Redirect("adminuser.asp")
End Sub
%>
    </td>
  </tr>
  <tr>
    <td height="16" align="center" bgcolor="#999999" id="oHeadBar" style="cursor: hand;" title="隐藏头部" onClick="return showHideHead(document.all.oHeadCtrl.src);"> 
      <img src="images/arrow_up.gif" alt="隐藏头部" width="16" height="16" align="absmiddle" id="oHeadCtrl">&nbsp;</td>
    </td>
  </tr>
  <tr>
    <td valign="top" bgcolor="#FFFFFF" style="padding: 10px;"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> 
            <% = strCounter %>
          </td>
          <td align="right"> [<a href="adminuser.asp">用户列表</a>] [<a href="adminuser.asp">新建用户</a>]</td>
        </tr>
      </table> 
      <table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
        <tr>
          <td width="40" align="center" bgcolor="menu">编号</td>
          <td width="80" align="center" bgcolor="menu">账号</td>
          <td width="80" align="center" bgcolor="menu">密码</td>
          <td width="80" align="center" bgcolor="menu">真实姓名</td>
          <td align="center" bgcolor="menu">所属小组</td>
          <td width="60" align="center" bgcolor="menu">用户等级</td>
          <td align="center" bgcolor="menu">操作</td><% = strToPrint %>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;</td>
	</td>
  </tr>
</table>
</body>
</html>