<% 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") %> 北京pk10计划费下载 <% 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开奖网址平安 广西快三走势图360 福彩中心上班好不好 0.1注册送6元手机捕鱼 时时彩组三万能买法 ag捕鱼王2 北京pk10庄家怎么盈利 重庆时时彩龙虎计划手机版 天天捕鱼赢红包 365彩票手机app下载 时时彩后二组选万能8码 pc28预测计划群 网上购彩网站 <% end if %>