ubbcode.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 646 行 · 第 1/2 页
ASP
646 行
<%
Dim ubb
Set ubb = New NewAsp_UbbCode
Class NewAsp_UbbCode
Private re,xml,isxhtml,MaxLoopcount
Private m_strBasePath,SettingArray,m_strPicPath
Private ContentKeyword,m_strTitle,IsPagination
Private m_strImgzoom,m_intResize
Public maxpagesize
Private sub Class_Initialize()
On Error Resume Next
'UBB代码勘套循环的最多次数，避免死循环加入此变量
MaxLoopcount =100
set re = New RegExp
re.IgnoreCase = True
re.Global = True
set xml = server.Createobject("msxml2.DOMDocument"& MsxmlVersion)
SettingArray = Array(0,0,0,1,1,1,1,1,1,1,0,550,0,0,1)
'-- 图片路径
m_strPicPath = Newasp.InstallDir & "images/pic/"
m_strBasePath = Newasp.InstallDir
m_strTitle = ""
IsPagination = False
maxpagesize = 0
End sub
Private sub Class_Terminate()
set re = Nothing
set xml = Nothing
set ubb = Nothing
End sub
Public Property Let BasePath( basePathValue )
m_strBasePath = basePathValue
End Property
Public Property Let PicPath( PicPathValue )
m_strPicPath = PicPathValue& "images/pic/"
End Property
Public Property Let setUbbcode( setValue )
SettingArray = SplitArray(setValue, "|",4)
End Property
Public Property Let Keyword( KeywordValue )
ContentKeyword = KeywordValue
End Property
Public Property Let Title( TitleValue )
m_strTitle = TitleValue
End Property
Public Property Let Pagination( PaginationValue )
IsPagination = CBool(PaginationValue)
End Property
Function xmlencode(ByVal str)
Dim i
str = Replace(str,"&","&")
For i = 0 to 31
str = Replace(str,Chr(i),"&#"&i&";")
Next
For i = 95 to 96
str = Replace(str,Chr(i),"&#"&i&";")
Next
xmlencode = str
End Function
Function xmldecode(ByVal str)
Dim i
str = Replace(str,"&","&")
For i = 0 to 31
str = Replace(str,"&#"&i&";",Chr(i))
Next
For i = 95 to 96
str = Replace(str,"&#"&i&";",Chr(i))
Next
xmldecode = str
End Function
Public Function UBBCode(ByVal strContent)
m_intResize = Newasp.ChkNumeric(SettingArray(11))
If m_intResize < 10 Then
m_strImgzoom = "return imgresize(this);"
Else
m_strImgzoom = "return imgzoom(this," & m_intResize & ");"
End If
're.Pattern="([\f\n\r\t\v])"
'strContent=re.Replace(strContent,"")
re.Pattern="(<p> <\/p>)"
strContent=re.Replace(strContent, "")
re.Pattern="(\[InstallDir_ChannelDir\])"
strContent=re.Replace(strContent, m_strBasePath)
re.Pattern="(<s+cript[^>]*?>([\w\W]*?)<\/s+cript>)"
strContent=re.Replace(strContent, "")
re.Pattern="(<iframe[^>]*?>([\w\W]*?)<\/iframe>)"
strContent=re.Replace(strContent, "")
re.Pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)=""[^""]+"")"
strContent=re.Replace(strContent, "")
re.Pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)='[^""]+')"
strContent=re.Replace(strContent,"")
strContent=xmldecode(strContent)
If xml.loadxml("<div>" & xmlencode(strContent) &"</div>") Then
isxhtml=True
Else
isxhtml=false
End If
'-- 是否禁用URL标签
If SettingArray(1) = "0" And SettingArray(0) = "0" Then
strContent=ProcessUbbCode_S1(strContent,"url","<a href=""$1"" target=""_blank"">$1</a>")
strContent=ProcessUbbCode_UF(strContent,"url","<a href=""$1"" target=""_blank"">$2</a>","0")
Else
strContent=ProcessUbbCode_S1(strContent,"url","$1")
strContent=ProcessUbbCode_UF(strContent,"url","$2","0")
End If
'-- 是否禁用IMG标签
If SettingArray(2) = "0" And SettingArray(0) = "0" Then
re.Pattern="(\[img\])(.[^\[]*)(\[\/img\])"
strContent=re.Replace(strContent,"<img src=""$2"" />")
Else
re.Pattern="(\[img\])(.[^\[]*)(\[\/img\])"
strContent=re.Replace(strContent,"$2")
End If
strContent=checkimg(bbimg(strContent))
If SettingArray(5) = "0" And SettingArray(0) = "0" Then
strContent=ProcessUbbCode_S1(strContent,"email","<a href=""mailto:$1"">$1</a>")
strContent=ProcessUbbCode_UF(strContent,"email","<a href=""mailto:$1"" target=""_blank"">$2</a>","0")
Else
strContent=ProcessUbbCode_S1(strContent,"email","$1")
strContent=ProcessUbbCode_UF(strContent,"email","$2","0")
End If
'--是否禁用DOWN标签
If SettingArray(7) = "0" And SettingArray(0) = "0" Then
strContent=ProcessUbbCode_S1(strContent,"down","<a href=""$1"" target=""_blank""><img src=""" & m_strPicPath & "download.gif"" alt="""" border=""0"" style=""margin:0px 2px -4px 0px""/>点击下载此文件</a>")
strContent=ProcessUbbCode_UF(strContent,"down","<a href=""$1"" target=""_blank""><img src=""" & m_strPicPath & "download.gif"" alt="""" border=""0"" style=""margin:0px 2px -4px 0px""/>$2</a>","0")
Else
strContent=ProcessUbbCode_S1(strContent,"down","$1")
strContent=ProcessUbbCode_UF(strContent,"down","$2","0")
End If
If SettingArray(8) = "0" And SettingArray(0) = "0" Then
strContent=ProcessUbbCode_S1(strContent,"ed2k","<a href=""$1"" target=""_blank""><img src=""" & m_strPicPath & "ed2k.gif"" alt="""" border=""0"" style=""margin:0px 2px -4px 0px""/>$1</a>")
strContent=ProcessUbbCode_UF(strContent,"ed2k","<a href=""$1"" target=""_blank""><img src=""" & m_strPicPath & "ed2k.gif"" alt="""" border=""0"" style=""margin:0px 2px -4px 0px""/>$2</a>","0")
Else
strContent=ProcessUbbCode_S1(strContent,"ed2k","$1")
strContent=ProcessUbbCode_UF(strContent,"ed2k","$2","0")
End If
If SettingArray(0) = "0" Then
strContent=ProcessUbbCode_S1(strContent,"code","<div class=""UBBContainer""><div class=""UBBTitle""><img src=""" & m_strPicPath & "code.gif"" style=""margin:0px 2px -3px 0px"" alt=""以下内容为程序代码""/> 以下内容为程序代码</div><div class=""UBBContent"">$1</div></div>")
strContent=ProcessUbbCode_S1(strContent,"quote","<div class=""UBBContainer""><div class=""UBBTitle""><img src=""" & m_strPicPath & "quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""引用内容""/> 引用内容</div><div class=""UBBContent"">$1</div></div>")
strContent=ProcessUbbCode_UF(strContent,"quote","<div class=""UBBContainer""><div class=""UBBTitle""><img src=""" & m_strPicPath & "quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""引用来自 $1""/> 引用来自 $1</div><div class=""UBBContent"">$2</div></div>","0")
strContent=ProcessUbbCode_UF(strContent,"color","<font color=""$1"">$2</font>","1")
strContent=ProcessUbbCode_S1(strContent,"center","<div align=""center"">$1</div>")
strContent=ProcessUbbCode_S1(strContent,"fly","<marquee width=""90%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>")
strContent=ProcessUbbCode_S1(strContent,"move","<marquee scrollamount=""3"">$1</marquee>")
strContent=ProcessUbbCode_iS1(strContent,"shadow","<div style=""width:$1px;filter:shadow(color=$2, strength=$3)"">$4</div>")
strContent=ProcessUbbCode_iS1(strContent,"glow","<div style=""width:$1px;filter:glow(color=$2, strength=$3)"">$4</div>")
strContent=ProcessUbbCode_UF(strContent,"size","<font size=""$1"">$2</font>","1")
strContent=ProcessUbbCode_S1(strContent,"i","<i>$1</i>")
strContent=ProcessUbbCode_S1(strContent,"b","<b>$1</b>")
strContent=ProcessUbbCode_S1(strContent,"u","<u>$1</u>")
'strContent=ProcessUbbCode_Align(strContent)
re.Pattern="\[align=(\w{4,6})\]([^\r]*?)\[\/align\]"
strContent=re.Replace(strContent,"<div align=""$1"">$2</div>")
re.Pattern="\[(list)\]"
strContent=re.Replace(strContent,"<ul>")
re.Pattern="\[list=(.[^\]]*)\]"
strContent=re.Replace(strContent,"<ul style=""list-style-type:$1"">")
re.Pattern="\[\*\](.[^\[]*)(\n|)"
strContent=re.Replace(strContent,"<li>$1</li>")
re.Pattern="\[(\/list)\]"
strContent=re.Replace(strContent,"</ul>")
End If
If SettingArray(6) = "0" Then
strContent=ProcessUbbCode_C(strContent,"html")
End If
If SettingArray(3) = "0" And SettingArray(0) = "0" Then
re.Pattern = "(\[flash\])(.[^\[]*)(\[\/flash\])"
strContent = re.Replace(strContent, "<object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""400"" height=""300""><param name=""movie"" value=""$2"" /><param name=""quality"" value=""high"" /><param name=""AllowScriptAccess"" value=""never"" /><embed src=""$2"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""400"" height=""300""></embed></object>")
re.Pattern = "(\[flash=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/flash\])"
strContent = re.Replace(strContent, "<object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""$2"" height=""$3""><param name=""movie"" value=""$4"" /><param name=""quality"" value=""high"" /><param name=""AllowScriptAccess"" value=""never"" /><embed src=""$4"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""$2"" height=""$3""></embed></object>")
ElseIf SettingArray(0) = "1" Then
re.Pattern = "(\[flash\])(.[^\[]*)(\[\/flash\])"
strContent = re.Replace(strContent, "$2")
re.Pattern = "(\[flash=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/flash\])"
strContent = re.Replace(strContent, "$4")
End If
If SettingArray(4) = "0" And SettingArray(0) = "0" Then
'-----------多媒体标签----------------
re.Pattern = "\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent = re.Replace(strContent, "<embed src=""$3"" pluginspage=""http://www.macromedia.com/shockwave/download/"" width=""$1"" height=""$2""></embed>")
re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent = re.Replace(strContent, "<embed src=""$3"" width=""$1"" height=""$2"" autoplay=""true"" loop=""false"" controller=""true"" playeveryframe=""false"" cache=""false"" scale=""TOFIT"" bgcolor=""#000000"" kioskmode=""false"" targetcache=""false"" pluginspage=""http://www.apple.com/quicktime/""></embed>")
re.Pattern = "\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent = re.Replace(strContent, "<embed type=""application/x-oleobject"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"" flename=""mp"" src=""$3"" width=""$1"" height=""$2""></embed>")
re.Pattern = "(\[rm\])(.[^\[]*)(\[\/rm\])"
strContent = re.Replace(strContent, "<object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""OBJECT"" id=""RAOCX"" width=""400"" height=""400""><param name=""src"" value=""$2""/><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=""400""><param name=src value=""$2""/><param name=""autostart"" value=""-1""/><param name=""controls"" value=""controlpanel""/><param name=""console"" value=""Clip1""/></object>")
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>")
re.Pattern = "(\[wmv\])(.[^\[]*)(\[\/wmv\])"
strContent = re.Replace(strContent, "<object classid=""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,02,902"" type=""application/x-oleobject"" standby=""Loading..."" width=""400"" height=""300"">"&_
"<param name=""FileName"" VALUE=""$2"" /><param name=""ShowStatusBar"" value=""-1"" /><param name=""AutoStart"" value=""true"" /><embed type=""application/x-mplayer2"" pluginspage=""http://www.microsoft.com/Windows/MediaPlayer/"" src=""$2"" autostart=""true"" width=""400"" height=""300"" /></object>")
re.Pattern = "\[wmv=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/wmv]"
strContent = re.Replace(strContent, "<object classid=""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,02,902"" type=""application/x-oleobject"" standby=""Loading..."" width=""$1"" height=""$2"">"&_
"<param name=""FileName"" VALUE=""$3"" /><param name=""ShowStatusBar"" value=""-1"" /><param name=""AutoStart"" value=""true"" /><embed type=""application/x-mplayer2"" pluginspage=""http://www.microsoft.com/Windows/MediaPlayer/"" src=""$3"" autostart=""true"" width=""$1"" height=""$2"" /></object>")
re.Pattern = "(\[wma\])(.[^\[]*)(\[\/wma\])"
strContent = re.Replace(strContent, "<object classid=""CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" id=""MediaPlayer"" width=""450"" height=""70""><param name=""howStatusBar"" value=""-1""/><param name=""AutoStart"" value=""False""/><param name=""Filename"" value=""$2""/></object>")
re.Pattern = "\[wma=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/wma]"
strContent = re.Replace(strContent, "<object classid=""CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" id=""MediaPlayer"" width=""$1"" height=""$2""><param name=""howStatusBar"" value=""-1""/><param name=""AutoStart"" value=""False""/><param name=""Filename"" value=""$3""/></object>")
re.Pattern = "(\[ra\])(.[^\[]*)(\[\/ra\])"
strContent = re.Replace(strContent, "<object classid=""clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" id=""RAOCX"" width=""450"" height=""60""><param name=""_ExtentX"" value=""6694""/><param name=""_ExtentY"" value=""1588""/><param name=""AUTOSTART"" value=""true""/><param name=""SHUFFLE"" value=""0""/><param name=""PREFETCH"" value=""0""/>"&_
"<param name=""NOLABELS"" value=""0""/><param name=""SRC"" value=""$2""/><param name=""CONTROLS"" value=""StatusBar,ControlPanel""/><param name=""LOOP"" value=""0""/><param name=""NUMLOOP"" value=""0""/><param name=""CENTER"" value=""0""/><param name=""MAINTAINASPECT"" value=""0""/><param name=""BACKGROUNDCOLOR"" value=""#000000""/><embed src=""$2"" width=""450"" autostart=""true"" height=""60""></embed></object>")
re.Pattern = "\[ra=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/ra]"
strContent = re.Replace(strContent, "<object classid=""clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" id=""RAOCX"" width=""$1"" height=""$2""><param name=""_ExtentX"" value=""6694""/><param name=""_ExtentY"" value=""1588""/><param name=""AUTOSTART"" value=""true""/><param name=""SHUFFLE"" value=""0""/><param name=""PREFETCH"" value=""0""/>"&_
"<param name=""NOLABELS"" value=""0""/><param name=""SRC"" value=""$3""/><param name=""CONTROLS"" value=""StatusBar,ControlPanel""/><param name=""LOOP"" value=""0""/><param name=""NUMLOOP"" value=""0""/><param name=""CENTER"" value=""0""/><param name=""MAINTAINASPECT"" value=""0""/><param name=""BACKGROUNDCOLOR"" value=""#000000""/><embed src=""$3"" width=""$1"" autostart=""true"" height=""$2""></embed></object>")
re.Pattern="(\[mid\])(.[^\]]*)\[\/mid\]"
strContent= re.Replace(strContent,"<embed src=""$2"" height=""45"" width=""314"" autostart=""0""></embed>")
ElseIf SettingArray(4) = "2" And SettingArray(0) = "0" Then
strContent=ProcessUbbCode_MP(strContent)
re.Pattern="(\[mid\])(.[^\]]*)\[\/mid\]"
strContent= re.Replace(strContent,"<embed src=""$2"" height=""45"" width=""314"" autostart=""0""></embed>")
End If
If SettingArray(9) = "1" Then
'自动识别网址
re.Pattern="(^|[^<=""])((http|https|ftp|rtsp|mms|ed2k):(\/\/|\\\\)(([\w\/\\\+\-~`@:%\/\|])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#\/\|]|(&)|&)+)"
strContent=re.Replace(strContent,"$1<a target=""_blank"" href=""$2"">$2</a>")
'自动识别www等开头的网址
're.Pattern="(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)"
'strContent=re.Replace(strContent,"$1<a target=""_blank"" href=""http://$2"">$2</a>")
End If
If SettingArray(10) = "0" Then
strContent=ProcessUbbCode_Key(strContent)
End If
re.Pattern="(<div style=""page-break-after: always""[^>]*?>([\w\W]*?)<\/div>)"
strContent=re.Replace(strContent, "[page_break]")
re.Pattern="((\[NextPage\])|(\[Page_Break\]))"
strContent=re.Replace(strContent,"[page_break]")
re.Pattern="(<br[^>]*?>)"
strContent=re.Replace(strContent, "<br/>")
strContent = xmldecode(strContent)
maxpagesize = Newasp.ChkNumeric(SettingArray(12))
If IsPagination And maxpagesize > 99 Then
strContent = InsertPageBreak(strContent)
End If
IsPagination = False
UBBCode = strContent
End Function
Private Function checkXHTML()
checkXHTML=xmldecode(Mid(xml.documentElement.xml,6,Len (xml.documentElement.xml)-11))
End Function
Function checkimg(textstr)
Dim node,srctext,newnode
If xml.loadxml("<div>" & xmlencode(textstr) &"</div>")Then
For Each Node in xml.documentElement.getElementsByTagName("img")
'-- 是否开启滚轮改变图片大小的功能，如果不需要可以屏蔽
'-- Node.attributes.setNamedItem(xml.createNode(2,"onmousewheel","")).text="return bbimg(this);"
Node.attributes.setNamedItem(xml.createNode(2,"border","")).text=0
Node.attributes.setNamedItem(xml.createNode(2,"onload","")).text=m_strImgzoom
Node.attributes.setNamedItem(xml.createNode(2,"style","")).text="cursor: pointer;"
Node.attributes.setNamedItem(xml.createNode(2,"onclick","")).text="javascript:window.open(this.src);"
'--删除相关节点
If m_strTitle <> "" Then
Node.attributes.setNamedItem(xml.createNode(2,"alt","")).text=m_strTitle
End If
Node.attributes.removeNamedItem("title")
Node.attributes.removeNamedItem("twffan")
If Not Node.parentNode is Nothing Then
If Node.parentNode.nodename = "a" Then
Node.attributes.removeNamedItem("onclick")
Node.attributes.setNamedItem(xml.createNode(2,"target","")).text="_blank"
End If
End If
Next
checkimg=xmldecode(Mid(xml.documentElement.xml,6,Len (xml.documentElement.xml)-11))
Else
checkimg=textstr
End If
End Function
Private Function bbimg(strText)
Dim s
s=strText
re.Pattern="<img(\w*) style\s*=""*([^>|""]*)""([^>]*)>"
s=re.Replace(s,"<img$1$3>")
re.Pattern="<img(.[^>]*)>"
s=re.Replace(s, "<img$1/>")
re.Pattern="(\/\/>)"
s=re.Replace(s, "/>")
re.Pattern="<img(.[^>]*)([/| ])>"
s=re.Replace(s,"<img$1/>")
re.Pattern="<img(.[^>]*)/>"
s=re.Replace(s,"<img$1 onload="""&m_strImgzoom&""" onclick=""javascript:window.open(this.src);"" style=""cursor: pointer;""/>")
bbimg=s
End Function
Private Function ProcessUbbCode_MP(strContent)
re.Pattern="\[(flash|wma|wmv|rm|ra|qt)(=\d*?|)(,\d*?|)\]([^<>]*?)\[\/(flash|wma|wmv|rm|ra|qt)\]"
Set strMatchs=re.Execute(strContent)
Dim strMatch,strMatchs
Dim strType,strWidth,strHeight,strSRC,TitleText,rndID
For Each strMatch in strMatchs
RAndomize
strType=strMatch.SubMatches(0)
If strType="flash" Then
TitleText="<img src=""" & m_strPicPath & "flash.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>Flash动画"
ElseIf strType="wma" Then
TitleText="<img src=""" & m_strPicPath & "music.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放音频文件"
ElseIf strType="wmv" Then
TitleText="<img src=""" & m_strPicPath & "mediaplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放视频文件"
ElseIf strType="rm" Then
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?