<% 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 %> 下载app送30体验金的票平台
<%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 %> 票时时开奖结果 会赚钱的优酷路由器 北京快乐8投注大小技巧 好彩票官网更新 湖北11选5基本走势图 安徽麻将怎么算点数 竞彩篮球胜分差 欢乐斗棋牌捕鱼技巧 与十个人合作赚钱吗 抖音上的推荐赚钱软件 ewin棋牌用户中心 d8彩票软件 北京11选5走势图带连线 排三组六367历史统计 极速快3彩票 代理麦吉丽能赚钱么 什么手机软件抢能赚钱