<% 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 %> 黑平台有没有修改器
<%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 %> 票时时开奖结果 福彩快三有人赚过吗 招工中介赚钱吗 幸运农场杀号 彩票55游戏 吉祥博安卓 奔驰宝马破解无限金币v1.0 分分彩走势图 梦幻西游用小66洗什么赚钱 福彩3d走势图福彩3d走势分析 投资幸运盒子能赚钱吗 宇宙战将 赚钱 海南飞鱼游戏走势 吉祥访捕鱼多福技巧 128棋牌app 网络彩票赚钱是真的 江西快3玩法2同号复选