right.asp

自己去看吧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,user ,book where loans.time <'"&loan_time&"'   and u.id=loans.uid and book.id=loans.bid "
sql2 = "select a.bookname,b.uid from book as a,loans as b where b.time< '" & loan_time &"' and a.id=b.bid"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,db,1,3

if not rs2.eof then
  sql3="select * from user where id="&rs2("uid")
  set rs3=server.CreateObject("adodb.recordset")
  rs3.open sql3,db,1,3
%>
    <td valign="top"><table width="158">
  <tr>
    <td background="images/1.gif"><b>超期用户提醒</b></td>
  </tr>
<%
  do while not rs2.eof
%>
  <tr>
    <td><img src="images/topic.gif"><%=rs3("name")%>:请速还{<%=rs2("bookname")%>}<br>
	</td>
  </tr>
<%
  rs2.movenext
  loop
%>
<%
else
%>
<tr>
    <td><img src="images/topic.gif">当前没有超期用户<br>
	</td>
  </tr>
<%
end if
%>
</table>
</td>
  </tr>
</table><br>@图书管理系统 版权所有</div>