right.asp

一个简单的图书管理系统

<!--#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>