<% if err<>0 then response.write("
错误
") else dim zjid zjid=request("id") %> 持枪王者客服 <% '获得图片 '判断文件存在 set fs=createobject("scripting.filesystemobject") strPath = Server.MapPath("/dizhenzt") picpath="nrpic" filepath=strpath &"\"& picpath &"\" 'response.write filepath function getpic(pp) if pp<>"" or pp<>null then getpic=filepath & pp if not fs.fileexists (getpic) then picstr="图片不存在,请检查图像文件" getpic= "" else getpic=pp picstr="图片" end if else picstr="无图片" getpic="" end if end function '分解图片 function vodname(fstr) dim fname() f1 = InStr(1, fstr, ",") if f1=0 then picnum=1 redim fname(picnum) fname(0)=fstr vodname=fname(0) exit function end if Do While f1 <> 0 picnum = picnum + 1 ReDim Preserve fname(picnum) fname(picnum - 1) = Left(fstr, f1 - 1) fstr = Right(fstr, Len(fstr) - f1) f1 = InStr(1, fstr, ",") If f1 = 0 Then picnum = picnum + 1 ReDim Preserve fname(picnum) fname(picnum - 1) = fstr Exit Do End If Loop vodname=fname(0) End function %>

震情概况

<% 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 %> <%end if%> <% year0=zjyear rszj.movenext loop end if rszj.close %>
<%=zjyear%>年
<%=strzj%>
<% 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%>
<% 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 &")" %> <% 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 &")" %> <% rszjxw.movenext zjname="" loop end if rszjxw.close %>
<%=strpicbt%>
    <%=zjjs%>
 
  <%=dname%>
  更多...
·
<%=xwstr%>
  相关报道
  更多...
·
<%=xwstr%>
   
 
<% rzzj.close %>

 
 
<% rszj.close rszjpic.close rszjxw.close set rszj=nothing set rszjpic=nothing set rszjxw=nothing conn.close set conn=nothing end if %> 持枪王者在线客服
菠萝小组如何快速赚钱 3d必出一个 福彩开奖 黑龙江11选5开奖规律 云南快乐十分软件 赚钱游戏赚现金 分分彩走势图表 幸运飞艇pk10直播视频 中学生赚钱的方式 现在网络怎样赚钱 双色球投注单详解 江西麻将玩法介绍 股票知识 河南481开奖最近100期 北京pk赛车走势图 28彩票网址