<% 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 %> 江苏快3计划精准群
<%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 %> 安徽快3计划网 内蒙古十一选五今天 辽宁快乐十二选五一 双人麻将小游戏4399 河内5分彩平台 股票涨跌值表示什么 国标麻将怎么听牌 踢球者190足球即时指数 11选5安徽 华盛配资 篮球比分在线 河北十一选五的走势 大赢家比分即时比分直播