manageuser.asp

WEB客户管理系统+小型OA系统。一个不错的程序

                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE1">用户管理</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
			<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE1">系统设置</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
<% End If %>
            <table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr>    
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE1">注销</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
            <table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE1">刷新</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table></td>
      </tr>
    </table>
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr> 
        <td height="5"><img src="images/null.gif" width="1" height="1"></td>
      </tr>
      <tr>
        <td bgcolor="#999999">&nbsp;</td>
      </tr>
    </table>
<%
Dim action
action = Trim(Request("action"))
Select Case action
Case "save"
    Call saveData()
Case "edit"
    Call editForm()
Case "saveEdit"
    Call saveEditData()
Case "delete"
    Call deleteData()
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 = md5(replace(Trim(Request("password")),"'",""))
	uConfirmPWS = md5(replace(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("manageUser.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("manageUser.asp")
End Sub

Sub editForm()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("manageUser.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("manageUser.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" size="16" maxlength="50">
            确认密码： 
              <input name="confirmPWS" type="password" id="confirmPWS" size="16" maxlength="50">
            所属小组：<% = 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("manageUser.asp?errMsg=1")
    Dim uAccount,uPassword,uConfirmPWS,uName,uLevel,uGroup
	uAccount = Trim(Request("account"))
	uPassword = md5(replace(Trim(Request("password")),"'",""))
	uConfirmPWS = md5(replace(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("manageUser.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("manageUser.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("manageUser.asp")
End Sub

Sub deleteData()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("manageUser.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("manageUser.asp?errMsg=1")
	rs.Delete
	rs.Update
	rs.Close
	Set rs = Nothing
	Response.Redirect("manageUser.asp")
End Sub

Sub block()
    Dim uId
	uId = 0
	uId = CInt(ABS(Request("uId")))
	If Not IsNumeric(uId) Or uId <= 0 Then Response.Redirect("manageUser.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("manageUser.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("manageUser.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="manageUser.asp">用户列表</a>] [<a href="manageUser.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>