<% if err<>0 then response.write("
无法连接数据库
") response.end end if dim id id=request("id") function UBBCode(strContent,sq) dim re dim repic Set re=new RegExp re.IgnoreCase =true re.Global=True '修改以改变图片 re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])" repic=sq&"$2" '内表格,但图片多的时候会乱 stable="" stable=stable+"
" stable=stable+"
按此在新窗口浏览图片

" stable=stable+"
" ' strContent=re.Replace(strContent,"
"&stable) '有图片显示 strContent=re.Replace(strContent,"

") '无图片显示 'strContent=re.Replace(strContent,"看图") set re=Nothing UBBCode=strContent end function Set RS = Server.CreateObject("ADODB.RecordSet") spastr="    " sql="select * from dzzjnr where id="& id rs.Open sql, Conn, 0, 2 nr=rs("nr") name=rs("xwname") yd=rs("yd")+1 sj=rs("shijian") ifhtml=rs("ifhtml") htmlname=rs("htmlname") if ifhtml=true then shtmlfile="html/"& htmlname else nr=spastr & Replace(nr,vbcrlf,"
    ") nr=replace(nr,"VbV","'") nr="
    "&ubbcode(nr,pic) end if %> 持枪王者试玩
<%call wdim2()%>
 
 
<%if ifhtml=true then%>
阅读次数:<%=yd%> 更新时间:<%=sj%>
<%else%>
<%=name%>
阅读次数:<%=yd%> 更新时间:<%=sj%>
  <%=nr%>
<%end if%>
<% rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing %> 持枪王者在线客服
花样直播好赚钱吗 山西十一选五开奖视频 蓄电池生产赚钱吗 广东十一选五开奖查询 时时彩一天玩一把能稳赚吗 主播怎么在爱奇艺赚钱 微信扫码就赚钱是真的吗 金蟾捕鱼游戏机 挂机玩游戏赚钱是真的吗 pk10全天免费手机计划北京pk10全天一期计划 美容美体赚钱 彩名堂计划软件怎么不能用了 七乐彩2018093开奖结果 中国以b赚钱的女人 捕鱼达人持炮弹水 捕鱼大师 捕鱼地带