left.asp

来自「图书管理系统的所有程序」· ASP 代码 · 共 43 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="27" colspan="2" bgcolor="#55BFFF"><img src="images/bookopen.gif"> 图书分类</td>
  </tr>
  <tr valign="top">
    <td colspan="2" bgcolor="#FFFFFF">
	   <table width="100%" border="0" cellpadding="4" cellspacing="2">
	  <%
	  set rs=server.CreateObject("adodb.recordset")
	  strsql="select * from tb_bookkinds"
	  rs.open strsql,conn,3,3
	  i=1
	  do while not rs.eof
	  %>
	     <tr>
	       <td width="3%" valign="bottom" bgcolor="#F5F5F5">
             <div align="right"><img src="images/1.bmp"></div></td>
		   <td width="97%" bgcolor="#F5F5F5">
		   <a href="booklist.asp?Type=<%=rs(0)%>"><%=rs(0)%></a></td>
	     </tr>
	   <%
		   i=i+1
		   rs.movenext
	   loop
	   rs.close
	   %> 
    </table>
	</td>
  </tr>
  <tr>
    <td height="2" valign="bottom" bgcolor="#FFCC00"></td>
  </tr>
</table>