<% if err<>0 then response.write("
无法连接数据库
") else dim 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="    " id=request("id") sql="select * from dztongzhi where id="& id pic="neirongpic" rs.Open sql, Conn, 0, 2 nr=rs("neirong") name=rs("biaoti") yd=rs("yd")+1 sj=rs("shijian") nr=spastr & Replace(nr,vbcrlf,"

    ") nr=replace(nr,"VbV","'") nr=ubbcode(nr,pic) %>
<%=name%>
阅读次数: <%=yd%> 更新时间: <%=sj%>
<%=nr%>
持枪王者在线客服
时时彩平台代理 陕西棋牌麻将 四川成都股票配资利息 李逵劈鱼作弊器 自己赚钱自己花的说说 金沙棋牌最新官方下载 黑龙江十一选五 易算计划 国际赚钱谷歌广告语 新快3客户端 开家什么医院赚钱 看视频能在qq赚钱的软件 时时彩不定位胆必中法 时时彩组选走势 飞艇6码技巧 辽宁体彩11选5杀号方法 <% rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing end if %>