<!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/style.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="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="900" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="900" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td width="257" valign="top" bgcolor="#F3F1E9"><!--#include file="left.asp"--></td>
            <td width="22" valign="top" bgcolor="#E2E0D4"><img src="images/back-3.jpg" width="22" height="273"></td>
            <td valign="top"><table width="615" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><img src="images/lyfw.jpg" width="615" height="45"></td>
              </tr>
              <tr>
                <td><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="tour.asp"
					  news_flm=71
set rs=server.CreateObject("adodb.recordset")
		 		  sql="select * from news where lm="
				  sql=sql&"'"
				  sql=sql&news_flm
				  sql=sql&"'"
				  sql=sql&"order by ontop,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("title") %>&nbsp;</a></TD>
                                  <TD width="113" align=middle class="coolscrollbar" style="PADDING-TOP: 4px"><div align="left"><%= year(rs("time"))%>-<%= month(rs("time"))%>-<%= day(rs("time"))%></div></TD>
                                  <TD width="14">&nbsp;</TD>
                                </TR>
                                <TR>
                                  <TD colSpan=9></TD>
                                </TR>
                                <TR>
                                  <TD bgColor=#333333 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>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</BODY></HTML>
 
