<% if err<>0 then response.write("
錯誤
") else dim lbid lbid=int(request("lbid")) dim ors Set oRS = Server.CreateObject("ADODB.RecordSet") sql = "select * from zwgklb where id="&lbid ors.open sql,conn,0,2 if ors.eof and ors.bof then strerr="數據錯誤" response.write strerr response.End() else lbname=ors("ztlb") end if ors.close %> 北京pk10开奖走势
<%call wdim2()%>
廣東省地震局政府信息公開    
<% sql = "select * from zwgklb order by num" ors.open sql,conn,0,2 if not ors.eof then do while not ors.eof slbid=int(ors("id")) slbname=ors("ztlb") strref="index0.asp?lbid="&slbid if slbid=21 then strref="/dizhenxinwen/dzxinwenll.asp?xwid=1" if lbid=slbid then strlbname="" else strlbname="" end if %> <% ors.movenext loop end if ors.close %>
<%=strlbname%>
<%=lbname%>

  <% inum=0 if lbid=17 then dim depsj dim lsj Set sRS = Server.CreateObject("ADODB.RecordSet") '部門更新時間 sql="select top 1 * from dzdepartment where jibie=1 order by shijian desc" srs.open sql,conn,0,2 if srs.eof and srs.bof then depsj="2017-03-30 13:05:15" else depsj=srs("shijian") end if srs.close '局領導更新時間 sql="select top 1 * from dzdepmen order by shijian desc" srs.open sql,conn,0,2 if srs.eof and srs.bof then lsj="2017-06-23 09:45:25" else lsj=srs("shijian") end if srs.close set srs=nothing inum=2 strxg1="局領導("&lsj&")" strxg2="局內機構("&depsj&")" %> <% end if sql = "select * from zwgknr where zwlb="& lbid &" order by shijian desc" ors.open sql,conn,0,2 if not ors.eof then sj=FormatDateTime(now(),2) ' sj1=FormatDateTime(dateadd("d",-48,sj),2) do while not ors.eof nn=0 inum=inum+1 name=ors("name") id=ors("id") sj0=ors("shijian") sj0=formatDateTime(sj0,2) '時間更新變動 nn=datediff("d",sj0,sj) ' response.write nn &" = "&sj &"---"&sj0&"
" if nn<48 then sj1=sj0 else sj1=FormatDateTime(dateadd("d",-48,sj),2) end if sj1=sj0 yd=ors("yd") sj=sj1 ' name0="標題:"&name&"
時間:"&sj&"
點擊:"&yd strxg=""& name &"("&sj1&")" %> <% ors.movenext loop end if %>
 

1.<%=strxg1%>

 

2.<%=strxg2%>

 

<%=inum%>.<%=strxg%>

<% rs.close set rs=nothing conn.close set conn=nothing end if call dbconnend %> 北京pk10开奖网址平安 葛洲坝股票分析 玩家盛宴是怎么赚钱的 宁夏11选5专家推荐号 彩名堂计划app4.0 捕鸟达人2评测 足球网上投注 重庆时时猜龙虎 吉子棋牌押龙虎技巧 山西快乐10分规则 时时彩后一三码倍投 无错36码特围期期准 广东快乐10分是骗局吗