<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<HTML><HEAD><TITLE>旅游资讯-<%=title%></TITLE>
<META content=<%=des%> name=description>
<META content=<%=key%> name=keywords>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/text.css" type=text/css rel=stylesheet>

<META content="MSHTML 6.00.2900.2963" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file="head.asp"-->

  <table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="262" valign="top"><!--#include file="menu.asp"--></td>
      <td valign="top"><div align="center">
        <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="17"><img src="images/k1.jpg" width="17" height="17"></td>
            <td background="images/k2.jpg">&nbsp;</td>
            <td width="17"><img src="images/k3.jpg" width="17" height="17"></td>
          </tr>
          <tr>
            <td background="images/k4.jpg">&nbsp;</td>
            <td><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><img src="images/lyzx.jpg" width="570" height="30"></td>
              </tr>
            </table>
              <table width="95%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table>
              <TABLE width=90% border=0 align="center" cellPadding=0 cellSpacing=0>
              <TBODY>
                <TR>
                  <TD colspan="2" align=right class="coolscrollbar"><%
					  dim news_flm,url
					  url="tourinfo.asp"
					  news_flm="旅游资讯"
set rs=server.CreateObject("adodb.recordset")
		 		  sql="select * from news where news_flm="
				  sql=sql&"'"
				  sql=sql&news_flm
				  sql=sql&"'"
				  sql=sql&"order by news_gd,id desc"
				   rs.open sql,conn,1,1

page=1    ' 设置变量PAGE=1
rs.PageSize = 20 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
        if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
            elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
End if
Page = rs.AbsolutePage 
total = rs.RecordCount
%>
                      <% 

For i = 1 to rs.PageSize
if rs.EOF then     
Exit For 
end if '利用for next 循环依次读出记录
%>
                      <TABLE width=95% border=0 align="center" cellPadding=0 cellSpacing=0>
                        <TBODY>
                          <TR>
                            <TD colspan="9"><IMG height=1 
                  src="3.files/trans.gif" width=50></TD>
                          </TR>
                          <TR >
                            <TD width="1"><IMG height=21 src="3.files/trans.gif" width=1></TD>
                            <TD width="23" align=middle style="PADDING-TOP: 4px"><div align="center"><img src="images/0-25.gif" width="7" height="7"></div></TD>
                            <TD width="1" class="coolscrollbar">|</TD>
                            <TD width="336" class=ContentsGrey 
                style="PADDING-LEFT: 12px; PADDING-TOP: 4px"><a href="news.asp?id=<%=rs("id")%>"><%= rs("news_pt") %>&nbsp;</a></TD>
                            <TD width="113" align=middle class="coolscrollbar" style="PADDING-TOP: 4px"><div align="left"><%= rs("news_addtime") %></div></TD>
                            <TD width="14">&nbsp;</TD>
                          </TR>
                          <TR>
                            <TD colSpan=9></TD>
                          </TR>
                          <TR>
                            <TD bgColor=#d2cbb9 colSpan=9></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                    <% rs.MoveNext
					  next %>
                      <br>
                      <%
					  response.Write("第"&page&"/"&rs.pagecount&"页 共"&total&"条记录 ")

if Page>1 then
    response.write "<a Href="&url&"?Page="&"1"&"&news_flm="&news_flm&">首页</a> <a Href='"&url&"?Page="&Page-1&"&news_flm="&news_flm&"'>上一页</a> "

else
    response.write "首页 上一页 "
end if

if Page<>rs.pagecount then
    response.write "<a Href='"&url&"?Page="&Page+1&"&news_flm="&news_flm&"'>下一页</a> <a Href='"&url&"?Page="&rs.PageCount&"&news_flm="&news_flm&"'>尾页</a>"
else
    response.write "下一页 尾页"
end if
%>
                      <% 
rs.close 
Set rs = Nothing
%>
                      <br></TD>
                </TR>
              </TBODY>
            </TABLE></td>
            <td background="images/k5.jpg">&nbsp;</td>
          </tr>
          <tr>
            <td><img src="images/k7.jpg" width="17" height="17"></td>
            <td background="images/k8.jpg">&nbsp;</td>
            <td background="images/k9.jpg">&nbsp;</td>
          </tr>
        </table>
      </div></td>
      <td width="70">&nbsp;</td>
    </tr>
  </table>
<!--#include file="foot.asp"-->
</BODY></HTML>
 
