<% response.write err.description if err<>0 then response.write("
錯誤
") else set rs=server.createobject("adodb.recordset") dim id id=request("id") sql="select * from dzxinwen where id="& id pic="nrpic" rs.Open sql, Conn, 0, 2 if rs.eof and rs.bof then response.write("
錯誤參數
") response.Redirect "/" end if if id=2852 then strurl="html/20100414-1.htm" response.Redirect(strurl) response.end end if if id=7564 then strurl="http://www.cea.gov.cn/publish/dizhenj/464/478/20161205085157900333409/index.html" response.Redirect(strurl) response.end end if if id=8037 then strurl="http://www.cea.gov.cn/publish/dizhenj/464/478/20170815212655405214483/index.html" response.Redirect(strurl) response.end end if if id=8810 then strurl="http://www.cea.gov.cn/publish/dizhenj/464/102620/103628/20181231162420278186295/index.html" response.Redirect(strurl) response.end end if function UBBCode(strContent,sq) dim re dim repic Set re=new RegExp re.IgnoreCase =true re.Global=True '處理圖片尺寸 'image.dll 'set img=server.createobject("imagesize") picpath=server.mappath(".") '修改以改變圖片 re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])" repic=sq&"$2" 'picfile=picpath & repic 'img.getimagesiez(re 'response.write picfile '內表格,但圖片多的時候會亂 'stable="" 'stable=stable+"
" stable=stable+"
按此在新窗口瀏覽圖片=800) this.width=800"">

" 'stable=stable+"


" ' strContent=re.Replace(strContent,"
"&stable) '有圖片顯示 'stable=stable+"
按此在新窗口瀏覽圖片=680) this.width=640"">

" strContent=re.Replace(strContent,stable) 'strContent=re.Replace(strContent,"

") '無圖片顯示 'strContent=re.Replace(strContent,"看圖") re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") set re=Nothing UBBCode=strContent end function nr=rs("nr") name=rs("name") yd=rs("yd")+1 sj=rs("shijian") ifhtml=rs("ifhtml") htmlname=rs("htmlname") nr=replace(nr,"VbV","'") if (id<>808) and (id<>1934) and (id<>1935) then nr=spastr & Replace(nr,vbcrlf,"
    ") nr="    "&ubbcode(nr,pic) end if 'response.write "d" if id=4413 then rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing strurl="html/20120216_1.html" response.Redirect(strurl) response.end end if if ifhtml=true then response.write ifhtml rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing strurl="html/"& htmlname response.Redirect(strurl) response.end end if rs("yd")=yd rs.update %> 2019时时多久开奖一次
<%call wdim2()%>
 

新聞查詢

 
標題:
內容:
排序:
   
 

地震專題

<% rs.close sql="select top 10 id,dzztname,jieshao from dzzj order by shijian desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else do while not rs.eof id=rs("id") zjname=rs("dzztname") zjjs=rs("jieshao") zjjs=Replace(zjjs,vbcrlf,"     ") tt="——"&zjname &"——     " tt=tt+zjjs strzj="-- "& zjname &"" %> <% rs.movenext loop end if rs.close %>
 <%=strzj%>
   
<%=name%>
閱讀次數: <%=yd%> 更新時間: <%=sj%>
<% yv=0 sv="" select case id case 4962 yv=1 sv="20120926.flv" case 5831 yv=1 sv="20140414.flv" case 6115 yv=1 sv="20140819.flv" case 6231 yv=1 sv="20141118.flv" case else yv=0 end select if yv=1 then %>
<% end if%>
<%=nr%>
   
 
 
<% end if rs.close set rs=nothing conn.close set conn=nothing %> 票时时开奖结果 跳舞赚钱嘛 刷宝赚钱可以邀几个好友 陕西快乐十分规则 梦幻西游生活技能哪个好赚钱 龙王破解版 比较火的网络赚钱项目 临武两码中特 手机阅读文章赚钱 最新69棋牌游戏大厅 微外汇赚钱 什么app可以用电脑赚钱的软件 僵尸来袭死亡之路 彩票投注网站源码下载 足彩半全场玩法介绍 甘肃十一选五任 收快递网点赚钱吗