<% if err<>0 then response.write("
錯誤
") else dim xwid,xwtitle(4),xwtitle1(4) xwid=int(request("xwid")) xwtitle(4)=Array("熱點動態","局內新聞","災害新聞","地方新聞","時政要聞") xwtitle1(4)=Array("熱點動態","局工作動態","災害動態","市縣工作動態","時政要聞") xwname=xwtitle(4)(xwid) txwname=xwtitle1(4)(xwid) set rs=server.createobject("adodb.recordset") %> 1分快3计划 <% rs.close set rs=nothing conn.close set conn=nothing %>
 
 
<%=txwname%>
<% strxwname="" for ii=0 to 4 if ii<>xwid then sxwname=xwtitle1(4)(ii) strxwname=strxwname+"| "& sxwname &" |" end if next response.write strxwname %>  
<% if xwid=0 then sql = "select * from dzxinwen where (yaowen=1) order by shijian desc" else sql = "select * from dzxinwen where (leibie like '%"& xwname &"%') and (yaowen<>1) order by shijian desc" end if rs.Open sql, Conn, 0, 2 if not rs.eof or not rs.bof then datenow=now ' ynow=year(now) inum=0 do while not rs.eof inum=inum+1 btc=rs("namecolor") xinwenname=rs("name") if btc=true then xinwenname=""& xinwenname &"" xinwenid=rs("id") havepic=rs("nrpic") xinwensj=rs("shijian") iflink="" iflink=rs("iflink") linkname=rs("linkname") xinwensj=FormatDateTime(xinwensj,2) xyear=year(xinwensj) dayinterval=datediff("d",xinwensj,datenow) if dayinterval>2 then newstr="" else newstr="new" end if pstr="" if ( havepic<>null or havepic<>"") then pstr="" if iflink=true then strxinwen="·"&inum&"  " else strxinwen="·"&inum&"  " end if strxinwen=strxinwen+xinwenname & " "& pstr &"("&xinwensj&")"& newstr &"" if xyear<>ynow then %> <% ynow=xyear end if %> <% rs.movenext loop else ss="no" response.write ss end if%>
 <%=xyear%>
<% response.write "  "& strxinwen%>
 
 
 
北京pk10开奖网址平安 幸运农场 北京快乐8开奖結果 大众麻将是哪个省份的玩法 安徽快三走势图连线 体彩开奖结果 5分快三免费计划软件下载 吉林十一选五 黑龙江快乐10分预测 新火官网 辽宁11选5 手机版必赢客软件官网 写小博文怎么赚钱 <% end if %>