复件 default.asp

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

    <td><div align="center">如果您对我们的服务有任何意见或建议，请惠赐E-mail至:<a href="mailto:<%=Email%>"><%=Email%></a>　联系电话：<%=Phone%></div></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td><div align="center"></div></td>
  </tr>
</table>
<!-- 定义各子程序////////////////////////////////////////////////////////////////////////////-->
<% sub indx%>
<!-- 首页-->
<table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td height="5"> </td>
                    </tr>
                    <tr> 
                      <td height="285" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="418" height="267" valign="top"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <form action="default.asp?sb=search" method="post" name="search">
                                        <tr> 
                                          <td> <div align="center">商品名称: 
                                              <input type='text' name='Product_Name' size='13' class='a'>
                                              类别: 
                                              <select name="Product_Class" size="1" tabindex="0" class="a"  FONT-SIZE: 9pt>
                                                <option  value="所有类别" selected>所有类别</option>
<%
sql="select * from SoftDown_Catalog where parentid=0 order by rootid,orders"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
                                                <option  value=<%=rs("CatalogID")%>><%=rs("CatalogName")%></option>
<%
rs.movenext
loop
rs.close:set rs=nothing
%>
                                              </select>
                                              <input type="submit" name="Submit" value="搜索">
                                            </div></td>
                                        </tr>
                                      </form>
                                    </table>
                                    <strong><br>
                                    精品推荐：</strong><br> 
                                    <!-- 精品推荐开始---------------------------------------- -->
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                                      <tr> 
                                        <%  
set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where p_shop='"& shop_name &"' order by Product_id desc"
rs.open sqltext,conn,1,1                                                    
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td>"                                                      
else
i=1                                                      
Do While Not rs.EOF
%>
                                        <td height="56" align="center"  valign="top"><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><img src="<%=rs("small_pic")%>" name="small" width="80"  height="82" border="0"  ><br>
                                          <font color="#0000FF"><%=rs("Product_Name")%></font><br>
                                          </a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000"><br>
                                          会员价：</font><%=rs("P_NewPrice")%>元<br>
                        <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a> 
                        <br>
                        　 </td>
                                        <%if i mod 3 =0 then%>
                                      </tr>
                                      <tr> 
                                        <%end if%>
                                        <%                                                     
i=i+1                                                     
if i >= 7 then exit do                                                     
rs.MoveNext                                                     
Loop                                                  
end if
rs.close:set rs=nothing
%>
                                      </tr>
                                    </table>
                                    <!-- 精品推荐结束------------------------------------------------------ -->
                                  </td>
                                </tr>
                              </table></td>
                            <td width="1"  bgcolor="#3366CC"> </td>
                            <td width="188" valign="top"> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
                                <tr> 
                                  <td valign="top"><strong>新闻公告：</strong><br>
<%								  
set news_rs=server.createobject("adodb.recordset")
sqltext="select top 10 * from news where shop_name='"&shop_name&"'"
news_rs.open sqltext,conn,1,1 
do while not (news_rs.eof or news_rs.bof)
%>
 -&gt; <a href="default.asp?sb=news_show&id=<%=news_rs("id")%>" son=hint alt="..<%=news_rs("n_top")%>.." style="behavior:url(../tit.htc)"> <%=left(news_rs("n_top"),12)%></a><br>
                                    <%
news_rs.movenext
loop
news_rs.close:set news_rs=nothing
%>
                                  </td>
                                </tr>
                                <tr> 
                                  <td>　</td>
                                </tr>
                              </table>
                              <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
                                <tr> 
                                  <td><strong>点击排行：</strong><br> 
<%
set rs=server.createobject("adodb.recordset")
sqltext="select top 10 * from Product  Where p_shop='"& shop_name &"' order by Look_Count desc"
rs.open sqltext,conn,1,1                                                  
If rs.eof and rs.bof then                                                       
response.write "暂时没有商品资料"                                                      
else
Do While Not rs.EOF
%>
                                    -&gt; <a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>" son=hint alt="..<%=rs("Product_Name")%>.." style="behavior:url(../tit.htc)"><%=left(rs("Product_Name"),10)%></a>(<%=rs("Look_Count")%>)<br> 
                                    <%                                 
rs.MoveNext                                                     
Loop                                                  
end if
rs.close:set rs=nothing
%>
                                  </td>
                                </tr>
                                <tr> 
                                  <td>　</td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      
    <td height="88" ><%=center_pic%></td>
                    </tr>
                    <tr> 
                      <td ><strong>最新商品：</strong></td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="#3366CC"> </td>
                    </tr>
                    <tr> 
                      <td height="10" > </td>
                    </tr>
                    <tr> 
                      <td valign="top"> 
                        <!-- 最新商品开始-------------------------------------------------- -->
                        <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                          <tr> 
<%  
set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where p_shop='"& shop_name &"' order by id desc"
rs.open sqltext,conn,1,1                                                    
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td>"                                                      
else
i=1                                                      
Do While Not rs.EOF
%>
                            
          <td height="56" align="center"  valign="top"><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><img src="<%=rs("small_pic")%>" name="small" width="80"  height="82" border="0"  ><br>
            <font color="#0000FF"><%=rs("Product_Name")%></font><br>
            </a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000"><br>
                              会员价：</font><%=rs("P_NewPrice")%>元<br> <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a> 
                            </td>
                            <%if i mod 4 =0 then%>
                          </tr>
                          <tr> 
                            <td height="20"></td>
                          </tr>
                          <tr> 
                            <%end if%>
                            <%                                                     
i=i+1                                                     
if i >= 13 then exit do                                                     
rs.MoveNext                                                     
Loop                                                  
end if
rs.close:set rs=nothing
%>
                          </tr>
                        </table>
                        
    </td>
                    </tr>
                    <tr> 
                      <td valign="top">&nbsp;</td>
                    </tr>
                  </table>
<%end sub%>
<%sub lnc%>
<!--公司简介======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：公司简介</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
      <% 
set rs=server.createobject("adodb.recordset")
sqltext="select P_about from shop where shop_name1='"&shop_name&"'  "
rs.open sqltext,conn,1,1
if not rs.eof then
response.write rs("p_about")
else
response.write "没有数据"
end if
rs.close:set rs=nothing
%>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub newsp%>
<!--最新商品======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：最新商品</td>
  </tr>
  <tr> 
    <td >&nbsp;</td>
  </tr>
  <tr> 
    <td height="10" > </td>
  </tr>
  <tr> 
    <td valign="top"> 
      <!-- 最新商品开始-------------------------------------------------- -->
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <%  
set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where p_shop='"& shop_name &"' order by Product_id desc"
rs.open sqltext,conn,1,1                                                    
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td>"                                                      
else
i=1                                                      
Do While Not rs.EOF
%>
          <td height="56" align="center"  valign="top"><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><img src="<%=rs("small_pic")%>" name="small" width="80"  height="82" border="0"  ><br>
            <font color="#0000FF"><%=rs("Product_Name")%></font><br>
            </a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000">&nbsp;</font><font color="#cc0000"><br>
            会员价：</font><%=rs("P_NewPrice")%>元<br> <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a> 
          </td>
          <%if i mod 4 =0 then%>
        </tr>
        <tr> 
          <td height="20"></td>
        </tr>
        <tr> 
          <%end if%>
          <%                                                     
i=i+1                                                     
if i >= 21 then exit do                                                     
rs.MoveNext                                                     
Loop                                                  
end if
rs.close:set rs=nothing
%>
        </tr>
      </table>
      <!-- 最新商品结束-------------------------------------------------- -->
    </td>
  </tr>
  <tr> 
    <td valign="top">&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub bill%>
<!--商品清单======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：商品清单</td>
  </tr>
  <tr> 
    <td height="10" > </td>
  </tr>
  <tr> 
    <td valign="top">