index.asp

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

                    <%=Left(rs(2),17)%> 
                    <% else%>
                    <%response.write rs(2)%>
                    <%end if%></a>
                        </td>
                      </tr>
                      <%if b=8 then exit do           
rs.movenext             
loop%>
                    </table></td>
                </tr>
              </table>
            </td>
            <td width="283" background="IMAGES/mmenu.gif" valign="top">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="40"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="210">&nbsp;</td>
                        <td width="75"> <div align="center"><a href="xinxi/index.asp"><img src="IMAGES/new_more.gif" width="42" height="12" border="0"></a></div></td>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td height="182" valign="top"><table width="100%" border="0" cellspacing="3" cellpadding="2">
                    <%dim w(6)                      
w(1)="宾馆"                      
w(2)="旅游"                      
w(3)="餐饮"                      
w(4)="娱乐"                      
w(5)="其它"                      
%>
                      <%set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("xinxi/erdfg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
if request("ok")="ok" then response.write "hello"   
set rs=com.execute("select*from msg 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    
a=a+1%>
                      <tr> 
                        <td width="20%">&nbsp; 
                          <%response.write  "[" & w(rs(3)) & "]"%>
                          </td>
                        <td width="80%">
                          <a onClick="window.open('xinxi/show.asp?n=<%response.write rs(0)%>','','toolbar=yes,scrollbars=0,width=416,height=488')" href="javascript:"><% if len(rs(1))>17 then%>
                    <%=Left(rs(1),17)%> 
                    <% else%>
                    <%response.write rs(1)%>
                    <%end if%></a></a>
                        </td>
                      </tr>
                      <%if a=8 then exit do           
rs.movenext             
loop%>
                    </table></td>
                </tr>
              </table>
            </td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table width="760" height="245" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td background="IMAGES/mmenu3.gif"><table width="760" height="247" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="190" valign="top"> 
              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="42">&nbsp;</td>
                </tr>
              </table>
              <table width="100%" border="0" align="center" cellpadding="3" cellspacing="4">
                <%
		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 and passed=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"> 
                    <% if len(rs(2))>12 then%>
                    <%=Left(rs(2),12)%> 
                    <% else%>
                    <%response.write rs(2)%>
                    <%end if%>
                    </a></td>
                </tr>
                <%if i=8 then exit do           
rs.movenext             
loop%>
              </table>
            </td>
            <td width="190" valign="top">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="42">&nbsp;</td>
                </tr>
              </table>
              <table width="100%" border="0" align="center" cellpadding="3" cellspacing="4">
                <%
		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=3 and passed=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    
q=q+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"> 
                    <% if len(rs(2))>12 then%>
                    <%=Left(rs(2),12)%> 
                    <% else%>
                    <%response.write rs(2)%>
                    <%end if%>
                    </a></td>
                </tr>
                <%if q=8 then exit do           
rs.movenext             
loop%>
              </table>
            </td>
            <td width="190" valign="top"m> 
              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="42">&nbsp;</td>
                </tr>
              </table>
              <table width="100%" border="0" align="center" cellpadding="3" cellspacing="4">
                <%
		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 and passed=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    
y=y+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"> 
                    <% if len(rs(2))>12 then%>
                    <%=Left(rs(2),12)%> 
                    <% else%>
                    <%response.write rs(2)%>
                    <%end if%>
                    </a></td>
                </tr>
                <%if y=8 then exit do           
rs.movenext             
loop%>
              </table></td>
            <td width="190" valign="top"> 
              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="42">&nbsp;</td>
                </tr>
              </table>
              <table width="100%" border="0" align="right" cellpadding="3" cellspacing="4">
                <%
		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 and passed=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    
c=c+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"> 
                    <% if len(rs(2))>12 then%>
                    <%=Left(rs(2),12)%> 
                    <% else%>
                    <%response.write rs(2)%>
                    <%end if%>
                    </a></td>
                </tr>
                <%if c=8 then exit do           
rs.movenext             
loop%>
              </table>
            </td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table width="760" height="76" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <form name=input method="form" action="" ><td width="160"> <div align="center">                  <script language="JavaScript">
var nn = !!document.layers;
var ie = !!document.all;
function copy(textarea)
{
  if (nn) {
    textarea.select();
    Zwischenablage.setContents(new java.awt.datatransfer.StringSelection(textarea.value), null);
  }
  else if (ie) {
    textarea.select();
    cbBuffer=textarea.createTextRange();
    cbBuffer.execCommand('Copy');
  }
}

</script>
            <textarea name="content1" cols="21" rows="2" readonly="readonly" class="btn">友情链接代码:<a href=http://www.0701.com.cn/travel target=_blank><img src=http://www.0701.com.cn/travel/Images/logo.gif width=88 height=31 border=0 alt=鹰潭便民休闲旅游></a></textarea>
             <br><br>
            <input type="button" name="Button22" value="复制代码" onClick=copy(this.form.content1); class="btn">
            <input type="button" value="申请链接" name="B4" onclick="window.location.href='lk/link_add.asp';" class="btn">
          </div></td></form>
		
      <td width="600"> <div align="center">
          <script language=javascript src="lk/js/link_logo.js"></script>
        </div></td>

    </tr>
  </table>
  <table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <td><hr align="center" width="760" size="1" class="EFONT"></td>
    </tr>
  </table>
</div>
<div align="center"> 
  <table width="760" height="120" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <td>&nbsp;</td>
      <td height="100"><div align="center"><a href="http://www.0701.com.cn/web.other/ad/aboutus.htm">关于本站</a> 
          | <a href="other/shopadd.htm">商家加盟</a> | <a href="http://www.0701.com.cn/web.other/ad/about.htm">隐私条款</a> 
          | <a href="mailto:[e-mail]">联系我们</a> | <a href="http://www.0701.com.cn/web.business/ads/ads.htm">广告服务</a> 
          | <a href="http://www.0701.com.cn/web.other/ad/wzdh.htm">网站地图</a> | 
          <a href="zixun/">在线咨询</a><br>
          <br>
          版权所有：鹰潭便民网　<a href="http://www.0701.com.cn">www.0701.com.cn</a>　客户服务电话：6233399　<a href="mailto:[e-mail]"><img src="lk/images/mail.gif" alt="联系管理员" width="19" height="13" border="0" align="absmiddle"></a><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="http://www.0701.com.cn/travel/other/shopadd.htm">
  <area shape="rect" coords="612,20,677,43" href="http://www.0701.com.cn/travel/ProductClass2.asp?ProductClass_1=宾馆酒店">
  <area shape="rect" coords="113,13,166,46" href="http://www.0701.com.cn/index.asp">
  <area shape="rect" coords="421,21,481,43" href="http://www.0701.com.cn/travel/shop_class1.asp">
  <area shape="rect" coords="295,21,355,44" href="http://www.0701.com.cn/travel/travelline.asp">
  <area shape="rect" coords="358,21,419,43" href="http://www.0701.com.cn/travel/shop_class3.asp">
  <area shape="rect" coords="484,21,545,43" href="http://www.0701.com.cn/travel/shop_class2.asp">
  <area shape="rect" coords="546,21,610,44" href="http://www.0701.com.cn/travel/shop_class4.asp">
  <area shape="rect" coords="167,20,230,43" href="http://www.0701.com.cn/travel/longhusan/longhusan.htm">
  <area shape="rect" coords="233,21,293,44" href="http://www.0701.com.cn/travel.asp?classid=24">
</map>
</body>
</html>