<% if err<>0 then response.write("
數據連接錯誤
") else %> 江苏快3计划qq群
<%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%>
 


北京pk10开奖网址平安 云南快乐10分4期开奖结果 秒速飞艇 法拉利公司赚钱 福建11选5遗漏数据 甘肃十一选五开奖号 赚钱宝 pro 版本 上海百搭麻将下载 幸运农场开奖结果 马会传真内部九霄36码特围 上海快3遗漏数据查询 雪缘园足彩比分直播新闻 微商代理什么产品好卖怎么赚钱吗 <% end if set rs=nothing set rs0=nothing conn.close set conn=nothing %>