<% 'set fs=createobject("scripting.filesystemobject") 'set seis=fs.opentextfile(server.mappath("/seis/2002seis.txt")) set rs=server.createobject("adodb.recordset") renian=request("nian") if not isempty(renian) then ynow=int(renian) else ynow=year(now) end if %> 大震速報
<% aynow=year(now) for i=aynow to 2005 step -1 if i=ynow then ystr=ystr+""&chr(13) else ystr=ystr+""&chr(13) end if next %> <% sql="select * from dzbigseis where nian="& ynow &" order by seissj desc,shijian desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else i=0 do while not rs.eof i=i+1 nr=trim(rs("nr")) id=rs("id") sj=""& rs("shijian") &"" spastr= "" nr=Replace(nr,vbcrlf,"") lnum=instr(1,nr,"據") if lnum>5 then nr1=left(nr,lnum-1) nr1=Replace(nr1,vbcrlf,"") nr1=trim(nr1)&vbcrlf nr2=right(nr,len(nr)-lnum+1) nr=nr1&nr2 end if nr="    "&Replace(nr,"。","。"&vbcrlf) nr=spastr & Replace(nr,vbcrlf,"
    ") nr=replace(nr,"VbV","'") sstid="bigseisxx.asp?id="&id strname=""&nr&"" %> <% rs.movenext loop end if %>
 
選擇年份:
序號
大震內容
更新時間
<% =i %> <% =strname%> <% =sj%>
 
持枪王者在线客服
pc蛋蛋 闲来广东麻将安卓版 江西11选5是官方的吗 股票融资买入是好还是坏 浙江20选5走势图(带坐标线) 财神捕鱼游戏技巧视频 广东麻将开好友房版本 广西快乐双彩计算器 qq麻将花猪赔多少 股票各种线详解图 棋牌娱乐平台开发 极速快3开奖记录官网 大发pk10计划技巧公式 老财牛配资 甘肃快3走势图走势图手机版 余赚网app下载 <% rs.close set rs=nothing conn.close set conn=nothing %>