<% '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%>
辽宁快乐12一定牛分布 <% rs.close set rs=nothing conn.close set conn=nothing %>