<% '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%>
 
安徽快3计划网 哈尔滨麻将漏宝是什么意思啊 白小姐王中王中特正版开奖结果 混合过关 AG开心农场怎么打 现在卖什么赚钱微商 半全场 55彩票骗局 美女捕鱼游戏手机版 琼崖海南麻将技巧 24倍投公式 冠绝棋牌苹果版 超级大乐透 <% rs.close set rs=nothing conn.close set conn=nothing %>