📄 dv_ubbcode.asp
字号:
"<param name=""AUTOSTART"" value=""$3"" />"&_
"<param name=""CONtrOLS"" value=""controlpanel"" /><param name=""CONSOLE"" value=""$4"" /></object></div>",_
"<div><object "& DV_UBB_TITLE &" classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""object"" id=""RAOCX"" width=""$1"" height=""$2"">"&_
"<param name=""src"" value=""$4"" /><param name=""CONSOLE"" value=""$4"" /><param name=""CONtrOLS"" value=""imagewindow"" />"&_
"<param name=""AUTOSTART"" value=""false"" /></object></div>"&_
"<div><object "& DV_UBB_TITLE &" classid=""CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" height=""32"" id=""video"" width=""$1"">"&_
"<param name=""src"" value=""$4"" />"&_
"<param name=""AUTOSTART"" value=""false"" />"&_
"<param name=""CONtrOLS"" value=""controlpanel"" /><param name=""CONSOLE"" value=""$4"" /></object></div>"&_
Mtinfo,PostUserGroup,Cint(Board_Setting(9) * mt),"=*([0-9]*),*([0-9]*),*([0|1|true|false]*)")
End If
'背景音乐
If InStr(Ubblists,",7,")>0 Or sType=1 Then
s=Dv_UbbCode_iS2(s,"sound",_
"<a href=""$1"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/mid.gif"" border=""0"" alt=""背景音乐"" /></a><bgsound src=""$1"" loop=""-1"" />",_
"<a href=""$1"" target=""_blank"">$1</a>"& replace(Mtinfo,"$4","$1"),_
PostUserGroup,Cint(Board_Setting(9) * mt),"")
End If
'flash code
If InStr(Ubblists,",8,")>0 Or sType=1 Then
s=Dv_UbbCode_iS2(s,"flash",_
"<a href=""$1"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该FLASH动画!"" height=""16"" width=""16"" />[全屏欣赏]</a><br/>"&_
"<object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""500"" height=""400"">"&_
"<param name=""movie"" value=""$1"" /><param name=""quality"" value=""high"" />"&_
"<embed "& DV_UBB_TITLE &" src=""$1"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""500"" height=""400"">$1</embed></object>",_
"<img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0""> <a href=$1 target=""_blank"">$1</a>"& replace(Mtinfo,"$4","$1"),_
PostUserGroup,Cint(Board_Setting(44)),"")
s=Dv_UbbCode_iS2(s,"flash",_
"<a href=""$3"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该FLASH动画!"" height=""16"" width=""16"" />[全屏欣赏]</a><br/>"&_
"<object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$1"" height=""$2"">"&_
"<param name=""movie"" value=""$3"" /><param name=""quality"" value=""high"" />"&_
"<embed "& DV_UBB_TITLE &" src=""$3"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$3</embed></object>",_
"<a href=""$3"" target=""_blank"">$3</a>",PostUserGroup,Cint(Board_Setting(44)),"=*([0-9]*),*([0-9]*)")
End If
'point view
If InStr(Ubblists,",9,")>0 Or sType=1 Then
s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"money",_
"<hr size=""1"" /><font color=""gray"">以下内容需要金钱数达到<b>$1</b>才可以浏览</font><br />$2<hr size=""1"" />",_
"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要金钱数达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
UserPointInfo(0),Cint(Board_Setting(10)))
End If
If InStr(Ubblists,",10,")>0 Or sType=1 Then
s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"point",_
"<hr size=""1"" /><font color=""gray"">以下内容需要积分达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要积分达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
UserPointInfo(1),Cint(Board_Setting(11)))
End If
If InStr(Ubblists,",11,")>0 Or sType=1 Then
s=Dv_UbbCode_Get(s,PostUserGroup,PostType,_
"UserCP","<hr size=""1"" /><font color=""gray"">以下内容需要魅力达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要魅力达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
UserPointInfo(2),Cint(Board_Setting(12)))
End If
If InStr(Ubblists,",12,")>0 Or sType=1 Then
s=Dv_UbbCode_Get(s,PostUserGroup,PostType,_
"Power","<hr size=""1"" /><font color=""gray"">以下内容需要威望达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要威望达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
UserPointInfo(3),Cint(Board_Setting(13)))
End If
If InStr(Ubblists,",13,")>0 Or sType=1 Then
s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"Post",_
"<hr size=""1"" /><font color=""gray"">以下内容需要帖子数达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要帖子数达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
UserPointInfo(4),Cint(Board_Setting(14)))
End If
If InStr(Ubblists,",14,")>0 Or sType=1 Then
s=UBB_REPLYVIEW(s,PostUserGroup,PostType)
End If
If InStr(Ubblists,",15,")>0 Or sType=1 Then
s=UBB_USEMONEY(s,PostUserGroup,PostType)
End If
'url code
If InStr(Ubblists,",16,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"url","<a href=""$1"" target=""_blank"">$1</a>")
s=Dv_UbbCode_UF(s,"url","<a href=""$1"" target=""_blank"">$2</a>","0")
End If
'email code
If InStr(Ubblists,",17,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"email","<img "& DV_UBB_TITLE &" align=""absmiddle"" src=""skins/default/email1.gif"" alt=""""/><a href=""mailto:$1"">$1</a>")
s=Dv_UbbCode_UF(s,"email","<img "& DV_UBB_TITLE &" align=""absmiddle"" src=""skins/default/email1.gif"" alt=""""/><a href=""mailto:$1"" target=""_blank"">$2</a>","0")
End If
If InStr(Ubblists,",37,")>0 Or sType=1 Then
If (Cint(Board_Setting(8)) = 1 Or PostUserGroup<4) And InStr(Lcase(s),"[em")>0 Then
re.Pattern="\[em([0-9]+)\]"
s=re.Replace(s,"<img "& DV_UBB_TITLE &" src="""&EmotPath&"em$1.gif"" border=""0"" align=""middle"" alt="""" />")
End If
End If
If InStr(Ubblists,",23,")>0 Or sType=1 Then
s=Dv_UbbCode_C(s,"html")
End If
If InStr(Ubblists,",24,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"code","<pre class=""htmlcode""><b>以下内容为程序代码:</b><br/>$1</pre>")
End If
If InStr(Ubblists,",25,")>0 Or sType=1 Then
s=Dv_UbbCode_UF(s,"color","<font color=""$1"">$2</font>","1")
End If
If InStr(Ubblists,",26,")>0 Or sType=1 Then
s=Dv_UbbCode_UF(s,"face","<font face=""$1"">$2</font>","1")
End If
If InStr(Ubblists,",27,")>0 Or sType=1 Then
s=Dv_UbbCode_Align(s)
End If
If InStr(Ubblists,",42,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"center","<div align=""center"">$1</div>")
End If
If InStr(Ubblists,",28,")>0 Or sType=1 Then
s=Dv_UbbCode_Q(s)
End If
If InStr(Ubblists,",29,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"fly","<marquee width=""90%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>")
End If
If InStr(Ubblists,",30,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"move","<marquee scrollamount=""3"">$1</marquee>")
End If
If InStr(Ubblists,",31,")>0 Or sType=1 Then
s=Dv_UbbCode_iS1(s,"shadow","<div style=""width:$1px;filter:shadow(color=$2, strength=$3)"">$4</div>")
End If
If InStr(Ubblists,",32,")>0 Or sType=1 Then
s=Dv_UbbCode_iS1(s,"glow","<div style=""width:$1px;filter:glow(color=$2, strength=$3)"">$4</div>")
End If
If InStr(Ubblists,",33,")>0 Or sType=1 Then
s=Dv_UbbCode_UF(s,"size","<font size=""$1"">$2</font>","1")
End If
If InStr(Ubblists,",34,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"i","<i>$1</i>")
End If
If InStr(Ubblists,",35,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"b","<b>$1</b>")
End If
If InStr(Ubblists,",36,")>0 Or sType=1 Then
s=Dv_UbbCode_S1(s,"u","<u>$1</u>")
End If
If InStr(Ubblists,",41,")>0 Or sType=1 Then
s= Dv_UbbCode_name(s)
End If
'如果没有更新过帖子数据，而定员帖失效的，请把下面的注释去掉，建议进行帖子数据更新，以提高性能 2005.10.10 By Winder.F
'If InStr(Lcase(s),"[username")>0 Then s= Dv_UbbCode_name(s)
If InStr(s,"payto:") = 0 Then
s = Replace(s,"https://www.alipay.com/payt","https://www.alipay.com/payto:")
End If
If InStr(Ubblists,",40,")>0 Then
s=Dv_Alipay_PayTo(s)
End If
'自动识别网址
'If InStr(Ubblists,",18,")>0 Or InStr(Ubblists,",19,")>0 Or InStr(Ubblists,",20,")>0 Or InStr(Ubblists,",21,")>0 Or InStr(Ubblists,",22,")>0 Or sType=1 Then
' re.Pattern = "(^|[^<=""])(((http|https|ftp|rtsp|mms):(\/\/|\\\\))(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"
' s = re.Replace(s,"$1<a target=""_blank"" href=""$2"">$2</a>")
'End If
'自动识别www等开头的网址
'If InStr(Ubblists,",38,")>0 Or sType=1 Then
' re.Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)"
' s = re.Replace(s,"$1<a href=""http://$2"">$2</a>")
'End If
If xml.loadxml("<div>" & replace(s,"&","&") &"</div>") Then
isxhtml=True
s=checkXHTML(mt,PostUserGroup)
Else
Rem 处理老DHTML贴子
s=Dv_UbbCode_DHTML(s,PostUserGroup,PostType,sType)
End If
If textonly Then
s=TextFormt(s)
End If
If xml.loadxml("<div>" & replace(s,"&","&") &"</div>") Then
s=checkimg(s)
If showisxhtml=1 and Dvbbs.master Then
s=s&"<p style=""color:green"" align=""right"">[符合XHML规范，内容为纯文本或UBB(UBB解释文件版本："&ubb_version&")]</p>"
End If
Else
If Dv_FilterJS(s) Then
're.Pattern="\[(br)\]"
's=re.Replace(s,"<$1>")
re.Pattern = "( )"
s = re.Replace(s,Chr(9))
re.Pattern = "(<br/>)"
s = re.Replace(s,vbNewLine)
re.Pattern = "(<br>)"
s = re.Replace(s,vbNewLine)
re.Pattern = "(<p>)"
s = re.Replace(s,"")
re.Pattern = "(<\/p>)"
s = re.Replace(s,vbNewLine)
s=server.htmlencode(s)
s="<form name=""scode"&replyid&""" method=""post"" action=""""><table class=""tableborder2"" cellspacing=""1"" cellpadding=""3"" width=""100%"" align=""center"" border=""0""><tr><th height=""22"">以下内容含脚本,或可能导致页面不正常的代码</th></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><textarea id=""CodeText"" style=""BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; OVERFLOW-Y: visible; OVERFLOW: visible; BORDER-LEFT: 1px dotted; WIDth: 98%; COLOR: #000000; BORDER-BOTTOM: 1px dotted"" rows=""20"" cols=""120"">"&s&"</textarea></td></tr><tr><td class=""tablebody2"" align=""middle"" width=""98%""><b>说明：</b>上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.</td></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><input type=""button"" name=""run"" value=""运行代码"" onclick=""Dvbbs_ViewCode("&replyid&");""></td></tr></table></form>"
Dv_UbbCode=s
Exit Function
Else
s=bbimg(s)
End If
If showisxhtml=1 and Dvbbs.master Then
s=s&"<p style=""color:red"" align=""right"">[不符合XHML规范(UBB解释文件版本："&ubb_version&")]</p>"
End If
End If
Dv_UbbCode = s
End Function
Private Function checkXHTML(mt,PostUserGroup)
Dim node,newnode,nodetext,attributes1,attributes2
Dim NodeName,Attribute,AttName
Dim hasname,hasvalue
Rem 新xhtml 格式处理
Rem 检索有害标记实行过滤
Dim Stylestr,style,style1,newstyle,style_a,style_b
Dim XML1,titletext,thissrc,objcount
For Each Node in xml.documentElement.getElementsByTagName("*")
NodeName = LCase(Node.nodeName)
If NodeName="link" _
Or NodeName="iframe" _
Or NodeName="meta" _
Or NodeName="script" _
Or NodeName="frameset" _
Or NodeName="layer" _
Or NodeName="xss" _
Or NodeName="base" _
Or NodeName="html" _
Or NodeName="xhtml" _
Or NodeName="xml" _
Then
Set newnode=xml.createTextNode(node.xml)
node.parentNode.replaceChild newnode,node
End If
If NodeName="a" Then
Node.setAttribute "target","_blank"
End If
'去掉STYLE标记
If NodeName="style" Then
node.parentNode.removeChild(Node)
End If
If NodeName="embed" Then
node.setAttribute "quality","high"
node.setAttribute "wmode","opaque"
End If
'所有的属性的检查过滤
For Each Attribute in node.attributes
AttName = LCase(Attribute.nodeName)
If Left(AttName,2) = "on" Then
node.removeAttribute AttName
Else
nodetext=replaceasc(Attribute.text)
If InStr(nodetext,"script:")>0 or InStr(nodetext,"document.")>0 Or InStr(nodetext,"xss:") > 0 Or InStr(nodetext,"expression") > 0 Then
node.removeAttribute AttName
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -