<% 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 %> 河内时时全天计划
<%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 %> 票时时开奖结果 怎么制作彩票网站平台 免费赚钱的飞车 开装潢材料店赚钱吗 零点棋牌游戏下载 春游卖什么小商品赚钱 北京超市卖花赚钱吗 美容赚钱还是美体 陕西11选5前三4码遗漏 56我乐搜狐怎么赚钱 山东体彩直播现场 11选5稳赚任选2 香港代购珠宝怎么赚钱 买13458和02679技巧 重庆时时猜计划群qq 单机捕鱼达人最旧版本 贵州十一选五开奖结果走势图表