right.asp

A Design and Implementation of The Online Shopping System Abstract: Along with the development

<%
'这里显示商品信息
'按商品分类浏览商品信息
'点击率最高的10种商品
'热卖的10中商品
%>
 <table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#97DDFF" height="18" align="center">商品分类</td>
      </tr>
      <tr>
        <td width="100%" height="52" bgcolor="#E1F5FF">
          <table border="0" cellspacing="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
            <tr>
              <td width="100%" bgcolor="#E1F5FF">
<%
  '设置SQL语句,从表GoodsType中读取商品类别数据
  sql = "SELECT * FROM GoodsType ORDER BY Id"
  Set rs = Conn.Execute(sql)
  '如果结果集为空,则显示提示信息
  If rs.Eof Then
    Response.Write "暂且没有分类"
  Else
    '使用循环语句,依次显示分类信息
    Do While Not rs.Eof
%>
      <a href="/shop/Search.asp?tpid=<%=rs("id")%>" OnClick="return newswin(this.href)"><%=rs("type")%></a>(<font color=red><%
      tid = rs("id")
      '生成SQL语句,读取表Goods中商品类型编号为tid的商品信息
      Set rs1 = Server.CreateObject("ADODB.RECORDSET")
      sql1 = "Select Count(*) AS cnt From Goods 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 Goods"
  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="#97DDFF" height="18" align="center">热门商品Top 10</td>        
      </tr>
      <tr>
        <td width="100%" bgcolor="#E1F5FF">
          <table border="0" width="100%" cellspacing="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
            <tr>
              <td width="100%"  height="36" bgcolor="#E1F5FF">
<%
  '生成SQL语句,查询前10个点击数(ReadCount)最大的商品信息
  sql = "Select Top 10 * From Goods Order By ReadCount Desc"
  Set rs = conn.Execute(sql)
  '如果结果集为空,则显示提示信息
  If rs.EOF Then
    Response.Write "暂且没有商品"
  Else
    '依次显示结果集中的商品信息
    Do While Not rs.EOF
%>    <a href="/shop/GoodsView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)"><%=rs("Name")%></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="#97DDFF" height="18" align="center">热卖商品Top 10</td>   
      </tr>
      <tr>
        <td width="100%" bgcolor="#E1F5FF">
          <table border="0" width="100%" cellspacing="0"  bordercolorlight="#FF9933" bordercolordark="#FFFFFF">
            <tr>
              <td width="100%" height="37" bgcolor="#E1F5FF">
<%
  '生成SQL语句,查询前10个销售量(BuyCount)最大的商品信息
  sql = "Select Top 10 * From Goods 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/GoodsView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)"><%=rs("name")%></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>