right.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 122 行

<Script language="javascript">
function newswin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=500,height=400";
  var newswin=window.open(url,"newswin",oth);
  newswin.focus();
  return false;
}
</Script>
<td width="80%" valign="top" align="center">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr><td width="100%" bgcolor="#63CFFF" height="18" align="left" >新书上架</td></tr>
<tr><td width="100%" valign="top" align="left" height="1">
<table border="1" width="100%"  cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '设置SQL语句，查询最新添加的4个商品，读取到记录集rs中
  sql = "SELECT Top 4 * FROM Book_info ORDER BY book_id DESC"
  Set rs = Conn.Execute(sql)
  '如果没有找到商品，则显示提示信息
  If rs.EOF Then
%>
   <td width="100%" valign="top" align="left" bgcolor="#FFFFFF">暂且没有商品</td>
<%
  End If
  '否则使用循环语句，依次显示商品信息
  Do While Not rs.EOF
%>        
    <td valign="top" width="25%" align="left" bgcolor="#FFFFFF">
    <p align="center">
<%
    '显示商品图片
    If isNull(rs("book_ImageFile")) Then
%>
      <img border="0" src="images/noimg.jpg" width="100" height="110">
<%
    Else
%>
      <a href="images/<%=rs("book_ImageFile")%>" target="blank">
      <img border="0" src="images/<%=rs("book_imageFile")%>" width="100" height="110"></a>
<%
    End If
%>
</center>
    <br>书名：<%=rs("book_name")%>
    
   
    <br><center> 
    <a href="bookview.asp?book_id=<%=rs("book_id")%>" onclick="return newswin(this.href)">详细资料</a><br>
    
</center></td>
<center>
<%
    rs.MoveNext
  Loop
  rs.Close
%>
</tr></table></center></td>
      </tr>
      <tr>
         <td width="100%" valign="top" align="left" height="5"></td>
      </tr>
      <tr>
        <td width="100%" valign="top" align="left" height="1"></td>
      </tr>
  <td width="50%" valign="top"> 
        <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 book_id,book_name from book_info order by book_Total desc",conn,1,1%>
        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
          <tr> 
            <td height="2"></td>
          </tr>
          <tr> 
            <td width="155"  height="18" align="left" ><font  color="#FFA500"><strong>图书借阅排行</strong></font></div></td>
        </tr>
          <%i=0
	    do while not rs.eof%>
          <tr> 
            <td bgcolor="#99FFFF"> 
              <%response.write "<a href=bookview.asp?book_id="&rs("book_id")&" target=blank>"
				if len(trim(rs("book_name")))>40 then
				response.write left(trim(rs("book_name")),12)&"..."
				else
				response.write trim(rs("book_name"))
				end if
				response.write "</a>"
				%>            </td>
          </tr>
          <tr> 
            <td height="1" background="images/ppb.gif"></td>
          </tr>
          <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
          <tr> 
            <td><div align="center"></div></td>
          </tr>
          <tr> 
            <td height="1" background="ppb.gif"></td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table width="530" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td>&nbsp;</td>
    </tr>
    
    <tr> 
      <td>&nbsp;</td>
    </tr>
      
   
     
      </td>
     </tr>
    </table>
    </td>