<% 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 %> 持枪王者在线客服
湖北11选5最快开奖结果 王牌三肖六码3肖6码 微信捕鱼可以微信提现 浙江快乐彩12选5玩法 网上有一种赚钱的软件是什么软件吗 香港王中王免费平特一肖公开 疯狂水果拉霸机下载 飞艇冠军二期四码计划 穿越火线手游小丑模式 手机单机麻将游戏下载 深圳西红士靠什么赚钱 广东11选5计划软件新版 体育投注开户 飞艇冠军二期四码计划 粉笔厂赚钱 开长途客车赚钱吗