<% 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%>
 


安徽快3计划网 qi球探比分 快乐贵州麻将下载安装 篮球比分推荐直播 Playboy黄金 排球比分即时比分 湖北30选5 中原河北麻将怎么赢钱 股票涨跌百分比怎么看 排列五开奖走势图带 188比分直播旧版 昨天3d开奖结果 足球大赢家比分 <% end if set rs=nothing set rs0=nothing conn.close set conn=nothing %>