center.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
 function newwin1(url){
	 var newwin=window.open(url,"图书详细信息","menubar=no,toolbar=no,scrollbars=yes,status=no,resizable=yes,width=600,height=410,left=0,top=0");
	 newwin.focus();
	 return false;
	 }
</script>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFBF00" bordercolordark="#FFFFFF">
        <tr>
          <td width="4%" rowspan="2" bgcolor="#FFFFFF"><div align="center"><img src="images/newbook.gif"></div></td>
          <td width="96%" height="22"  style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#55BFFF', endColorStr='#FFFFFF', gradientType='1')">&nbsp;</td>
        </tr>
        <tr>
          <td height="21" bgcolor="#FFFFFF">最新书籍</td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#FFFFFF"><table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#52BEFF">
<%'由于数据表中并没有标识图书是否为新书，所以需要通过入库信息表的首次入库日期来判断
'这里应用了视图
set rs=server.createobject("adodb.recordset")
strsql="select top 5 a.barcode,a.bookname,a.author,a.bookconcern,"&_
"min(b.timedate) as mytime from tb_bookinfo a inner join v_indepotquery b "&_
"on a.barcode = b.barcode group by a.barcode,a.bookname,a.author,a.bookconcern order by mytime Desc"
rs.open strsql,conn,3,3
if rs.eof then
%>
            <tr>
              <td bgcolor="#FFFFFF" colspan="2" align="center" valign="middle">最近没有新书上架</td>
            </tr>
            <%
else
%><tr>
              <td bgcolor="#ffffff" align="center" style="padding:5px">
              <div align="left">
                <table width="100%" border="1" cellpadding="4" cellspacing="1" bordercolor="#FFFFEC" bordercolordark="#FFCC00">
                  <tr>
                    <td bgcolor="#FFFFEC" style="word-break:break_all"><div align="center"><strong>书 名</strong></div></td>
                    <td bgcolor="#FFFFEC" style="word-break:break_all"><div align="center"><strong>出版社</strong></div></td>
                    <td width="26%" bgcolor="#FFFFEC"><div align="center"><strong>作者</strong></div></td>
                  </tr>
<%
i=1
do while not rs.eof
%>
                  <tr>
                    <td width="53%" bgcolor="#FFFFFF" style="word-break:break_all"><a href="readbook.asp?BookID=<%=rs("barcode")%>" onClick="return newwin1(this.href);"><%=rs("bookname")%></a></td>
                    <td width="21%" bgcolor="#FFFFFF" style="word-break:break_all"><div align="center"><%=rs("bookconcern")%></div></td>
                    <td width="26%" bgcolor="#FFFFFF"><div align="center"><%=rs("author")%></div></td>
                  </tr>
              <%
rs.movenext
i=i+1
loop
%>                </table>
              </div></td></tr>
<%end if
rs.close
%>
                    </table></td>
        </tr>
	    <tr>
          <td rowspan="2" bgcolor="#FFFFFF"><img src="images/sortbook.gif"></td>
          <td height="24"  style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFCC00', endColorStr='#FFFFFF', gradientType='1')">&nbsp;</td>
        </tr>
        <tr>
          <td height="22"  style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#55BFFF', gradientType='1')">热销排行</td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td colspan="2">
		     <table width="100%" border="0" cellpadding="0" cellspacing="0">
			     <%
				   rs.open "select top 3 sum(num) as sumn,tb_bookinfo.barcode,tb_bookinfo.bookname,"&_
				   "tb_bookinfo.author,tb_bookinfo.price,tb_bookinfo.bookconcern from tb_selldetail"&_
				   " inner join tb_bookinfo on tb_selldetail.barcode=tb_bookinfo.barcode"&_
				   " group by tb_bookinfo.barcode,tb_bookinfo.bookname,tb_bookinfo.author,"&_
				   "tb_bookinfo.price,tb_bookinfo.bookconcern order by sumn desc",conn,3,3
				   if rs.eof then
				 %>
				   <tr>
				      <td><div align="center">暂时没有图书销售</div></td>
				   </tr>
				  <%
				  else
				  %>
				  <tr>
			        <td align="center" bgcolor="#FFFFFF" style="padding:1px">
					      <table width="100%" border="1" cellpadding="4" cellspacing="1" bordercolor="#FFFFEC" bordercolordark="#FFCC00">
							  <%
							  i=1
							  do while not rs.eof
							  %>
							  <tr bgcolor="#FFFFFF">
							     <td align="center"><%=i%></td><td bgcolor="#FFFFFF"><div align="center"><%=rs("BookName")%></div></td><td bgcolor="#FFFFFF"><div align="center"><img src="images/add.gif" width="18" height="18" alt="我要买了" onClick="return newwin1('buycar_add.asp?bookID=<%=rs("barcode")%>');"></div>
								 </td>
							  </tr>
							  <%
							  rs.movenext
							  i=i+1
							  loop
							  %>
				            </table>
				      </td>
				  </tr>
				  <%
				  end if
				  rs.close
				  set rs=nothing
				  %>
		    </table>
		  </td>
        </tr>
</table>