default.asp

一套很早的多用户电子商务程序

        </tr>
        <tr> 
          <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
          <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
        </tr>
        <tr valign="top"> 
          <td colspan="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="95">
              <tr> 
                <td width="100%" height="150"> 
                  <!-- 商品--------------------------------- -->
                  <%  
set rs=server.createobject("adodb.recordset")
sqltext="select top 12 * from Product where in_yexiao=1 order by in_yxtime desc"
rs.open sqltext,conn,1,1 
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<p align='center'><font color='#ff0000'>暂时没有商品资料</font></p>"                                                      
else
%>
<table width="425" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
i=1                                                      
Do While Not rs.EOF
%>
   <td width="212" height="92"> 
<table width="100" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="100" height="89"> <div align="center"><a href="<%=rs("p_shop")%>/default.asp?sb=product&Product_id=<%=rs("Product_id")%>" target="_blank"><img src="<%=rs("small_pic")%>" name="small" width="75"  height="78" border="0"  ></a></div></td>
                          </tr>
                          <tr> 
                            <td><font color="#666666"><a href="<%=rs("p_shop")%>/default.asp?sb=product&Product_id=<%=rs("Product_id")%>">
                              <%if len(trim(rs("Product_Name")))>6 then
response.write left(trim(rs("Product_Name")),6)&".."
else
response.write trim(rs("Product_Name"))
end if%>
                              </a><br>
                              市场价:</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000">&nbsp;&nbsp;</font><br>
                              <font color="#cc0000">会员价:</font><%=rs("P_NewPrice")%>元<br>
                              <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img src="PIC/goumai.gif" width="43" height="12" border="0"></a>&nbsp;&nbsp;<a href="#" onclick="window.open('user/Favorites.asp?Product_Id=<%=rs("Product_Id")%>','','height=280,width=600,scrollbars=yes,resizable=1,top=10, left=15');">收藏</a>
                            </td>
                          </tr>
                        </table>
</td>
<%if i mod 4 =0 then%>
</tr>
<tr> 
  <td colspan="4" background="PIC/bg-line2.gif" height="1"></td>
</tr>

<%
end if
i=i+1                                                     
rs.MoveNext                                                     
Loop 
rs.close
%>
</table>
<%end if%>
</td>
              </tr>
            </table></td>
        </tr>
      </table> 
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="4">
        <tr>
          <td><div align="center"><img src="PIC/center2.jpg" width="390" height="50"></div></td>
        </tr>
      </table> 
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
          <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
        </tr>
        <tr> 
          <td width="21%" height="1"></td>
          <td width="79%" height="1"></td>
        </tr>
        <tr bgcolor="#FFDF80" valign="bottom"> 
          <td height="19" colspan="2" bgcolor="#FFF8E1"><strong>　推　荐　商　品 &gt;&gt;&gt;</strong></td>
        </tr>
        <tr> 
          <td width="21%" height="1"></td>
          <td width="79%" height="1"></td>
        </tr>
        <tr> 
          <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
          <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
        </tr>
        <tr valign="top"> 
          <td colspan="2"> 
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%  
set rs=server.createobject("adodb.recordset")
sqltext="select top 6 * from Product where in_tuijian=1 order by in_tjTime desc"
rs.open sqltext,conn,1,1 
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<tr><td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td></tr>"                                                      
else
Do While Not rs.EOF
%>

	  <tr> 
		        <td width="29%" height="90"> 
                  <div align="center"><a href="<%=rs("p_shop")%>/default.asp?sb=product&Product_id=<%=rs("Product_id")%>" target="_blank"><img src="<%=rs("small_pic")%>" name="small" width="75"  height="78" border="0"  ></a> 
                  </div></td>
		<td width="71%"><font color="#666666"><a href="<%=rs("p_shop")%>/default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><%=rs("Product_Name")%></a><br>
                  市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000">&nbsp;</font><font color="#cc0000">&nbsp;</font>　<font color="#cc0000">会员价：</font><%=rs("P_NewPrice")%>元<br>
		  <font color="#999999">商品简介: <%=left(rs("Product_Intro"),50)%>……</font></td>
	  </tr>
	<tr> 
	  <td colspan="2" background="PIC/bg-line2.gif" height="1"></td>
	</tr>
<%
rs.MoveNext                                                     
Loop 
end if
rs.close:set rs=nothing

%>	
</table>
			
			</td>
        </tr>
      </table></td>
    <td width="172" valign="top"><!--#include file="in_right.asp" -->
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
          <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
        </tr>
        <tr> 
          <td width="21%" height="1"></td>
          <td width="79%" height="1"></td>
        </tr>
        <tr bgcolor="#FFDF80" valign="bottom"> 
          <td width="21%" height="17" bgcolor="#FFF8E1"> 
            <p align="center"><img border="0" src="PIC/top_left2.gif" width="11" height="11"> 
          </td>
          <td height="17" bgcolor="#FFF8E1">　网　站　调　查</td>
        </tr>
        <tr> 
          <td width="21%" height="1"></td>
          <td width="79%" height="1"></td>
        </tr>
        <tr> 
          <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
          <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
        </tr>
        <tr valign="top"> 
          <td colspan="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="95">
              <tr> 
                <td width="100%" valign="top"> 
                  <table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<form name="vot" method="post" action="vote.asp?up=poll">				  
                    <tr>
                      <td> 
                        <%
set Tc=server.createobject("adodb.recordset")
Tc.open "select votename from manager",conn,1,1
if not Tc.eof then
votename=Tc("votename")
response.write votename
end if
Tc.close:set Tc=nothing
%></td>
                    </tr>
                    <tr>
                      <td> 
                        <%
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from vote",conn,1,1
	if not rs.eof then
	do while not rs.eof
	
	%>
                        <input type="radio" name="vv" value="<%=rs("id")%>">
                        <%=rs("vname")%><br> 
                        <%
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	%>
                      </td>
                    </tr>
                    <tr>
                      <td><div align="center">
                          <input type="image" border="0" name="submit" src="images/vote1.gif" width="59" height="19" style="cursor:hand">
                          <a href="#" onClick="javascript:window.open('vote.asp?up=<%=votename%>','pinglun','width=430,height=230,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src="images/vote.gif" width="59" height="19" border="0"></a> 
                        </div></td>
                    </tr>
					</form> 
                  </table>
				  
				  
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      
    </td>
  </tr>
  <tr>
    <td valign="bottom"><img src="PIC/bottom.gif" width="172" height="11"></td>
    <td> </td>
    <td valign="bottom"><img src="PIC/bottom.gif" width="172" height="11"></td>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="3">
  <tr>
    <td><div align="center"><a href="<%=bottom_pic_link%>" target="_blank"><img src="<%=bottom_pic%>"  border="0"></a></div></td>
  </tr>
</table>
<table width="778" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#FF6600" bordercolordark="#FFFFFF">
  <tr> 
    <td width="184" bgcolor="#FFDF80"> <div align="center"><strong>最新加入商店</strong></div></td>
    <td width="195" bgcolor="#FFDF80"> <div align="center"><strong>最新商品</strong></div></td>
    <td width="193" bgcolor="#FFDF80"> <div align="center"><strong>人气榜</strong></div></td>
    <td width="170" bgcolor="#FFDF80"> <div align="center"><strong>新新评论商品</strong></div></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td valign="top"> 
      <table width="100%" cellspacing="0" >
        <% 
'打开商家数据库取出最新12个注册商家=======================================
set rs_shop=server.createobject("adodb.recordset")
sqltext="select top 10  shop_name1,shop_name2 from shop order by id desc"
rs_shop.open sqltext,conn,1,1
%>
        <%do while not rs_shop.eof %>
        <tr> 
          <td height="21" width="8%" valign="top"><b>→</b></td>
          <td height="21" width="92%"><a href="<%=rs_shop("shop_name1")%>" target="_blank"><%=left(rs_shop("shop_name2"),13)%></a></td>
        </tr>
        <% rs_shop.movenext 
loop	 
rs_shop.close 
%>
      </table></td>
    <td valign="top"> 
      <table width="100%" cellspacing="0" >
        <% 
'打开商品数据库取出最新的14条记录
set rs_product=server.createobject("adodb.recordset")
sqltext="select top 10  p_shop,Product_id,product_name from product order by id desc"
rs_product.open sqltext,conn,1,1
%>
        <%do while not rs_product.eof %>
        <tr> 
          <td height="21" width="9%" valign="top"><b>→</b></td>
          <td height="21" width="91%"><a href="<%=rs_product("p_shop")%>/default.asp?sb=product&Product_id=<%=rs_product("Product_id")%>" target="_blank"><%=left(rs_product("product_name"),13)%></a></td>
        </tr>
        <% rs_product.movenext 
loop	 
rs_product.close   
%>
      </table></td>
    <td valign="top"> 
      <table width="100%" cellspacing="0" >
        <% 
'打开商品数据库取出最新的14条记录
set rs_product=server.createobject("adodb.recordset")
sqltext="select top 10 p_shop,Product_id,product_name,Look_Count from product order by Look_Count desc"
rs_product.open sqltext,conn,1,1
%>
        <%do while not rs_product.eof %>
        <tr> 
          <td height="21" width="9%" valign="top"><b>→</b></td>
          <td height="21" width="91%"><a href="<%=rs_product("p_shop")%>/default.asp?sb=product&Product_id=<%=rs_product("Product_id")%>" target="_blank"><%=left(rs_product("product_name"),13)%></a> 
          </td>
        </tr>
        <% rs_product.movenext 
loop	 
rs_product.close  
%>
      </table></td>
    <td valign="top"> <table width="100%" cellspacing="0" >
        <% 
'打开商品数据库取出最新的14条记录
set rs_product=server.createobject("adodb.recordset")
sqltext="select top 10 * from shop_pinglun order by pinglunid desc"
rs_product.open sqltext,conn,1,1
%>
        <%do while not rs_product.eof %>
        <tr> 
          <td height="21" width="9%" valign="top"><b>→</b></td>
          <td height="21" width="91%"><a href="<%=rs_product("shop_name")%>/default.asp?sb=product&Product_id=<%=rs_product("Product_id")%>" target="_blank"><%=left(rs_product("product_name"),13)%></a> 
          </td>
        </tr>
        <% rs_product.movenext 
loop	 
rs_product.close  
%>
      </table></td>
  </tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>