<% 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 %> 小悟空 6场半全场奖金 光头强公式规律一码 亲朋游戏大厅下载 无字天书两码中特 快乐时时开奖结果 足彩进球彩四场霸主 泳坛夺金中奖结果查询 内蒙古快三专家预测今天 甘肃十一选五遗漏 河北快3遗漏号码 云南11选5遗漏数据 谁有陕西麻将群 河北十一选五--一定牛 排列5走势图500 写文章赚钱渠道 北京pk10提前报号