admin.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%
sql="select * from admin"
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">当前管理员&nbsp;&nbsp;
	<a href="admin.asp?action=add" target="right">添加新的管理员</a></td>
  </tr>
</table>

<table class=1 width="633" border="0" align="center" cellpadding="3" cellspacing="0">
  <tr align="center" valign="middle" > 
    <td align="center">id</td>
    <td align="center">名字</td>
    <td align="center">密码</td>
	<td align="center">操作</td>
  </tr>
  <%do while not rs.eof  %>
  <tr align="center"> 
    <td align="center"><%=rs("id")%></td>
    <td align="center"><%=rs("name")%></td>
    <td align="center"><%=rs("pwd")%></td>
	<td align="center">
	
	<a href="admin.asp?action=del&id=<%=rs("id")%>" target="right"> 删除 </a>&nbsp;&nbsp;&nbsp;
	<a href="admin.asp?action=mod&id=<%=rs("id")%>" target="right"> 更改 </a>&nbsp;&nbsp;&nbsp;
	<a  href="changepwd.asp?uid=<%=rs("id")%>&utype=3" target="right">变更密码</a>
	</td>
	</tr>
<%
  rs.movenext
  loop
  %>
</table>
<%
%>
<%'添加新的管理员 
if request("action")="add" then
if request("name")<>"" then
sql="select * from admin "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,3
sql1="select * from admin where name='"&trim(request("name"))&"'"
set rs1=db.execute(sql1)
if not rs1.eof or rs.bof  then 
response.write "<script>alert('已经存在的名字');window.location.href='admin.asp'</script>"
else if len(request("pwd"))<3 then
response.write "<script>alert('密码小于3位');window.location.href='admin.asp'</script>"
else if trim(request("pwd"))<>trim(request("pwd1")) then
response.write "<script>alert('两次密码不同');window.location.href='admin.asp'</script>"
else
'插入admin表
rs.addnew
rs("name")=request("name")
rs("pwd")=request("pwd")
rs.update
response.write "<script>alert('添加成功咯');window.location.href='admin.asp'</script>"
end if 
end if
end if
else
%>
<form  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">用户名:</td>
            <td align="center"> 
              <input name="name" type="text" id="name" size="15">
              </td>
          </tr>
          <tr align="center"> 
		  <td align="center">密码:</td>
            <td align="center"> 
              <input name="pwd" type="password" id="pwd" size="10">
              </td>
		  </tr>
		  <tr align="center"> 
		  <td align="center">核实密码:</td>
            <td align="center"> 
              <input name="pwd1" type="password" id="pwd" size="10">
              </td>
		  </tr>
          <tr align="center"> 
            <td colspan="2"> 
              <input type="submit"  value="添加">
              &nbsp; 
              <input type="reset"  value="重置">
              </td>
          </tr>
        </table>
		</form>
		<%end if%>
		<%end if%>
		
<%'删除管理元
if request("action")="del" then
if request("id")<>"" then
sql2="select count(*) as num from admin"
set rs2=db.execute(sql2)
if rs2("num")=1 then
response.write "<script>alert('只有一个管理员，不允许删除！');window.location.href='admin.asp'</script>"
else
sql="delete * from admin where id="&request("id")
db.execute(sql)
response.write "<script>alert('删除成功');window.location.href='admin.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 %>
<%'更改管理员
if request("action")="mod" then
dim id,r_name,r_pwd
id=request("id")
r_name=request("name")
r_pwd=request("pwd")
sql="select * from admin where id="&id
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql,db,1,3
if request("mod")="yes" then'请求确认，核实输入的东西
set chk=db.execute("select * from admin where name='"&request("name")&"'and id<>"&request("id"))
if not chk.eof then
response.write "<script>alert('已经存在的名咯');history.go(-1)</script>"
response.End()
else
qq="update admin set name='"&r_name&"',pwd='"&r_pwd&"' where id="&id
db.execute(qq)
response.write "<script>alert('更改成功');window.location.href='admin.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">名字:</td>
    <td align="center">
	<input name="name" type="text"  size="15" value="<%=rs1("name")%>"></td>
  </tr>
  <tr>
    <td align="center">密码:</td>
    <td align="center">
	<input name="pwd" type="password"  size="15" value="<%=rs1("pwd")%>"></td>
  </tr>
  <tr>
    <td align="center"></td>
    <td align="center">
	<input type="submit"  value="更改">&nbsp;
	<input type="reset"  value="重置"></td>
  </tr>
	<input name="mod" type="hidden"  value="yes">
  </form>
</table>
<%end if %>
<%end if %>
<%'统计借书超期的用户, 搞得很晕，没有实现 
if request("action")="lock" then
sql="select * from loans"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,3
days=DateDiff("d",rs.Fields("time").Value,date())
if days>=30 then
response.Write("err")
sql1="select * from loans "
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,db,1,3
do while not rs1.eof
%>
<%=rs1("uid")%><br>
<%rs1.movenext
loop
%>
<%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>