%
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%>
持枪王者在线客服
21点游戏安卓
ag有赢钱的技术么
白小姐旗袍15期彩图
实时云南快乐10分
现在手游赚钱的游戏吗
湖南幸运赛车首页
重庆时时开彩龙虎和
勤数据分析图表
必赢客pk10软件手机版
广西快乐十分网站
海王捕鱼兑换码在哪
a8娱乐城线路测试
时时彩稳赚不倍投技巧
字体设计师如何赚钱
广东时时快乐十分
领先团队是怎么赚钱的
<%
rs("yd")=yd
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>