震情概況
<%
set rszj=Server.CreateObject("ADODB.RecordSet")
sql="select id,dzztname,dzzjyear from dzzj where id<>39 order by shijian desc"
rszj.open sql,conn,0,1
if rszj.eof and rszj.bof then
else
'year0=year(now)
do while not rszj.eof
zjname=rszj("dzztname")
zjid1=rszj("id")
zjyear=rszj("dzzjyear")
strzj=""& zjname & ""
if zjyear<>year0 then
%>
<%=zjyear%>年
|
<%end if%>
□ |
<%=strzj%> |
<%
year0=zjyear
rszj.movenext
loop
end if
rszj.close
%>
|
<%
set rszjxw=Server.CreateObject("ADODB.RecordSet")
set rszjpic=Server.CreateObject("ADODB.RecordSet")
datenow=now
sql="select * from dzzj where id="& zjid
rszj.open sql,conn,0,1
zjname=rszj("dzztname")
zjjs=rszj("jieshao")
zjjs= Replace(zjjs,vbcrlf," ")
zjjs=replace(zjjs,"VbV","'")
zjsj=rszj("shijian")
'response.write datenow
dayinterval=datediff("d",zjsj,datenow)
if dayinterval>7 then
newstr=""
else
newstr=" new"
end if
zjname=zjname&""& newstr &""
sqlpic="select * from dzzjnr where dzzjid="& zjid &" and logo=1"
rszjpic.open sqlpic,conn,0,1
if rszjpic.eof and rszjpic.bof then
picfile="nrpic/logo.jpg"
xwname=""
strimage=" "
strpicbt=""& zjname & ""
else
picid=rszjpic("id")
strbt1=""
nrpic=rszjpic("nrpic")
picfile0=vodname(nrpic)
picfile=getpic(picfile0)
picfile="nrpic/"&picfile
xwname=rszjpic("xwname")
strimage=" "
strpicbt=""& zjname & ""
end if
rszjpic.close
%>
<%= strimage %> |
<%=strpicbt%>
|
|
<%=strpicbt%> |
<%=zjjs%> |
|
<%
rszj.close
sql="select * from dzzjlb where zjid="& zjid &" order by num"
'response.write sql
rszj.open sql,conn,0,2
i=0
if rszj.eof and rszj.bof then
else
do while not rszj.eof
i=i+1
dname=rszj("name")
lbid=rszj("id")
%>
|
<%
rszjxw.close
sqlxw="select top 10 * from dzzjnr where dzlbid="& lbid &" order by iftop desc,shijian desc"
rszjxw.open sqlxw,conn,0,2
if rszjxw.eof and rszjxw.bof then
else
izj=0
do while not rszjxw.eof
izj=izj+1
xwname=rszjxw("xwname")
xwid=rszjxw("id")
xwsj=FormatDateTime(rszjxw("shijian"),2)
havepic=rszjxw("nrpic")
pstr=""
if ( havepic<>null or havepic<>"") then pstr=""
xwstr=""& xwname &""& pstr &"("& xwsj &")"
%>
· |
<%=xwstr%> |
<%
rszjxw.movenext
zjname=""
loop
end if
'response.write dname&" "
rszj.movenext
loop
end if
rszj.close
rszjxw.close
%>
<%
'無類別,和以前兼容
sqlxw="select top 10 * from dzzjnr where dzzjid="&zjid&" and DzLbid IS NULL order by iftop desc,shijian desc"
'response.write sqlxw
rszjxw.open sqlxw,conn,0,2
if not rszjxw.eof then
%>
|
<%
izj=0
do while not rszjxw.eof
izj=izj+1
xwname=rszjxw("xwname")
xwid=rszjxw("id")
xwsj=FormatDateTime(rszjxw("shijian"),2)
havepic=rszjxw("nrpic")
pstr=""
if ( havepic<>null or havepic<>"") then pstr=""
xwstr=""& xwname &""& pstr &"("& xwsj &")"
%>
· |
<%=xwstr%> |
<%
rszjxw.movenext
zjname=""
loop
end if
rszjxw.close
%>
|
<%
%>
|
|
|
<%
rzzj.close
%>
|
|