<% 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") %> 香港开奖琭场直播结果 <% 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%>
 
 
 
票时时开奖结果 什么网站可以发布小说赚钱吗 低智商如何赚钱 捕鱼来了弹头价格表 卖睡衣的 赚钱 内幕 商业模式 广西快三计划免费软件 10码期期必中特 3d试机号后分析 云南十一选五购买技巧 女生视频赚钱的软件有哪些 疯狂德州真钱版官方 新人如何塔罗赚钱 第1彩票群 双色球开奖结果走势图 微信里的游戏靠什么赚钱 中彩网七乐彩综合分布图 七乐彩走势图中奖查询 <% end if %>