%
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
%>
北京pk10走势
<%
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%>
北京pk10开奖网址平安
学校餐厅做什么赚钱
秒速飞艇网站
为什么现在男的赚钱要上交
妞妞游戏中心
做借贷赚钱吗
快乐12分开奖
扑克牌比大小稳赢
赚钱方法用支付莹搜96 03
单双公式规律
三分快3玩龙虎技巧
老版万人炸金花下载
软件试客赚钱靠谱吗
<%
rs("yd")=yd
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>