<!--#include file="head.asp"-->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

<%dim sql,rs,thepage,currentpage,pagename,totalpage,n,page
newsname=HtmlEncode(trim(request("news")))
if city_oneid=0 then cityid="city_oneid>0"
if city_oneid<>0 and city_twoid=0 then cityid="city_oneid="&city_oneid&" and "
if city_oneid<>0 and city_twoid<>0 and city_threeid=0 then cityid="city_oneid="&city_oneid&" and city_twoid="&city_twoid&" and "
if city_oneid<>0 and city_twoid<>0 and city_threeid<>0 then cityid="city_oneid="&city_oneid&" and city_twoid="&city_twoid&" and city_threeid="&city_threeid&" and "
if city_oneid=0 then city_id="&news="&newsname&"&city_oneid=0"
if city_oneid<>0 and city_twoid=0 then city_id="&news="&newsname&"&city_oneid="&city_oneid
if city_oneid<>0 and city_twoid<>0 and city_threeid=0 then city_id="&news="&newsname&"&city_oneid="&city_oneid&"&city_twoid="&city_twoid
if city_oneid<>0 and city_twoid<>0 and city_threeid<>0 then city_id="&news="&newsname&"city_oneid="&city_oneid&"&city_twoid="&city_twoid&"&city_threeid="&city_threeid%>
<table width="760" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> </tr>
</table>
<table width="860"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="top">
    <td width="580"><table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="C0C0C0">
      <tr>
        <td bgcolor="#FFFFFF"><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="30"  colspan="3"><strong> <img src="images/img.gif" width="12" height="12">&nbsp;
			<%if city_oneid>0 then response.write "<a href=""index.asp?city_oneid="&city_oneid&""">"&aa1&"</a>&gt;&gt;"
			if city_twoid>0 then response.write "<a href=""index.asp?city_oneid="&city_oneid&"&city_twoid="&city_twoid&""">"&aa2&"</a>&gt;&gt;"
			if city_threeid>0 then response.write "<a href=""index.asp?city_oneid="&city_oneid&"&city_twoid="&city_twoid&"&city_threeid="&city_threeid&""">"&aa3&"</a>&gt;&gt;"
			%>新闻中心&gt;&gt;<%=newsname%> </strong></td>
          </tr>
          <tr><td  colspan="3" background="images/news_022.gif">&nbsp;</td></tr>
<%sql="select * from [news_data] where "&cityid&" and type='"&newsname&"' and stop>=date() order by [top] desc,adid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr height=""28""><td colspan=""2"">暂无新闻</td></tr>"
else
thepage=request("pageid")
if isnumeric(thepage)=false then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if
currentpage = cLng(thepage)            
if currentpage <= 0 then currentpage=1       
const maxperpage=10                      
rs.Pagesize = maxperpage  
pagename="news_more.asp"                     
totalpage = rs.PageCount 
rs.absolutepage = currentpage 
n=rs.recordcount                    
page = PageSplit(currentpage,totalpage,pagename,city_id)
if n>10 then
response.write "<tr><td height=""25"" colspan=""2"">&nbsp;&nbsp;页次：<b>"&currentpage&"/"&totalpage&"</b>&nbsp;&nbsp;每页<b>"&maxperpage&"</b>条&nbsp;&nbsp;共刊登<b>"&n&"</b>条"&tyname&"新闻&nbsp;&nbsp;&nbsp;&nbsp;"&page&"</td></tr>"
response.write "<tr><td colspan=""2"" background=""images/news_022.gif"">&nbsp;</td></tr>"
end if
i=0 
do while i < maxperpage and not rs.eof
response.write "<tr height=""25""><td><img src=""images/news_021.gif"" width=""14"" height=""16"" align=""left"">&nbsp;&nbsp;<a href=""html/news/"&rs("adid")&".htm"" target=""_blank"">" 
if rs("cu")="yes" then response.write "<b>"
response.write "<b><font "
if rs("color")<>"" then
response.write "color="&rs("color")
else
response.write "color=#0044DD"
end if
response.write ">"&rs("title")&"</font></b>"
if rs("cu")="yes" then response.write "</b>"
response.write "</a></td><td><font color=#999999><i>"&rs("date")&"</i></font></td></tr><tr height=""22""><td colspan=""2"" width=""80%""><a href=""html/news/"&rs("adid")&".htm"" target=""_blank"">"
text=Replace(Replace(rs("text"),"&nbsp;"," "),"<br>","")
response.write "<p style=""line-height: 150%"">"
if len(text)>60 then
response.write left(text,60)&"..."
else
response.write text
end if
response.write "</p>"
response.write "</a></td></tr>"
response.write "<tr><td colspan=""2"" background=""images/news_022.gif"">&nbsp;</td></tr>"
rs.movenext
i=i+1
loop
end if
if n>10 then%>
          <tr>
            <td colspan="2">&nbsp;&nbsp;页次：<b><%=currentpage%>/<%=totalpage%></b>&nbsp;&nbsp;每页<b><%=maxperpage%></b>条&nbsp;&nbsp;共刊登<b><%=n%></b>条<font color="#FF0000"><%=tyname%></font>新闻&nbsp;&nbsp;&nbsp;&nbsp;
                <%response.write page%></td>
          </tr>
          <%end if%>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td width="10">&nbsp;</td>
    <td width="270"><table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="C0C0C0">
      <tr>
        <td bgcolor="#FFFFFF"><table  border="0" cellpadding="0" cellspacing="0" align="center" id="table17">
          <tr>
            <td height="8"></td>
          </tr>
        </table>
        <table width="92%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr><td width="25" height="200" bgcolor="DAF0FF"><div align="center"><strong>图<br>片<br>新<br>闻</strong></div></td>
              <td>
<%set rs1 = server.createobject("adodb.recordset")
sql="select top 4 adid,pic,color,title,cu from [news_data] where pic <>'' and type='"&newsname&"' and stop>=date() order by [top] desc,adid desc"             
rs1.open sql,conn,1,1  
if rs1.eof then
response.write "暂无推荐图片信息"
else
i=0
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr valign=""bottom"">"
do while not rs1.eof
if i mod 2=0 then response.write "<tr>"
response.write "<td align=""center""><a href=""html/news/"&rs1("adid")&".htm"" target=""_blank""><img src=""adpic/"&rs1("pic")&""" width=""100"" height=""90"" border=""0""></a><br>"
response.write "<a href=""html/news/"&rs1("adid")&".htm"" target=""_blank"">" 
if rs1("cu")="yes" then
response.write "<b><font style=""font-size:9pt"""
if rs1("color")<>"" then response.write " color="""&rs1("color")&""""
response.write ">"&left(rs1("title"),8)&"</font></b>" 
else
response.write "<font style=""font-size:9pt"""
if rs1("color")<>"" then response.write " color="""&rs1("color")&""""
response.write ">"&left(rs1("title"),8)&"</font>"
end if
response.write "</a></td>"
rs1.movenext
i=i+1
if i mod 2=0 then response.write "</tr>"
loop
if i mod 2<>0 then response.write "<td></td></tr>"
response.write "</table>"
end if
rs1.close:set rs1=nothing%></td>
            </tr>
            <tr>
              <td height="30" colspan="2" background="images/news_0024.gif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: #990000"><strong>固顶新闻</strong></span></td>
            </tr>
            <tr>
              <td colspan="2">
<%response.write "<table width=""100%""  border=""0"" cellspacing=""4"" cellpadding=""0"" ><tr>"
set rs1=server.createobject("adodb.recordset")               
sql="select top 10 * from news_data where top=1 and stop>=date() order by adid desc"
rs1.open sql,conn,1,1
if rs1.eof then
response.write "<tr><td>暂无固顶新闻</td></tr>"
else
i=0
do while not rs1.eof
response.write "<tr><td><a title="&rs1("title")&" href=html/news/"&rs1("adid")&".htm target=blank><font style='size:12px'"
if rs1("color")<>"" then response.write "color="&rs1("color")
response.write ">"&left(rs1("title"),20)&"</font></a></td></tr>"
rs1.movenext
loop
end if
rs1.close:set rs1=nothing
response.write "</table>"%></td></tr><tr><td colspan="2">
</td>
            </tr>
        </table>
          <table  border="0" cellpadding="0" cellspacing="0" align="center" id="table17">
            <tr>
              <td height="8"></td>
            </tr>
          </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table  border="0" cellpadding="0" cellspacing="0" align="center" id="table17">
  <tr> 
    <td height="8"></td>
  </tr>
</table>
<table width="760" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
  </tr>
</table> 
<table border="0" width="760" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align=center>
  <tr>
  </tr>
</table><!-- 这里是主题结束 --><!--#include file="foot.asp"-->
