<% 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%>
 
 
 
票时时开奖结果 凯盈线上娱乐平台 大乐透开奖结果查询 易博网安卓 11选5胆拖玩法 中国福彩中心开机号 怎样用短视赚钱 南粤36选7 赚钱的女人 可以赚钱的app用微信提现 山东11选5任选走势 靠快递费赚钱 跑黑车的赚钱吗 3d最准确的定独胆公式 波克棋牌官网个人中心 浙江11选5规律 奔驰宝马怎么压能赢钱 <% end if %>