zhan_center.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
 function newwin(url){
	 var newwin=window.open(url,"","resizable=yes,width=550,height=300,left=0,top=0");
	 newwin.focus();
	 return false;
	 }
</script>
<%
Type1=request.QueryString("Type")
%>
<table width="99%"  border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFBF00">
        <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')"><div align="center">图书展台</div></td>
  </tr>
        <tr>
          <td height="21" valign="bottom" bgcolor="#FFFFFF">
		    <%
			 if Type1<>"" then
			    response.write "&nbsp;分类图书&nbsp;>>>&nbsp;<font color=blue>"&Type1&"</font>" 
			 end if
			%>
		  </td>
        </tr>
               <tr valign="top">
                  <td colspan="2" bgcolor="#FFFFFF">
		             <table width="100%"  border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#52BEFF">
<%
set rs=server.createobject("adodb.recordset")
if cstr(trim(Type1))="" then
  strsql="select * from tb_bookinfo order by barcode"
else
  strsql="select * from tb_bookinfo where kind='"&Type1&"' order by barcode"
end if
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 align="center" valign="top" bgcolor="#ffffff" style="padding:5px">
						     <table width="100%" border="1" cellpadding="4" cellspacing="1" bordercolor="#FFFFEC" bordercolordark="#FFCC00">
<tr>
<%
rs.pagesize=4
page=Clng(request("page"))
if page<1 or page="" then page=1
if page>rs.pagecount then page=pagecount
rs.Absolutepage=page
for i=1 to rs.pagesize
  if rs.eof then exit for
  sql="select * from tb_fixprice where Barcode='"&rs("barcode")&"'"
  set rs1=server.CreateObject("adodb.recordset")
  rs1.open sql,conn,3,3
%>
                               
                                 <td width="50%" valign="top" bgcolor="#FFFFFF" style="word-break:break_all">
								   <table width="100%" height="162" border="0" cellpadding="4" cellspacing="1" bgcolor="#999900">
								      <tr>
									     <td width="31%" rowspan="5" valign="middle" bgcolor="#FFFFFF" align="center">
										 <a href="readbook.asp?BookID=<%=rs("barcode")%>" onClick="return newwin(this.href);">
		<%
		If not isnull(rs("cover")) Then%>
          <img src="showImg.asp?barcode=<%=rs("barcode")%>" width="70" height="99" border="1">
          <%Else%>
          <img src="Images/null.jpg" width="70" height="99" border="0">
          <%End If%></a>									    </td>
									     <td colspan="4" bgcolor="#FFFFFF"><b><%=rs("BookName")%></b></td>
								      </tr>
								      <tr>
								        <td colspan="4" bgcolor="#FFFFFF">条形码：<%=rs("barcode")%></td>
						             </tr>
								      <tr>
								        <td colspan="4" bgcolor="#FFFFFF">出版社：<%=rs("bookconcern")%></td>
							         </tr>
								      <tr>
								        <td width="15%" bgcolor="#FFFFFF">定价：</td>
						                <td width="17%" bgcolor="#FFFFFF"><font style="text-decoration:line-through;" color="#FF3300"><%=rs("price")%></font>(元)</td>
						                <td width="17%" bgcolor="#FFFFFF"><div align="right">现价：</div></td>
						                <%
										If rs1.eof or rs1.bof Then
										 	sellPrice=rs("price")
										 Else
										  	sellPrice=rs1("SellPrice")
										 End If%>
						                <td width="20%" bgcolor="#FFFFFF"><%=SellPrice %>(元)</td>
							         </tr>
								      <tr>
								        <td colspan="4" bgcolor="#FFFFFF"><input type="button" name="b1" value="放入购物车" onClick="return newwin('buycar_add.asp?bookID=<%=rs("barcode")%>');" class="ShowBtn">&nbsp;<input type="button" name="b2" value="查看详细内容" class="ShowBtn" onClick="return newwin('readbook.asp?BookID=<%=rs("barcode")%>');"></td>
							         </tr>
			    </table>			    </td>             
<%
rs.movenext
if i mod 2 = 0 then
  response.write "</tr><tr>"
end if
next
%></tr>
							   <tr>
                                 <td colspan="3" align="right">
                                   <br>
<%
	 response.write "当前： <font color=red>"&page&"/"&rs.pagecount&"</font> "				  
	 if page=1 then
	    response.write " 第一页"
	 end if
	 if page>1 then
	    response.write " <a href=booklist.asp?page=1>第一页</a>"
	    response.write " <a href=booklist.asp?page="&(page-1)&">上一页</a>"
	 end if
	 if page<rs.pagecount then
	   response.write " <a href=booklist.asp?page="&(page+1)&">下一页</a>"
	   response.write " <a href=booklist.asp?page="&rs.pagecount&">最后一页</a>"
	 end if
	 %>
                                 </td>
                               </tr>
                             </table>					      </td>
                        </tr>
<%end if%>
                 </table>                </td>
            </tr>
</table>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">