<% 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") %> 3d黑玩法 <% 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精准实用7码公式 江苏快三的开奖结果 河北排列7开奖结果 车牌限购怎么赚钱 江西时时彩闹剧 金辉彩票网址 哈尔滨打麻将胡卡技巧 贵州施秉开什么店赚钱 歌曲制作怎么赚钱 网上看新闻赚钱是不是真的 腾讯分分彩计划助赢 地下六合彩 918棋牌游戏大厅 浙江飞鱼玩法 捕鱼游戏哪个好玩 北京11选5走势图带连线 <% end if %>