用户信息
帖子内容
1 楼
ttkea
注册会员
积分 246
注册 2009-07-14
     
怎么解除论坛前台UBB限制
老大出于安全考虑限制了部分功能,,怎么打开呢?
2009-08-03 18:42:00
2 楼
jetiben
管理人员
积分 8100
注册 2006-06-28
     
commonincfilesubbcode.asp

[quote]  If spopedom = 1 Then
    If InStr(1, strcontent, "[/rm]", 1) > 0 Then
      re.Pattern = "[rm=*([0-9]*),*([0-9]*)](.[^[]*)[/rm]"
      strcontent = re.Replace(strcontent, "<object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa class=object id=raocx width=$1 height=$2><param name=src value=$3><param name=console value=clip1><param name=controls value=imagewindow><param name=autostart value=true></object><br><object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa height=32 id=video2 width=$1><param name=src value=$3><param name=autostart value=-1><param name=controls value=controlpanel><param name=console value=clip1></object>")
    End If
    If InStr(1, strcontent, "[/flash]", 1) > 0 Then
      re.Pattern = "[flash=*([0-9]*),*([0-9]*)](.[^[]*)[/flash]"
      strcontent = re.Replace(strcontent, "<script type=""text/javascript"">writeFlashHTML2(""_version=8,0,0,0"" ,""_swf=$3"", ""_width=$1"", ""_height=$2"", ""_quality=high"");</script>")
    End If
  End If[/quote]

变:

[quote]  If InStr(1, strcontent, "[/rm]", 1) > 0 Then
    re.Pattern = "[rm=*([0-9]*),*([0-9]*)](.[^[]*)[/rm]"
    strcontent = re.Replace(strcontent, "<object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa class=object id=raocx width=$1 height=$2><param name=src value=$3><param name=console value=clip1><param name=controls value=imagewindow><param name=autostart value=true></object><br><object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa height=32 id=video2 width=$1><param name=src value=$3><param name=autostart value=-1><param name=controls value=controlpanel><param name=console value=clip1></object>")
  End If
  If InStr(1, strcontent, "[/flash]", 1) > 0 Then
    re.Pattern = "[flash=*([0-9]*),*([0-9]*)](.[^[]*)[/flash]"
    strcontent = re.Replace(strcontent, "<script type=""text/javascript"">writeFlashHTML2(""_version=8,0,0,0"" ,""_swf=$3"", ""_width=$1"", ""_height=$2"", ""_quality=high"");</script>")
  End If[/quote]
2009-08-04 01:22:56 十年磨一剑,还没磨完那就再来十年!
3 楼
new
注册会员
积分 806
注册 2009-06-30
     
深夜解答问题,世界上到哪儿找这么好的客服~
2009-08-04 15:39:53
4 楼
tuotuo
钻石会员
积分 1480
注册 2008-03-21
     
哦 就是这个地方

帖子被 tuotuo 于 2009-08-04 18:12:22 编辑过
2009-08-04 16:47:34 来易网络科技 WWW.TOOOODATA.COM 网站建设 网页设计 小程序开发 站点托管
5 楼
ttkea
注册会员
积分 246
注册 2009-07-14
     
谢谢老大!
2009-08-04 18:19:07
6 楼
ryu8023
注册会员
积分 280
注册 2009-08-10
     
回复: 怎么解除论坛前台UBB限制

这个是开放什么东西?就FLASH限制?改后,前台还是UBB模式,不是HTML编辑器呀,谁知道如何论坛开启tiny_mce(3.4.2/3.58)编辑器?


哦,还是UBB模式,只是开启了FLASH标签,不过object也应该失效了,也需要改。

本帖由 ryu8023 于 2020-04-26 00:38:33 编辑过
2020-04-26 00:33:05
7 楼
ryu8023
注册会员
积分 280
注册 2009-08-10
     
回复: 怎么解除论坛前台UBB限制

重新整理一下:


1.将common/incfiles/ubbcode.asp下载下来,并保留一份原稿ubbcode1.asp


If spopedom = 1 Then
    If InStr(1, strcontent, "[/rm]", 1) > 0 Then
      re.Pattern = "[rm=*([0-9]*),*([0-9]*)](.[^[]*)[/rm]"
      strcontent = re.Replace(strcontent, "<object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa class=object id=raocx width=$1 height=$2><param name=src value=$3><param name=console value=clip1><param name=controls value=imagewindow><param name=autostart value=true></object><br><object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa height=32 id=video2 width=$1><param name=src value=$3><param name=autostart value=-1><param name=controls value=controlpanel><param name=console value=clip1></object>")
    End If
    If InStr(1, strcontent, "[/flash]", 1) > 0 Then
      re.Pattern = "[flash=*([0-9]*),*([0-9]*)](.[^[]*)[/flash]"
      strcontent = re.Replace(strcontent, "<script type=""text/javascript"">writeFlashHTML2(""_version=8,0,0,0"" ,""_swf=$3"", ""_width=$1"", ""_height=$2"", ""_quality=high"");</script>")
    End If
  End If


2.搜索“If InStr(1, strcontent, "[/rm]", 1) > 0 Then”,修改为:


If InStr(1, strcontent, "[/mp]", 1) > 0 Then

    re.Pattern = "\[mp=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/mp]"

    strcontent = re.Replace(strcontent, "<embed id=mediaplayer width=$1 height=$2 src=$3></embed>")

  End If

  If InStr(1, strcontent, "[/rm]", 1) > 0 Then

    re.Pattern = "[rm=*([0-9]*),*([0-9]*)](.[^[]*)[/rm]"

    strcontent = re.Replace(strcontent, "<embed id=raocx width=$1 height=$2 src=$3></embed>")

  End If


这个不是HTML编辑器,是UBB开放FLASH便签模式

2020-04-26 01:09:12