📄 home.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用
💻 ASP
字号:
<!--#include file="top.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" height="260">
      <tr>
        <td width="100%" bgcolor="#FF9933" height="18">入住商家</td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#63CFFF" height="52">
          <table border="0" width="180" cellspacing="1">
            <tr>
              <td width="100%" bgcolor="#FFFFFF" background="IMAGES/title1.jpg"><%sql="select top 5 * from member order by user_company DESC "
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                  do while not rs.eof
                  %><a href="listcom.asp?user_company=<%=rs("user_company")%>"><%=rs("user_company")%></a>(<font color=red><%
                     set rs1=server.createobject("adodb.recordset")
                     user_company=rs("user_company")
                     sql1="select * from hw where user_company='"&user_company&"'"
                     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" height="36">
          <table border="0" width="100%" cellspacing="1">
            <tr>
              <td width="100%" bgcolor="#FFFFFF" background="IMAGES/title1.jpg"><%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" height="35">
          <table border="0" width="100%" cellspacing="1" height="40">
            <tr>
              <td width="100%" bgcolor="#FFFFFF" background="IMAGES/title1.jpg" height="37"><%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%" height="1"></td>
      </tr>
      <tr>
        <td width="100%" height="59">
        <p align="center">
        <img border="0" src="IMAGES/ad.gif" width="178" height="60"></td>
      </tr>
      <tr>
        <td width="100%" height="15" bgcolor="#FF9933">
        <p align="center">
        　</td>
      </tr>
      <tr>
        <td width="100%" height="1">
        <img border="0" src="IMAGES/ad.gif" width="178" height="60"></td>
      </tr>
      <tr>
        <td width="100%" height="1"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="copy.asp"-->
⌨️ 快捷键说明

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