left.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

            </table>
          </td>
        </tr>
        </tbody>
      </table>
</td></tr>
<tr><td>
     <table align=center border=0 cellpadding=0 cellspacing=0 height=17 
      width=180>
        <tbody> 
        <tr> 
          <td><img height=17 src="image/r_2.gif" 
            width=180></td>
        </tr>
        </tbody>
      </table>
      <table align=center border=1 bordercolor=#e9a7c4 cellpadding=4 
      cellspacing=1  width=180>
        <tbody> 
        <tr> 
          <td align=middle>
              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr> 
                  <td  height=5></td>
                </tr>
                <tr> 
                  <td width=100%>
              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sql="select  * from hw order by hw_buys DESC"
              rs.open sql,conn,3,3
              goodsno=rs.recordcount
              if hong<10 then hong=goodsno
              if hong >= 10 then hong=10
              if rs.eof then
                  response.write "本站目前没有成交任何商品"
              else
i=0
                  do while i<hong
               i=i+1 
hw_name1=rs("hw_name")
if len(hw_name1)>13 then         
hw_name1=left(hw_name1,13)
end if %> <tr> 
                  <td width=60%><a title="点击查看具体信息" href="javascript:openScript('views.asp?hw_id=<%=rs("hw_id")%>',550,500)"><%=hw_name1%></a>
</td><td width=40%>交易指数<font color=red><%=rs("hw_buys")%></font></a></td></tr><%rs.movenext
                  loop
              end if
              rs.close
              %>
</table></td>
                </tr>
     
                 
              </table>
              <div align=center></div>
            </td>
          
        </tr>
        </tbody>
      </table>
</td></tr>

<tr><Td>
<table align=center border=0 cellpadding=0 cellspacing=0 height=17 
      width=180>
        <tbody> 
        <tr> 
          <td> <img height=17 src="image/r_3.gif" 
            width=180></td>
        </tr>
        </tbody>
      </table>
      <table align=center border=1 bordercolor=#e9a7c4 cellpadding=4 
      cellspacing=1 width=180>
        <tbody> 
        <tr> 
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height=5></td>
              </tr>
              <tr> 
                <td width=100%>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%sql="select  * from hw order by hw_views DESC"
              rs.open sql,conn,3,3
              goodsno=rs.recordcount
              if hong<10 then hong=goodsno
              if hong >= 10 then hong=10
              if rs.eof then
                  response.write "暂且没有货物"
              else
i=0
                  do while i<hong
               
i=i+1 
hw_name2=rs("hw_name")
if len(hw_name2)>13 then         
hw_name2=left(hw_name2,13)
end if %><tr> 
                  <td width=60%><a title="点击查看具体信息" href="javascript:openScript('views.asp?hw_id=<%=rs("hw_id")%>',550,500)"><%=hw_name2%></a>
</td><td width=40%>热门指数<font color=red><%=rs("hw_views")%></font></td></tr><%rs.movenext
                  loop
              end if
              rs.close
              %>
       </table></td>
              </tr>

            </table>
          </td>
        </tr>
        </tbody>
      </table>
</td></tr>
<tr><Td>
<table align=center border=0 cellpadding=0 cellspacing=0 height=17 
      width=180>
        <tbody> 
        <tr> 
          <td> <img height=17 src="image/news1.gif" 
            width=180></td>
        </tr>
        </tbody>
      </table>
      <table align=center border=1 bordercolor=#e9a7c4 cellpadding=4 
      cellspacing=1 width=180>
        <tbody> 
        <tr> 
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height=5></td>
              </tr>
              <tr> 
                <td width=100%>
                <table width="100%" border="0" bordercolordark=#ffffff bordercolorlight=#B1CAE9 cellspacing="0" cellpadding="0" align="center">
                  <tr> 
                    <td valign="top" colspan="2" rowspan="2">
 <marquee onMouseOver=this.stop() onMouseOut=this.start() 
            scrollamount=1 scrolldelay=50 direction=up height=120 width=165>
<%         
      sql="select * from newsclass"         
      rs.open sql,conn,3,3         
      if rs.eof then         
      %>
  <%else         
      do while not rs.eof         
      %>

<%newsclass_id=rs("newsclass_id")         
                sql1="select top 10 * from news where newsclass_id='"&newsclass_id&"' order by news_id DESC"         
                set rs1=server.createobject("adodb.recordset")         
                rs1.open sql1,conn,3,3         
                if rs1.eof then                
                else         
                do while not rs1.eof%><img height=9  src="image/dot1.gif" width=9>
            <%if len(rs1("news_title"))>30 then         
                    news_title=left(rs1("news_title"),11)         
                %>  
[ 
      <%=rs("newsclass_name")%> ]
            <a href="news.asp?news_id=<%=rs1("news_id")%>" target="_blank"><%=news_title%>……</a> 
            <%else%>
[ 
      <%=rs("newsclass_name")%> ]
            <a href="news.asp?news_id=<%=rs1("news_id")%>"  target="_blank"><%=rs1("news_title")%></a> 
            <%end if%>
            <br> 

            <%rs1.movenext           
                loop         
                end if         
                rs1.close         
       
                %>


  <%rs.movenext         
        loop         
        end if         
        rs.close         
        %>                     </marquee>  </td>
                    <td valign="top" width="21%" height="93" ></td>
                  </tr>
                </table>

</td>
              </tr>

            </table>
          </td>
        </tr>
        </tbody>
      </table>
</td></tr>

<tr><Td>
<table align=center border=0 cellpadding=0 cellspacing=0 height=17 
      width=180>
        <tbody> 
        <tr> 
          <td> <img height=17 src="image/r_d.gif" 
            width=180></td>
        </tr>
        </tbody>
      </table>
      <table align=center border=1 bordercolor=#e9a7c4 cellpadding=4 
      cellspacing=1 width=180>
        <tbody> 
        <tr> 
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height=5></td>
              </tr>
              <tr> 
                <td width=100%>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
 <form method="POST" action="userts.asp">
<tr> 
   <td width=95%>
用户名： <input type="text" name="user_name" size="14" class=input>
<br>
 订单号： 
<input type="text" name="sub_number" size="14" class=input>
<br>
 <input type="submit" value="马上投诉" name="B1" class="forInput" style="BACKGROUND-COLOR: #fff9ff; BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge; FONT-FAMILY: 宋体; FONT-SIZE: 9pt">
            </form> </td>
              </tr>

            </table>
          </td>
        </tr>
        </tbody>
      </table>
</td></tr>
</table>     
</td></tr></table>