⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 right.asp

📁 ASP入门与提高实用教程 源文件(上传网站)
💻 ASP
字号:


<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<table border="0" width="190" cellspacing="0" cellpadding="0" height="329">
  <tr>
    <td width="190" valign="top" align="right" height="329">
    <table border="0" width="180" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" bgcolor="#FF9933" height="18">商品分类</td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#63CFFF">
          <table border="0" width="180" cellspacing="1">
            <tr>
              <td width="100%" bgcolor="#FFFFFF"><%sql="select * from sort"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                  do while not rs.eof
                  %><a href="sort.asp?sort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a>(<font color=red><%
                     set rs1=server.createobject("adodb.recordset")
                     sort_id=rs("sort_id")
                     sql1="select * from hw where sort_id='"&sort_id&"'"
                     rs1.open sql1,conn,3,3
                     response.write rs1.recordcount
                     rs1.close
                     %></font>件)<br>
                  <%rs.movenext
                  loop
              end if
              rs.close
              %><br>本站共有商品<font color=red><%
              sql="select * from sort"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "0"
              else
                  do while not rs.eof
                      sort_id=rs("sort_id")
                      sql1="select * from hw where sort_id='"&sort_id&"'"
                      rs1.open sql1,conn,3,3
                      sort_total=rs1.recordcount
                      total=total+sort_total
                      rs1.close
                  rs.movenext
              loop
              response.write total
              end if
              rs.close
              set rs1=nothing
              %></font>件
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="100%" height="5"></td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#FF9933" height="18">热门商品Top 20</td>        
      </tr>
      <tr>
        <td width="100%" bgcolor="#63CFFF">
          <table border="0" width="100%" cellspacing="1">
            <tr>
              <td width="100%" bgcolor="#FFFFFF"><%sql="select top 20 * from hw order by hw_views DESC"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有货物"
              else
                  do while not rs.eof
                  %><a href="views.asp?hw_id=<%=rs("hw_id")%>"><%=rs("hw_name")%></a>(浏览<font color=red><%=rs("hw_views")%></font>次)<br><%rs.movenext
                  loop
              end if
              rs.close
              %>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="100%" height="5"></td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#FF9933" height="18">热卖商品Top 10</td>   
      </tr>
      <tr>
        <td width="100%" bgcolor="#63CFFF">
          <table border="0" width="100%" cellspacing="1">
            <tr>
              <td width="100%" bgcolor="#FFFFFF"><%sql="select top 10 * from hw order by hw_buys DESC"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "本站目前没有成交任何商品"
              else
                  do while not rs.eof
                  %><a href="views.asp?hw_id=<%=rs("hw_id")%>"><%=rs("hw_name")%></a>(成交<font color=red><%=rs("hw_buys")%></font>次)</a><br><%rs.movenext
                  loop
              end if
              rs.close
              set rs1=nothing
              set rs=nothing
              %></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="100%"></td>
      </tr>
      <tr>
        <td width="100%"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>

























⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -