<% if err<>0 then response.write("
數據連接錯誤
") else %> 小悟空APP下载
<%call wdim2()%>

地震快報

<% set rs=server.createobject("adodb.recordset") sql = "select top 12 * from dzkuaibao order by shijian desc" rs.Open sql, Conn, 0, 2 if not rs.eof or not rs.bof then i=0 do while not rs.eof i=i+1 qi=rs("qi") id=rs("id") nian=rs("nian") kbfile=rs("kbfile") kbfsize=rs("kbfilesize") kbfsize=FormatNumber(kbfsize/1024,2,-1) &" kb" ksj=FormatDateTime(rs("shijian"),2) strqi=nian&"年"&qi kyd=rs("yd") dname=""& strqi &" " %> <% rs.movenext loop else strkb="無快報文件" %> <% end if rs.close %>
快報:
<%=dname%> 時間:<%=ksj%> 大小:<%=kbfsize%> 下載:<%=kyd%>
 
  <%=strkb%>

<% dim yearint yearint=year(now) yearint=2018 y1=yearint-5 for i=yearint to y1 step -1 stryear=""& i &"年地震快報 " %> <%next%>
地震快報下載
<%response.write stryear%>
 


小悟空 上海时时彩开奖情况 现在赚钱最快最多的是什么 香港麻将馆规则 诈金花技巧口诀图解 缅甸龙虎算牌方法 山水云南麻将昆明软烂 七乐彩彩票开奖计算 足彩半全场胜胜 福彩幸运农场玩法 大神娱乐旧版 球探网足球场即时比分01 体彩奖金池 1993年象棋冠军邓有帮 大星黑龙江36选7走势图 22选5 p3试机号金码关注码 <% end if set rs=nothing set rs0=nothing conn.close set conn=nothing %>