wh.asp

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

  
  <table width="760" border="0" cellspacing="0" cellpadding="0" align="center" height="600">
    <tr valign="top"> 
      <td width="192" bgcolor="#fcfcfc"><table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
          <tr> 
            <td height="70" valign="bottom"><div align="center"><img src="../IMAGES/spsearch.jpg" width="190" height="64"></div></td>
          </tr>
          <tr> 
            <td> <div align="center"> 
                <table width="99%" border="0" cellspacing="0" cellpadding="0">
                  <form method="POST" action="search.asp">
                    <tr> 
                      <td height="140"> <div align="center">信息查询： 
                          <input name="search" type="text" class="border" size="12">
                          <br>
                          <br>
                          <br>
                          选择分类：&nbsp;&nbsp; 
                          <select name="n" size="1" >
                            <option value="0" selected>所有信息</option>
                            <option value="1"  >招聘信息</option>
                            <option value="2"  >旅游线路</option>
                            <option value="3"  >宾馆酒店</option>
                            <option value="4"  >餐饮酒楼</option>
                            <option value="5"  >娱乐信息</option>
                            <option value="6"  >搬迁信息</option>
                          </select>
                          <br>
                          <br>
                          <br>
                          <input type="Submit" name="Submit1" src value="模糊查询">
                          　 
                          <input name="Submit12"  src type="reset" value=" 重 置 ">
                        </div></td>
                    </tr>
                  </form>
                </table>
              </div></td>
          </tr>
        </table></td>
      <td width="10" background="../IMAGES/mfk6.gif"></td>
      <td width="558" bgcolor="#fcfcfc"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><table width="100%" height="34" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  <td width="30">&nbsp;</td>
                  <td width="30"><div align="center"><img src="../IMAGES/icon_photodesk.gif" width="14" height="15" align="absmiddle"></div></td>
                  <td width="348">&nbsp;<font color="#000000"> 
                    <%if request("n")=1 then response.write "宾馆信息"                      
             if request("n")=2 then response.write "旅游信息"                      
            if request("n")=3 then response.write "餐饮信息"                      
            if request("n")=4 then response.write "娱乐信息"                      
            if request("n")=5 then response.write "其它信息"                      
%>
                    </font></td>
                  <form name="form1"><td width="150" align="center"> <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
                        <option value="index.asp" selected>最新信息</option>
                        <option value="wh.asp?n=1">宾馆信息</option>
                        <option value="wh.asp?n=2">旅游信息</option>
                        <option value="wh.asp?n=3">餐饮信息</option>
                        <option value="wh.asp?n=4">娱乐信息</option>
                        <option value="wh.asp?n=5">其它信息</option>
                      </select>
                      <input type="button" name="Button1" value="转到" onClick="MM_jumpMenuGo('menu1','parent',0)"></td></form>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="8"></td>
                </tr>
              </table></td>
          </tr>
        </table>  
        <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#73A531"> 
            <td width="69%" bgcolor="#73A531">
<div align="center"><font color="#FFFFFF" bgcolor="#73A531">信　&nbsp;&nbsp;&nbsp;息　&nbsp;&nbsp;&nbsp;主　&nbsp;&nbsp;&nbsp;题</font></div></td>
            <td width="19%"><div align="center"><font color="#FFFFFF">时　&nbsp;间</font></div></td>
            <td width="12%"><div align="center"><font color="#FFFFFF">地　点</font></div></td>
          </tr>
          <%set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("erdfg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
if request("ok")="ok" then response.write "hello"   
set rs=com.execute("select*from msg where kin='"& request("n") &"'  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 bgcolor="#F7FFFB"> 
            <td width="69%">&nbsp;<a href="show.asp?n=<%response.write rs(0)%>"> 
              <%response.write rs(1)%>
              </a></td>
            <td width="19%" align="center">
              <%response.write rs(4)%>
            </td>
            <td width="12%" align="center">
              <%response.write rs(7)%>
            </td>
          </tr>
          <%if i=20 then exit do           
rs.movenext             
loop%>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="2" height="20"></td>
            <td width="3%"></td>
          </tr>
          <tr> 
            <td colspan="2" height="17"> <div align="right"> 
                <%if page=1 then %>
                上一页 
                <%else%>
                <a href="wh.asp?n=<%=request("n")%>&page=<%=page-1%>"><font color="#0000FF">上一页</font></a> 
                <%end if%>
                &nbsp; 
                <%if i=20 and not rs.eof then %>
                <a href="wh.asp?n=<%=request("n")%>&page=<%=page+1%>"><font color="#0000FF">下一页</font></a> 
                <%else%>
                下一页 
                <%end if%>
              </div></td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </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>
  <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>
          版权所有：鹰潭便民网　www.0701.com.cn　客户服务电话：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>