<% if err<>0 then response.write("
錯誤
") else dim zjid set rszj=Server.CreateObject("ADODB.RecordSet") lbid=int(request("lbid")) zjid=request("zjid") 'response.write lbid if lbid=-1 then dname="相關報道" else sql="select * from dzzjlb where id="& lbid 'response.write sql rszj.open sql,conn,0,2 i=0 if rszj.eof and rszj.bof then str="
沒有此類別數據
" response.write str response.end else dname=rszj("name") end if end if rszj.close %> 小悟空试玩 <% '獲得圖片 '判斷文件存在 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 %>
地震專題

<% sql="select id,dzztname,dzzjyear from dzzj 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="" else picid=rszjpic("id") strbt1="" nrpic=rszjpic("nrpic") picfile0=vodname(nrpic) picfile=getpic(picfile0) picfile="nrpic/"&picfile xwname=rszjpic("xwname") end if strimage="" strpicbt=""& zjname & "" rszjpic.close %>
<%= strimage %>
<%=strpicbt%>
<% rszjxw.close if lbid=-1 then sqlxw="select * from dzzjnr where dzzjid="&zjid&" and DzLbid IS NULL order by iftop desc,shijian desc" else sqlxw="select * from dzzjnr where dzlbid="& lbid &" order by iftop desc,shijian desc" end if 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 rszjxw.close %>
<%=strpicbt%>
    <%=zjjs%>
 
<%=dname%>
   
· <%=xwstr%>
   
 

 
 
<% rszj.close rszjpic.close rszjxw.close set rszj=nothing set rszjpic=nothing set rszjxw=nothing conn.close set conn=nothing end if %> 小悟空 手机河北麻将游戏代理 11选5山东夺金走 麻将赢钱游戏 真人麻将四人麻将赢钱 华盛配资 3d千禧开机号试机号关注金码 辽宁35选7近500期开奖结果 188比分预测 mihiro作品封面及番号 广西11选5开奖结 p62中奖号码查询 一本道影片无码 腾讯大盘 冰球突破 呼和浩特按摩休闲会所 足探足球即时比分