user.asp

一个用asp实现简单的小型OA系统

<!--#include file="session.asp"-->
<!--#include file="conn.asp" -->
<!--#include file="md5.asp"-->
<link href="admstyle.css" rel="stylesheet" type="text/css" />
<!-- 代码作用:连接到层叠样式文件 -->
<script language="JavaScript" type="text/JavaScript">
<!--
//检查表信息填写情况
function checkFormData(theForm){
	if(theForm.username.value==""){ alert("请填写登录帐户！");theForm.username.focus();return false; }
	if(theForm.realname.value==""){ alert("请填写真实姓名！");theForm.realname.focus();return false; }
	if(theForm.password.value==""){ alert("请填写用户密码！");theForm.password.focus();return false; }
	if(theForm.password2.value==""){ alert("请填写确认密码！");theForm.password2.focus();return false; }
	if(theForm.password.value!=theForm.password2.value){ alert("密码和确认密码不一致！");theForm.password2.focus();return false; }
	return true;
}
//-->
</script>
<%
Dim sql, rs, tbl, i, action, id

action = LCase(Trim(request.QueryString("action")))
id = CInt(request.QueryString("id")) '某个用户的特定记录

Select Case action
    Case "show"
        Call showTbl(ID) '显示用户详细信息
    Case "edit"
        Call editTbl(ID) '修改用户，搜集信息
    Case "delete"
        Call delTbl(ID) '删除用户
    Case "savedelete"
        Call savedelTbl(ID) '删除用户
    Case "update"
        Call updateTbl(ID) '更新用户信息
    Case "add"
        Call addTbl() '添加用户，搜集信息
    Case "save"
        Call saveTbl() '保存用户信息
    Case ""
        Call listTbl() '显示用户列表信息
End Select

'显示用户详细信息

Function showTbl(ID)
    sql = "select * from [user] where userid ="&id
    Set rs = conn.Execute(sql)
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#799ae1">
  <tr>
    <td colspan="2" align="center" bgcolor="#799ae1"><strong>用户信息</strong></td>
  </tr>
  <tr>
    <td width="25%" align="right" bgcolor="#FFFFFF">用户编号:</td>
    <td width="70%" bgcolor="#FFFFFF"><%=rs("userid")%></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#FFFFFF">登录帐户:</td>
    <td bgcolor="#FFFFFF"><%=rs("username")%></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#FFFFFF">真实姓名:</td>
    <td bgcolor="#FFFFFF"><%=rs("realname")%></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF"><a href='?action=Edit&ID=<%=rs("userid")%>'>修改信息</a></td>
  </tr>
</table>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Function

'修改用户,搜集信息

Function editTbl(ID)
    sql = "select * from [user] where userid ="&id
    Set rs = conn.Execute(sql)
	power= rs("power")
%>
<form name="edit_form" method="post" action="?action=update&id=<%=rs("userid")%>">
  <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#799ae1">
    <tr>
      <td colspan="2" align="center" bgcolor="#799ae1"><strong>修改用户信息</strong></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">登录帐户:</td>
      <td bgcolor="#FFFFFF"><input name="username" type="text" id="username" value="<%=rs("username")%>" /></td>
    </tr>
    <tr>
      <td width="25%" align="right" bgcolor="#FFFFFF">真实姓名: </td>
      <td bgcolor="#FFFFFF"><input name="realname" type="text" id="realname" value="<%=rs("realname")%>"></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">身份:</td>
      <td bgcolor="#FFFFFF">
	     <select name="power" id="power">
          <option value="1" <% if power=1 then
		  response.Write("selected='selected'")
		  end if%>>普通用户</option>
          <option value="2" <% if power=2 then
		  response.Write("selected='selected'")
		  end if%>>管理员</option>
          </select>
      </td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">密　　码:</td>
      <td bgcolor="#FFFFFF"><input name="password" type="password" id="password"></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">确认密码:</td>
      <td bgcolor="#FFFFFF"><input name="password2" type="password" id="password2"/></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
      <td bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value="确认修改" onClick="return checkFormData(this.form)">
        <input name="Reset" type="reset" id="Reset" value="重新修改"></td>
    </tr>
  </table>
</form>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Function

Function delTbl(ID)
%>
<form name="form1" action="?action=saveDelete&id=<%=ID%>" method="post">
</form>
<script language="JavaScript" type="text/JavaScript">
if(confirm("确认要删除吗？"))
{
	document.form1.submit();
}
else
{
	window.history.go(-1)
}
</script>
<%
End Function

'删除用户

Function savedelTbl(ID)
    sql = "delete from [user] where userid = "&id
    Set rs = conn.Execute(sql)
    response.Redirect("?")
End Function

'更新用户信息

Function updateTbl(ID)
    Dim username, realname, password
    Dim sql, rs
    username = Trim(request.Form("username"))
    realname = Trim(request.Form("realname"))
	power= Trim(request.Form("power"))
    password = md5(Trim(request.Form("password")))
    sql = "update [user] set username='"&username&"',realname='"&realname&"',[password]='"&password&"',power='"&power&"' where userid="&id
    Set rs = conn.Execute(sql)
    response.Write("用户信息成功修改!")
    response.Redirect("user.asp")
End Function

'添加用户，搜集信息

Function addTbl()
%>
<form name="add_form" method="post" action="?action=save">
  <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#799ae1">
    <tr>
      <td colspan="2" align="center" bgcolor="#799ae1"><strong>添加用户</strong></td>
    </tr>
    <tr>
      <td width="25%" align="right" bgcolor="#FFFFFF">登录帐户:</td>
      <td bgcolor="#FFFFFF"><input name="username" type="text" id="username">      </td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">真实姓名:</td>
      <td bgcolor="#FFFFFF"><input name="realname" type="text" id="realname" /></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">身份:</td>
      <td bgcolor="#FFFFFF"><select name="power" id="power">
        <option value="1">普通用户</option>
        <option value="2">管理员</option>
            </select></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">密　　码:</td>
      <td bgcolor="#FFFFFF"><input name="password" type="password" id="password"></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">确认密码:</td>
      <td bgcolor="#FFFFFF"><input name="password2" type="password" id="password2" /></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
      <td bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value="确认添加" onClick="return checkFormData(this.form)">
        <input name="Reset" type="reset" id="Reset" value="重新填写"></td>
    </tr>
  </table>
</form>
<%
End Function

'添加用户信息

Function saveTbl()
    Dim username, realname, password
    Dim sql, rs
    username = Trim(request.Form("username"))
    realname = Trim(request.Form("realname"))
	power= Trim(request.Form("power"))
    password = md5(Trim(request.Form("password")))
    sql = "insert into [user] (username,realname,[password],power) values ('"&username&"','"&realname&"','"&password&"','"&power&"')"
    Set rs = conn.Execute(sql)
    response.Write("用户信息成功添加!")
    response.Redirect("user.asp")
End Function

'显示用户列表信息

Function listTbl()
    sql = "select * from [user]"
    Set rs = conn.Execute(sql)
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.CursorLocation = 3
    rs.Open sql, Conn, 1, 1
    If rs.bof And rs.EOF Then
        response.Write "数据库中的记录数为空！请添加记录！"
        Exit Function
    End If

    totalrec = rs.recordcount '记录总数
    If totalrec = 0 Then
        response.Write("暂时没有新闻！")
        response.End()
    End If
    If request("page") = "" Or Not IsNumeric(request("page")) Then 'isNumeric如果是数字值为True，整行的意思是，为空或不是数字令下一行值为1
        currentPage = 1
    Else
        currentPage = CInt(request("page")) '把获取的值转化为整型
    End If

    rs.PageSize = 20 '每页的显示的记录总数
    rs.AbsolutePage = currentpage '返回目前的页码
    page_count = 0 '已经显示的记录数
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#799ae1">
  <tr align=center>
    <td colspan=10 bgcolor="#799ae1"><strong>用户列表信息</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="5"><%call Pages(currentpage,totalrec)%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td width="16%">序号</td>
    <td width="22%">登录帐户</td>
    <td width="18%">真实姓名</td>
    <td width="19%">身份</td>
    <td width="25%">操作</td>
  </tr>
  <%
i = 0
While (Not rs.EOF) And (Not page_count = rs.PageSize)
    page_count = page_count + 1
    i = i + 1
	power=rs("power")
	if power=1 then
	p="普通用户"
	end if 
	if power=2 then
	p="管理员"
	end if
    response.Write "<tr bgcolor=#ffffff><td>"&i&"</td><td>"&rs("username")&"</td><td>"&rs("realname")&"</td><td>"&p&"</td><td><a href=?action=Show&ID="&rs("userid")&">查看</a>|<a href=?action=Edit&ID="&rs("userid")&">修改</a>|<a href=?action=Delete&ID="&rs("userid")&">删除</a></td></tr>"
rs.movenext
Wend
%>
</table>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Function


Function Pages(currentpage, totalrec)
    Pcount = rs.PageCount '统计记录的总数
    response.Write "页次：<b>"&currentpage&"</b>/<b>"&Pcount&"</b>页"&_
    " 每页<b>"&rs.pagesize&"</b>,  总数:<b>"&totalrec&"</b>,  "&_
    " 分页："

    If currentpage > 3 Then '当前页数大于3
        response.Write " <a href=?page=1>[1]</a> ..."
    End If

    If Pcount>currentpage + 3 Then '当前页数在总数的前3页
        endpage = currentpage + 3
    Else
        endpage = Pcount
    End If

    For i = currentpage -2 To endpage
        If Not i<1 Then
            If i = CLng(currentpage) Then
                response.Write " ["&i&"]"
            Else
                response.Write " <a href=?page="&i&">["&i&"]</a>"
            End If
        End If
    Next

    If currentpage + 3 < Pcount Then
        response.Write " ...<a href=?page="&Pcount&">["&Pcount&"]</a>"
    End If
End Function
%>