<!--#include file="Connection.asp"-->
<!--#include file="admin/system/WebConfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<title><%=webname%>--新闻动态</title>
</head>
<TABLE width="770" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width="35%" height="81" align=left 
                  bgColor=#ffffff class=b><div align="center"><img src="<%=weblogo%>"></div></TD>
      <TD width="65%" align=middle vAlign=center  
                bgColor=#ffffff class=b><div align="center"><img src="<%=webbanner%>"></div></TD>
    </TR>
    <TR vAlign=middle bgcolor="#0F77B1">
      <TD height=27 
                colSpan=2 align=left class=b><TABLE width="100%" height="100%" border=0 
                  align=center cellPadding=0 cellSpacing=0 class=9>
          <TBODY>
            <TR>
              <TD align=left vAlign=middle background="images/top_bar.gif" class=b>
                <div align="center"><FONT color=#ffffff><a href="default.htm"><FONT color=#ffffff>首页</Font></a> | <a href="News.asp"><FONT color=#ffffff>新闻动态</Font></a> | <a href="xl.html"><FONT color=#ffffff>度假产品</FONT></a> | <a href="hotel.html"><FONT color=#ffffff>酒店预定</FONT></a> |<a href="ticket.asp"><font color="#FFFFFF"> 机票预定</font></a> | <a href="guide.asp"><font color="#FFFFFF">导游推荐</font></a> | <a href="pic.asp"><font color="#FFFFFF">美图欣赏</font></a> | <a href="Gbook.asp"><font color="#FFFFFF">留下意见</font></a> | <a href="userInfo/userInfo.asp"><font color="#FFFFFF">会员中心</font></a> | <a href="Help.asp"><font color="#FFFFFF">在线帮助</font></a></FONT> <img src="images/b_start.gif" width=122 height=16 border=0 align="absmiddle"></div></TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="admin/system/system_code.asp" -->
<TABLE width=770 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD> <TABLE width="100%" border=0  align=center cellPadding=0 cellSpacing=0 background="images/top_nav_menu.gif">
              <TBODY>
                <TR bgColor=#ffffff> 
                  <TD colSpan=3 height=2></TD>
                </TR>
                <TR> 
                  <TD width="44" height=25 align=right><img src="images/arrow3.gif" width="29" height="11"></TD>
                  
<TD width="715"><FONT color=#333333>&nbsp;您的位置：&nbsp;</FONT><a href="default.htm">网站的首页</a> &gt;&gt; 新闻动态</TD>
                  <TD width="11">&nbsp;</TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=770 border=0>
        <TBODY>
       
<TR> 
<TD width=185 vAlign=top 
          bgColor=#f6f6f6 style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD height="40">
        <TABLE cellSpacing=0 cellPadding=0 width="183" border=0>
          <TBODY>
            <TR>
              <TD width="183" height=40 background="Images/t-1.gif">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD height=117 valign="top">
        <%sql="select top 8 id,c_name from Hotelb order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1

if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
        <table width="93%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="18"> <font color="#666666"><a href="Hotel/Hotel_<%=rs("id")%>.html">
              <%if len(rs("c_name"))>13 then%>
              <%=left(rs("c_name"),13)%>...
              <%else%>
              <%=rs("c_name")%>
              <%end if%>
            </a></font></td>
          </tr>
        </table>
        <%
rs.movenext                                                 
loop
end if
rs.close%></TD>
    </TR>
    <TR>
      <TD></TD>
    </TR>
    <TR>
      <TD></TD>
    </TR>
    <TR>
      <TD background=Img/homedhbg.gif><TABLE cellSpacing=0 cellPadding=0 width="183" border=0>
          <TBODY>
            <TR>
              <TD width="183" height=40 background="Images/t-2.gif">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD height="117" vAlign=top>
        <%sql="select top 8 id,x_name from xianlu order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1

if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
        <table width="93%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="18"> <font color="#666666"><a href="xl/xl_<%=rs("id")%>.html">
              <%if len(rs("x_name"))>13 then%>
              <%=left(rs("x_name"),13)%>...
              <%else%>
              <%=rs("x_name")%>
              <%end if%>
            </a> </font></td>
          </tr>
        </table>
        <%
rs.movenext                                                 
loop
end if
rs.close%></TD>
    </TR>
    <TR>
      <TD></TD>
    </TR>
    <TR>
      <TD background=Img/homedhbg.gif>
        <TABLE cellSpacing=0 cellPadding=0 width="183" border=0>
          <TBODY>
            <TR>
              <TD width="183" height=40 background="Images/t-3.gif">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD height="117" vAlign=top><!--#include file="toupiaoinfo.asp" --></TD>
    </TR>
    <TR>
      <TD></TD>
    </TR>
    <TR>
      <TD></TD>
    </TR>
    <TR>
      <TD height="7"></TD>
    </TR>
  </TBODY>
</TABLE></TD>         
<TD vAlign=top align=left style="BORDER-RIGHT: #d8d8d8 1px solid"> 
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=8></TD>
</TR>
</TBODY>
</TABLE>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td colspan="3"><img src="images/News.gif" width="548" height="33"></td>
</tr>
<tr> 
<td width="26" height="526" valign="top"><img src="images/left.gif" width="13" height="175"></td>
<td width="507"valign="top">
<%
set strs=server.createobject("adodb.recordset")
stsql="select id,Title,time from news order by time desc"
strs.open stsql, conn, 1, 1
if not strs.eof then
strs.PageSize =25 '每页记录条数
result_num=strs.RecordCount '记录总数
maxpage=strs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
strs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not strs.eof then 
for i=1 to strs.PageSize

Response.Write ("<table width=506  border=0 cellspacing=0 cellpadding=0>")
Response.Write ("<tr>")
Response.Write ("<td width=15 height=20><img src=images/doc.gif width=10 height=12 align=absmiddle></td>")
Response.Write ("<td width=359><a href=News/News_"&strs("id")&".html>"&strs("title")&"</a></td>")
Response.Write ("<td width=132>"&strs("time")&"</td>")
Response.Write ("</tr>")
Response.Write ("</table>") 
strs.movenext      
if strs.EOF then Exit For      
next      
end if      
strs.close      
set strs=nothing      
%></td>
<td width="16" valign="top"><img src="images/right.gif" width="16" height="175"></td>
</tr>
<tr>
<td height="25" valign="top">&nbsp;</td>
<td height="30" align="center" valign="middle"><% call LastNextPage(maxpage,page,result_num) %></td>
<td height="25" valign="top">&nbsp;</td>
</tr>
</table></TD>
</TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
<TABLE width="770" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width="1" rowspan="2" align=middle vAlign=bottom bgcolor="#CCCCCC"></TD>
      <TD 
height=25 align=middle background=images/foot_patt01.gif><a href=Default.htm>网站首页</a> | <a href=about.asp?action=about >关于我们</a> | <a href=user.asp?action=pay >在线支付</a> | <a href=about.asp?action=lxwm >业务联系</a> | <a href=help.asp?action=shiyongfalv >版权声明</a> | <a href=help.asp?action=fukuan >付款方式</a> | <a href=gbook.asp >留言/建议/投诉</a></TD>
      <TD width="1" rowspan="2" align=middle vAlign=bottom bgcolor="#CCCCCC"></TD>
    </TR>
    <TR>
      <TD height=60><div align="center">
          <%dim endtime
endtime=timer()
response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&"<br>"
response.Write "　客服邮箱：<a href=mailto:"&webemail&">"&webemail&"</a>　客服电话："&dianhua&"<br>　"
response.Write "  <font color=#000000><b>"&weburl&"</b></font> &copy; <font color=red> "&copyright&" </font>"
response.Write "　页面执行时间："&FormatNumber((endtime-startime)*1000,3)&" 毫秒"
%>
      </div></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>
