<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<% 
    id=trim(request("id"))
    if id="" then
    call list()
	response.end
	end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from [news] where id="&cstr(id)
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
	response.write "没有指南"
	response.end
   	end if
   	function HTMLEncode(fString)
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString
    end function
   	%>
<html>
<HEAD>
<title>指南内容</title>
<script language="JavaScript">
function closewindow()
{ 
  window.close();
}
</script>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
</HEAD>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%call t()%>
<DIV id=content>
<DIV id=left>
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font>&nbsp;&nbsp;&gt;&gt; 最新回复/浏览信息</SPAN></DIV>
<DIV class=lcontent> <SPAN class=tableleft>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <%call nx()%>
  </TBODY></TABLE></SPAN></DIV></DIV> <!--leftborder end-->
<!--左边第一个广告开始-->
<DIV class=leftborder>
<DIV class=lcontent>
<center>广告设置处</center>
</div></div>
<!--左边第一个广告结束-->
<!--推荐信息开始-->
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font>&nbsp;&gt;&gt; vip推荐信息</SPAN></DIV>
<DIV class=lcontent>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
 <%call nxvip()%>
 </TBODY></TABLE></DIV></DIV>
<!--推荐信息结束-->
</DIV>
<!--left-->
<DIV id=right>
<DIV class=navigation>
<table border="0" width="100%" id="table1" style="border-collapse: collapse">
	<tr>
<td width="100%" colspan="0" class="td1" background="Images/menu_r.gif">
&nbsp;位置导航：<a href="/">首页</a>→<a href="news.asp">生活指南</a></td>
</tr></table></DIV>
<DIV class=rightbody>
<DIV class=tags_calss>
<!--公告内容开始-->
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" height="100%">
<tr>
<td colspan="3" align="center" style="font-weight: bold">
<span style="border-bottom:1px solid #CCCCCC; font-size: 14pt; height:40; padding-top:10px; width:90%; text-align:center; border-left-width:1px; border-right-width:1px; border-top-width:1px"><%=rs("nfrom")%></span></td>
</tr>
<tr>
<td width="98%" height="28" align="center" colspan="3">
<font color="#999999" font-size: 12pt;><%=rs("ndata")%>&nbsp;&nbsp;   来自:[<%=title%>]</font></td>
</tr>
<tr>
<td width="80">　</td>
<td width="524"><%=rs("nbiaoti")%></td>
<td width="37">　</td>
</tr>
<tr>
<td colspan="3" align="center"><hr size="1" width="90%" color="#CCCCCC"><a href="javascript:closewindow();" target="_self" style="text-decoration: none">
<font color="#999999">【关闭窗口】</font></a> <a href="index.asp">
<font color="#999999">【返回首页】</font></a><p>
</td>
</tr>
</table>
</center>
</div>
</DIV>
</DIV>
<!--公告内容结束-->
<!--公告标题开始-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%sub list()
dim sql,rs,biaoti,neirong,Allrecord,Pagesize,Allpage,ThisPage,k
if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [news] order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有新闻"
response.end
end if
rs.Pagesize=18
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
<title>生活指南标题</title>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
</HEAD>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%call t()%>
<DIV id=content>
<DIV id=left>
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font>&nbsp;&nbsp;&gt;&gt; 最新回复/浏览信息</SPAN></DIV>
<DIV class=lcontent> <SPAN class=tableleft>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <%call nx()%>
  </TBODY></TABLE></SPAN></DIV></DIV> <!--leftborder end-->
<!--左边第一个广告开始-->
<DIV class=leftborder>
<DIV class=lcontent>
<center>广告设置处</center>
</div></div>
<!--左边第一个广告结束-->
<!--推荐信息开始-->
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font>&nbsp;&gt;&gt; vip推荐信息</SPAN></DIV>
<DIV class=lcontent>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
 <%call nxvip()%>
 </TBODY></TABLE></DIV></DIV>
<!--推荐信息结束-->
</DIV>
<!--left-->
<DIV id=right>
<DIV class=navigation>
<table border="0" width="100%" id="table1" style="border-collapse: collapse">
	<tr>
<td width="100%" colspan="0" class="td1" background="Images/menu_r.gif">
&nbsp;位置导航：<a href="/">首页</a>→<a href="news.asp">生活指南</a></td>
</tr></table></DIV>
<DIV class=rightbody>
<DIV class=tags_calss>
<!--公告内容开始-->
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%">
<tr>
<td width="100%" colspan="4"></td>
</tr>
<tr>
<td width="2%"></td>
<td width="12%" height="20">
<p align="center"><font font-size: 12pt;>编号</font></td>
<td width="64%" height="20"><font font-size: 12pt;>标题</font></td>
<td width="28%" height="20"><font font-size: 12pt;>发布时间</font></td>
</tr>
<%do while not rs.eof%><span style="font-size: 12px">
<tr>
<td width="2%">　</td>
<td width="6%" height="20" style="font-size:12px;border-bottom:1px dotted #E1E1E1;" > </span>
<p align="center">
<font font-size: 12pt;><%=k+1%></font></td>
<td style="font-size:12px;border-bottom:1px dotted #E1E1E1;"  width="64%"><a  class=left href="?id=<%=rs("id")%>" target="_blank">
<font font-size: 12pt;><%=rs("nfrom")%></font></a></td>
<td style="font-size:12px;border-bottom:1px dotted #E1E1E1;"  width="28%"><font font-size: 12pt; color="#C0C0C0"><%=rs("ndata")%></font></td>
</tr>
  <%
    k=k+1
    rs.movenext
    if k>=Pagesize then exit do
	loop
	 %>
<tr>
<td width="100%" colspan="4">
<p align="center">
</td>
</tr>
</table>
<table width="98%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#ffffff" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#ffffff">
<td height="27" width="151" align="center" bgcolor="#DCEEFA">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td width="181" align="center" bgcolor="#DCEEFA">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td width="237" align="center" bgcolor="#DCEEFA">
现在是第 
                <font color="#CC5200"><%=ThisPage%></font> 页</td>
<td width="200" align="center" bgcolor="#DCEEFA">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1>首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td></tr></table></td>
</center>
</div>
<%
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
%>
</DIV>
</DIV>

<!--底部-->
</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
<%end sub%>
</td>
</tr>
</table>
</div><!--#include file="foot.asp"-->
</body>
</html>