<% if err<>0 then response.write("
無法連接數據庫
") response.end end if dim id id=request("id") Set RS = Server.CreateObject("ADODB.RecordSet") 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 %> 重庆时时到底有多假
<%call wdim2()%>
<% spastr="    " sql="select * from zwgknr where id="& id 'pic="depjieshaopic" rs.Open sql, Conn, 0, 2 nr=rs("nr") name=rs("name") yd=rs("yd")+1 sj=rs("shijian") sj1=now() sj1=FormatDateTime(dateadd("d",-150,sj1),2) ifhtml=rs("ifhtml") htmlfile=rs("htmlfile") shtmlfile="/dizhendownfile/"&htmlfile afile=rs("afile") sfile="" if afile<>"" then sfile="/dizhendownfile/"&afile sfile=""&afile&"" end if if (id>90 and id<139) then nr=spastr & Replace(nr,vbcrlf,"
    ") nr=replace(nr,"VbV","'") nr=ubbcode(nr,pic) end if %>
 
<%if ifhtml=true then%> <%if afile<>"" then%> <%end if%>
        閱讀次數:<%=yd%> 更新時間:<%=sj%>
 
  附件:<%=sfile%>
<%else%> <%if afile<>"" then%> <%end if%> <%end if%>
<%=name%>
      閱讀次數:<%=yd%> 更新時間:<%=sj%>
  <%=nr%>
  附件:<%=sfile%>
 
 
<% rs("yd")=yd rs.update rs.close set rs=nothing conn.close set conn=nothing %> 票时时开奖结果 吉林11选五号码预测推荐 跑黑车的赚钱吗 南方彩票苹果 烧烤摊旁边卖什么赚钱 做押车放款能赚钱吗 什么软件玩直播赚钱吗 七星彩图规论坛 极速时时是不是骗局 787棋牌唯一官网下载 2019腾讯可以赚钱的挂机手游 香港代购奶粉如何赚钱 真钱诈金花微信提现 怎么炒莱特币赚钱 幸运农场开奖直播 奔驰宝马游戏机技巧 北京赛车官网pk10