right.asp

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

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<div>请在左边选择操作</div><br><br><br>
<%if session("usertype")="" then
'response.Write"<script>alert('请先登陆');window.location.href('login.asp')" 
response.Redirect("login.asp")
end if%>
<%'最新图书数据导出
sql="select top 10  * from book order by id desc "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,3
'图书类型到处
sql1="select * from booktype order by id desc "
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,db,1,3
%>
<div>
<table width="593">
  <tr>
    <td>
	<table width="158" >
  <tr>
    <td background="images/a1.gif"><b>最新添加的图书</b></td>
  </tr>
  <%do while not rs.eof %>
  <tr>
    <td align="left"><img src="images/topic.gif"><a href="book.asp?query=one_book&bookname=<%=rs("bookname")%>"><%=rs("bookname")%></a> </td>
  </tr><%rs.movenext
  loop%></table>
  </td>
    <td valign="top"><table width="158">
  <tr>
    <td background="images/21.gif"><b>图书分类浏览</b></td>
  </tr><%do while not rs1.eof %>
  <tr>
    <td><img src="images/topic.gif">
	<a href="book.asp?query=books_of_type&booktype=<%=rs1("booktype")%>" target="right"><%=rs1("booktype")%></a></td>
  </tr><%rs1.movenext
  loop%>
</table>
</td>
<%'潮期用户提醒
dim loan_time '现在时间和借书时间相差三十天则超期
loan_time = dateserial(year(date),month(date),day(date)-30)'转换日期格式2007-3-31，函数参考topic.csdn.net 

sql2="select book.bookname as b_name,* from loans,u ,book where loans.time <'"&loan_time&"'   and u.id=loans.uid and book.id=loans.bid "
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,db,1,3

if not rs2.eof then
sql3="select * from u where id="&rs2("uid")
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql3,db,1,3
%>
    <td valign="top"><table width="158">
<%end if%>
</table>
</td>
  </tr>
</table><br>copyright@图书管理系统 版权所有</div>