right.asp

精通SQL Server 2005数据库应用系统开发 立即下载 第12章 书店 有数据库 写的很好

<%
'这里显示图书信息
'按图书分类浏览图书信息
'点击率最高的10种图书
'热卖的10中图书
%>
 <table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#c2c9e0" height="18" align="center">图书分类</td>
      </tr>
      <tr>
        <td width="100%" height="52">
          <table border="0" cellspacing="0" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
            <tr>
              <td width="100%">
<%
  '设置SQL语句,从表BookType中读取图书类别数据
  sql = "SELECT * FROM BookType ORDER BY TypeId"
  Set rs = Conn.Execute(sql)
  '如果结果集为空,则显示提示信息
  If rs.Eof Then
    Response.Write "暂且没有分类"
  Else
    '使用循环语句,依次显示分类信息
    Do While Not rs.Eof
%>
      <a href="/shop/Search.asp?tpid=<%=rs("TypeID")%>" target=_blank><%=rs("TypeName")%></a>(<font color=red><%
      tid = rs("TypeID")
      '生成SQL语句,读取表Books中图书类型编号为tid的图书信息
      Set rs1 = Server.CreateObject("ADODB.RECORDSET")
      sql1 = "Select Count(*) AS cnt From Books Where TypeId=" & tid
      Set rs1 = conn.Execute(sql1)
      '显示图书类别信息
      If Not rs1.Eof Then
        Response.Write rs1("cnt")
      Else
        Response.Write "0"
      End If
      rs1.Close
%></font>件)<br>
<%
      rs.MoveNext
    Loop
  End If
  rs.Close
%><br>本站共有图书<font color=red>
<%
  '生成SQL语句,计算站内图书总量
  sql = "Select Count(*) AS cnt From Books"
  Set rs = conn.Execute(sql)
  If rs.EOF Then
    Response.Write "0"
  Else
    Response.Write rs("cnt")
  End If
  rs.Close
  Set rs1 = Nothing
%></font>件
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#c2c9e0" height="18" align="center">热门图书Top 10</td>        
      </tr>
      <tr>
        <td width="100%">
          <table border="0" width="100%" cellspacing="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
            <tr>
              <td width="100%"  height="36">
<%
  '生成SQL语句,查询前10个点击数(ReadCount)最大的图书信息
  sql = "Select Top 10 * From Books Order By ReadCount Desc"
  Set rs = conn.Execute(sql)
  '如果结果集为空,则显示提示信息
  If rs.EOF Then
    Response.Write "暂且没有图书"
  Else
    '依次显示结果集中的图书信息
    Do While Not rs.EOF
%>    <a href="/shop/BookView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)"><%=rs("BookName")%></a>
      (浏览<font color=red><%=rs("ReadCount")%></font>次)<br>
<%
      rs.MoveNext
    Loop
  End If
  rs.Close
%>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#c2c9e0" height="18" align="center">热卖图书Top 10</td>   
      </tr>
      <tr>
        <td width="100%">
          <table border="0" width="100%" cellspacing="0"  bordercolorlight="#FF9933" bordercolordark="#FFFFFF">
            <tr>
              <td width="100%" height="37">
<%
  '生成SQL语句,查询前10个销售量(BuyCount)最大的图书信息
  sql = "Select Top 10 * From Books Where BuyCount>0 Order By BuyCount Desc"
  rs.Open sql,conn,3,3
  '如果结果集为空,则显示提示信息
  If rs.Eof Then
    Response.Write "目前没有成交任何图书"
  Else
    '依次显示结果集中的图书信息
    Do While Not rs.EOF
%>    <a href="/shop/BookView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)"><%=rs("BookName")%></a>
      (成交<font color=red><%=rs("BuyCount")%></font>次)</a><br>
<%
      rs.MoveNext
    Loop
  End If
  rs.Close
  Set rs1 = Nothing
  Set rs = Nothing
%></td>
            </tr>
          </table>
        </td>
      </tr>
 </table>