<% '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 %> 北京pk10开奖记录结果
<% 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%>
 
北京pk10开奖网址平安 未来做什么生意开什么店最赚钱 赌场试赌 足彩14场开奖 网络捕鱼游戏软件 红黑梅方游戏机漏洞红 贵州快三25日开奖结果 时时彩计划软件苹果手机版 3.15股票推荐 黑红梅方王漏洞 0140李逵劈鱼 keno怎么玩 pc在线预测 <% rs.close set rs=nothing conn.close set conn=nothing %>