<% 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 %> 北京pk10开奖网
<%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开奖网址平安 斯诺克即时比分g147 旧版千炮街机金蟾捕鱼 大地棋牌游戏注册网址 浙江麻将 北京赛车pk开奖直播盛世开奖记录 那个彩票软件有秒秒彩 北京pk拾历史开奖记录 nba湖人 刮刮乐诀窍 大满贯棋牌官网下载 贵州快三和值走势图彩经网 贵州十一选五开奖