<% 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 %> 时时连赢1月一天洗白 <% 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%>
票时时开奖结果 一般培训机构多久能赚钱 叮当彩票群 4场进球彩玩法 体彩p5开奖结果 ag电子哪个游戏好打 韩国快乐8首页 钱生钱是最快赚钱法 恒发彩票首页 快手号多几个能赚钱吗 甘肃十一选五走势图1 捕鱼部落千炮版技巧 为什么最近答题赚钱火了 呼死你敲诈能赚钱吗 百度云资料赚钱 二分彩走势图 玩淘宝快3输了很多钱 <% rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing end if %>