user.asp

一个简单的图书管理系统！毕业论文

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%
if request("action")="" then
sql="select * from u"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,3
'实现用户查看，添加，删除，修改等...
%>
<table class=1 width="633" border="0" align="center" cellpadding="3" cellspacing="0">
  <tr>
    <td align="center"  class="2">当前所有用户&nbsp;&nbsp;
	<a href="user.asp?action=add" target="right">添加新用户</a></td>
  </tr>
</table>

<table class=1 width="633" border="1" align="center" cellpadding="3" cellspacing="0">
  <tr align="center" valign="middle" > 
    <td align="center"  class="2">id</td>
    <td align="center"  class="2">名字</td>
    <td align="center"  class="2">密码</td>
	<td align="center"  class="2">借书数目</td>
	<td align="center"  class="2">借书详情</td>
	<td align="center"  class="2">操作</td>
  </tr>
  <%do while not rs.eof  %>
  <tr align="center"> 
    <td align="center"  class="2"><%=rs("id")%></td>
    <td align="center"  class="2"><%=rs("name")%></td>
    <td align="center"  class="2"><%=rs("pwd")%></td>
	<td align="center"  class="2"><%=rs("loan_num")%></td>
	<td align="center"  class="2"><a href="my_borrow.asp?id=<%=rs("id")%>" target="right">查看</a></td>
	<td align="center"  class="2">
	<a href="user.asp?action=del&id=<%=rs("id")%>" target="right"> 删除 </a>&nbsp;&nbsp;&nbsp;
	<a href="user.asp?query=type_mod&id=<%=rs("id")%>" target="right"> 更改 </a></td>
  </tr>
<%
  rs.movenext
  loop
  %>
</table>
<%else
sql="select * from u"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,3
%>
<%'添加新的用户
if request("action")="add" then
if request("add")<>"" then'检查是否重名
set chk=db.execute("select * from u where name='"&trim(request("name"))&"'")
if  chk.eof or chk.bof then '插入u表
rs.addnew
rs("name")=request("name")
rs("pwd")=request("pwd")
rs("lock")=0
rs("loan_num")=0
rs.update
response.write "<script>alert('添加成功啦！');window.location.href='user.asp'</script>"
else response.write "<script>alert('用户名重复');history.go(-1)</script>"
end if
else
%>
<form name="form1" method="post" action="">
<table class=1 width="333" border="0" align="center" cellpadding="3" cellspacing="0">
          <tr > 
            <td colspan="2" align="center">添加新的用户</td>
          </tr>
          <tr align="center"> 
            <td align="center"  class="2">用户名:</td>
            <td align="center"  class="2"> 
              <input name="name" type="text" id="name" size="15">
              </td>
          </tr>
          <tr align="center"> 
		  <td align="center"  class="2">密码:</td>
            <td align="center"  class="2"> 
              <input name="pwd" type="password" id="pwd" size="10">
              </td>
		  </tr>
          <tr align="center"> 
            <td colspan="2"> 
              <input type="submit"  value="添加">
              &nbsp; 
              <input type="reset"  value="重置">
              <input name="add" type="hidden" id="active" value="yes">
              </td>
          </tr>
        </table>
		</form>
		<%end if%>
		<%end if%>
		
<%'删除用户
if request("action")="del" then
if request("id")<>"" then
qq="select count(*) as xx from loans where uid="&request("id")
set q=db.execute(qq)
if q("xx")>0 then
response.write "<script>alert('存在借书记录，不能删除。');window.location.href='my_borrow.asp?id="&request("id")&"'</script>"
else
sql="delete from u where id="&request("id")
db.execute(sql)
response.write "<script>alert('删除成功');window.location.href='user.asp'</script>"
end if
else
%>
<form action="" method="post">
<input name="id" type="text"  size="15" value="请输想删除的用户id">
 <input type="submit"  value="删除">
              &nbsp; 
              <input type="reset"  value="重置">
</form>
<%end if %>
<%end if %><%end if'删除用户 %>
<%'更改用户 过程:如果有更改请求,如果有ID,导出数据,如果确认更改,执行检查过程;检查成功则更新 否则返回错误
if request("query")="type_mod" then
if request("id")<>"" then
sql="select * from u where id="&request("id")
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql,db,1,3
if request("mod")="yes" then'确认请求
set chk=db.execute("select * from u where name='"&request("name")&"'and id<>"&request("id"))
if not chk.eof then
response.write "<script>alert('已经存在的名!');history.go(-1)</script>"
response.End()
else
if request("islock")="True" then 
qq="update u set name='"&request("name")&"',pwd='"&request("pwd")&"',lock='1' where id="&request("id")
else
qq="update u set name='"&request("name")&"',pwd='"&request("pwd")&"',lock='0' where id="&request("id")
end if
db.execute(qq)
response.write "<script>alert('更改成功');window.location.href='user.asp'</script>"
end if
else
%>
<table class=1 width="333" border="0" align="center" cellpadding="3" cellspacing="0">
  <form action="" method="post">
  <tr>
    <td align="center"  class="2">名字:</td>
    <td align="center"  class="2">
	<input name="name" type="text"  size="15" value="<%=rs1("name")%>"></td>
  </tr>
  <tr>
    <td align="center"  class="2">密码:</td>
    <td align="center"  class="2">
	<input name="pwd" type="password"  size="15" value="<%=rs1("pwd")%>"></td>
  </tr>
  <tr>
  </tr>
  <tr>
    <td align="center"  class="2"></td>
    <td align="center"  class="2">
	<input type="submit"  value="更改">&nbsp;
	<input type="reset"  value="重置"></td>
  </tr>
	<input name="mod" type="hidden"  value="yes">
  </form>
</table>
<%end if%>
<%
else
response.write "<script>alert('未指定user id');window.location.href='user.asp'</script>"
end if
%>
<%end if%>
<br><br><br>
<div><a href="index.asp" target="right">首页</a>
&nbsp;&nbsp;&nbsp;<a href="javascript:history.go(-1)" target="right">返回</a>
</div>