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

📄 right.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用
💻 ASP
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<table width="150" border="0" cellspacing="0" cellpadding="0" class="9h">
<tr>
          <td bgcolor="#A5E360" height="20" align="center"><img src="img/dot6_1.gif" width="11" height="11">  [ 
            商品搜索 ]  <img src="img/dot6_1.gif" width="11" height="11"></td>
        </tr>
        <tr>
          <td bgcolor="#E7FDCC">
<form name="search" method="post" action="querygoods.asp" >
<table width="100%" border="0" cellspacing="5" cellpadding="0">
                                  <tr>
                                    <td>
                                      <div align="right" class="font_1">条件:</div>
                                    </td>
                                   <td>
                                     <select name="action" size="1">
                                     <option value="title">产品名称</option>
                                     </select>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td>
                                      <div align="right" class="font_1">关键字:</div>
                                    </td>
                                    <td>
                                      <input type="text" name="keyword" size="8" class="line1">
                                    </td>
                                  </tr>
                                  <tr>
                                    <td>
                                      <div align="right" class="font_1">经销商:</div>
                                    </td>
                                    <td>
                                      <input type="text" name="company" size="8" class="line1">
                                       </td>
                                  </tr>
                                
 <tr> 
                                    <td width="62%">&nbsp;</td>
                                    <td width="38%" valign="top"><input type="image"  src="img/23.jpg" width="55" height="20"></td>
                                  </tr>
                                </table>
                               </form>
                          
          </td>
        </tr>
         
        <tr>
          <td bgcolor="#A5E360" height="20" align="center"><img src="img/dot6_1.gif" width="11" height="11">  [ 
            商品分类 ]  <img src="img/dot6_1.gif" width="11" height="11"></td>
        </tr>
        <tr>
          <td bgcolor="#E7FDCC">
<table width="100%" border="0" cellspacing="1" cellpadding="1" class="9h" border=1 bordercolor=black>
<%sql="select * from sort"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                  do while not rs.eof
                  %>  <tr>
              <td width="100%"><img src="img/top01.gif" border=0><a href="sort.asp?sort_id=<%=rs("sort_id")%>&sort_name=<%=rs("sort_name")%>&ob=1"><%=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>
<%                     set rs2=server.createobject("adodb.recordset")
                     sort_id=rs("sort_id")
                     sql2="select * from sort2 where sort_id='"&sort_id&"'"
                     rs2.open sql2,conn,3,3
                    if rs2.eof then
                     
                      else
                      do while not rs2.eof%>
 <a href="sort2.asp?sort_id=<%=rs2("sort_id")%>&sort2_id=<%=rs2("sort2_id")%>&sort2_name=<%=rs2("sort2_name")%>&ob=1"><%=rs2("sort2_name")%></a>
                     <%rs2.movenext
                     loop
                    end if
                   rs2.close%></td></tr>
                  <%rs.movenext
                  loop
              end if
              rs.close
              %>
</table>


          </td>
        </tr>
        <tr>
          <td bgcolor="#A5E360" height="20" align="center"><img src="img/dot6_1.gif" width="11" height="11">  [ 
            热门商品 ]  <img src="img/dot6_1.gif" width="11" height="11"></td>
        </tr>
        <tr>
          <td bgcolor="#E7FDCC">
  <table border="0" width="100%" cellspacing="1">
            <tr>
              <td width="100%"><%sql="select top 10 * 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 bgcolor="#A5E360" height="20" align="center"><img src="img/dot6_1.gif" width="11" height="11">  [ 
            热卖商品 ]  <img src="img/dot6_1.gif" width="11" height="11"></td>
        </tr>
        <tr>
          <td bgcolor="#E7FDCC">
           <table border="0" width="100%" cellspacing="1" height="40">
            <tr>
              <td width="100%" height="37"><%sql="select top 5 * 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>
      </table>

⌨️ 快捷键说明

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