manageuser.asp

客户资源管理系统 1.显示所有客户资料 2.添加/修改客户资料； 3.添加客户拜访记录； 4.模糊搜索； 5.数据导出导入excal-access； 6.信息录入人员管理； 7.数据转移

<% If Session("CRM_level") = 9 Then %>
          <table onclick="window.location.replace('transData.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">数据转移</td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
          <table onclick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
                <td><img src="images/tab_on_left.gif" width="16" height="24"></td>                  
                <td background="images/tab_on_middle.gif">用户管理</td>
                <td><img src="images/tab_on_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">系统设置</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">注销</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">刷新</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="#1E75CF">&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 = 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("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" 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("manageUser.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("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="#1E75CF" 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>
</table>
</body>
</html>