default.asp

一个非常好的旅游网站程序.

                      </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
            <td width="15" valign="top"></td>
            <td width="180" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="2"></td>
              </tr>
            </table>
              <table width="100%" height="240"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="34"><div align="center"><img src="IMAGES/hzhb.gif" width="180" height="34"></div></td>
              </tr>
              <tr>
                <td valign="top"><table width="100%" height="206" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td class="box3" valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="3" >
                      <% 
'打开商家数据库取出最新10个注册商家=======================================
set rs_shop=server.createobject("adodb.recordset")
sqltext="select top 10  shop_name1 from shop order by id desc"
rs_shop.open sqltext,conn,1,1
%>
                      <%do while not rs_shop.eof %>
                      <tr>
                        <td height="15" width="14%" valign="middle"><div align="center"><img src="IMAGES/icon.gif" width="13" height="12" border="0" align="absmiddle"></div></td>
                        <td height="15" width="86%"><a href="shop/default.asp?shop_name=<%=rs_shop("shop_name1")%>"><%=rs_shop("shop_name1")%></a></td>
                      </tr>
                      <% rs_shop.movenext 
loop	 
rs_shop.close 
%>
                    </table></td>
                  </tr>
                </table>                  </td>
              </tr>
            </table>
              <table width="100%" height="77"  border="0" cellpadding="0" cellspacing="0" class="box4">
                <tr>
                  <td><div align="center"><img src="IMAGES/hntx.gif" width="146" height="60"></div></td>
                </tr>
              </table><table width="100%" height="260"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="34"><div align="left"><img src="IMAGES/zxdc.gif" width="180" height="34"></div></td>
                </tr>
                <tr>
                  <td valign="top"><div align="center">
                    <table width="180" height="230"  border="0" cellpadding="0" cellspacing="0" class="box3">
                      <tr>
                        <td><div align="center">
                          <script src="showvote.js"></script>
                        </div></td>
                      </tr>
                    </table>
</div></td>
                </tr>
            </table></td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table width="760" height="5" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="1"></td>
    </tr>
  </table>
  <table width="760" height="130" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><img src="IMAGES/banner/b1.jpg" width="760" height="130"></td>
    </tr>
  </table>
  <table width="760" height="5" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="1"></td>
    </tr>
  </table>
  <table width="760" height="467"  border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="180" valign="top"><table width="100%" height="222"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td valign="top">
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="1"></td>
              </tr>
              <tr>
                <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="IMAGES/lmu2.gif" width="158" height="46"></td>
            </tr>
          </table><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="8"></td>
                    </tr>
                  </table>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="140">
                          <div align="center">
                            <% set rs=server.createobject("adodb.recordset")
sqltext="select top 3 * from Product order by Product_No desc"
rs.open sqltext,conn,1,1
%>
                            <% While Not rs.EOF %>
                            <img name="small" border="0" src="manage/pic_play.asp?pic_id=<%=rs("pic_id")%>" width="120" height="100"  > <br>
                            <a href="ProductDetail.asp?Product_id=<%=rs("Product_id")%>">
                            <% =rs("Product_Name")%>
                            <br>
                            </a> <br>
                            <%              
rs.MoveNext              
Wend              
rs.close              
%>
                        </div></td>
                      </tr>
                  </table></td>
              </tr>
            </table></td>
          <td width="19"><img src="IMAGES/left_02.gif" width="22" height="467"></td>
        </tr>
      </table></td>
      <td width="580" valign="top"><table width="100%" height="222"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="290" height="30" background="IMAGES/mmenu2.gif">&nbsp;</td>
          <td width="290" background="IMAGES/mmenu.gif">&nbsp;</td>
        </tr>
      </table>
        <table width="101%" height="247" border="0" cellpadding="0" cellspacing="０" bgcolor="#FFFFFF">
          <tr>
            <td width="325" valign="top" background="IMAGES/mmenu3.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="42">&nbsp;</td>
                </tr>
              </table>
                <table width="98%" border="0" align="center" cellpadding="3" cellspacing="3">
                  <%
		set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("Database/shop_asdg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
set rs=com.execute("select*from shop where classid=1 ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*21-21  
newpage=newpage+1      
rs.movenext      
loop  
do while not rs.eof    
i=i+1%>
                  <tr>
                    <td width="80%">&nbsp;<a href="shop/default.asp?shop_name=<%response.write rs(2)%>"><img src="IMAGES/icon.gif" width="13" height="12" border="0" align="absmiddle">
                          <%response.write rs(2)%>
                    </a></td>
                  </tr>
                  <%if i=5 then exit do           
rs.movenext             
loop%>
              </table></td>
            <td width="325" valign="top" background="IMAGES/mmenu4.gif"m><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="193" height="42">&nbsp;</td>
                </tr>
              </table>
                <table width="97%" border="0" align="right" cellpadding="3" cellspacing="3">
                  <%
		set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("Database/shop_asdg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
set rs=com.execute("select*from shop where classid=4 ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*21-21  
newpage=newpage+1      
rs.movenext      
loop  
do while not rs.eof    
i=i+1%>
                  <tr>
                    <td width="80%">&nbsp;<a href="shop/default.asp?shop_name=<%response.write rs(2)%>"><img src="IMAGES/icon.gif" width="13" height="12" border="0" align="absmiddle">
                          <%response.write rs(2)%>
                    </a></td>
                  </tr>
                  <%if i=5 then exit do           
rs.movenext             
loop%>
              </table></td>
            <td width="341" valign="top" background="IMAGES/mmenu5.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="194" height="42">&nbsp;</td>
                </tr>
              </table>
                <table width="96%" border="0" align="right" cellpadding="3" cellspacing="3">
                  <%
		set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("Database/shop_asdg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
set rs=com.execute("select*from shop where classid=2 ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*21-21  
newpage=newpage+1      
rs.movenext      
loop  
do while not rs.eof    
i=i+1%>
                  <tr>
                    <td width="80%">&nbsp;<a href="shop/default.asp?shop_name=<%response.write rs(2)%>"><img src="IMAGES/icon.gif" width="13" height="12" border="0" align="absmiddle">
                          <%response.write rs(2)%>
                    </a></td>
                  </tr>
                  <%if i=5 then exit do           
rs.movenext             
loop%>
              </table></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<div align="center">
  <hr align="center" width="760" size="1" class="EFONT">
  <table width="760" height="120" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td>&nbsp;</td> 
      <td height="100"><div align="center"><a href="other/index.htm">关于本站</a> | <a href="other/shopadd.htm">超市加盟</a>  
          | <a href="user/odrsrchset.asp">订单查询</a> | <a href="mailto:[e-mail]">联系我们</a>  
          | 送货说明 | 支付说明 | <a href="guestbook">客户留言</a><br> 
          <br>
          版权所有：汕头商城　www.0754b2c.com　　客户服务电话：<br>
          <br>
      如果您对我们的服务有任何意见或建议，请惠赐E-mail至:<a href="mailto:[e-mail]">[e-mail]</a>欢迎社会各界洽谈合作事宜</div><br></td>
      <td></td>
    </tr>
  </table>
</div>
<map name="Map">
  <area shape="rect" coords="681,20,747,42" href="other/shopadd.htm">
  <area shape="rect" coords="612,20,677,43" href="ProductClass2.asp?ProductClass_1=&#23486;&#39302;&#37202;&#24215;">
  <area shape="rect" coords="113,13,166,46" href="index.asp">
</map>
<map name="Map2">
  <area shape="circle" coords="40,41,30" href="javascript:openbag('check.asp?shopname=<%=session("shop")%>')">
  <area shape="circle" coords="111,197,29" href="user/odrsrchset.asp">
  <area shape="circle" coords="38,120,31" href="user/myinfo.asp">
  <area shape="circle" coords="37,198,30" href="xinxi/fabu.asp">
  <area shape="circle" coords="111,117,30" href="travelline/listall.asp?action=userlook">
  <area shape="circle" coords="116,38,29" href="user/default.asp">
</map>
</body>
</html>