UBB代码~(整理)

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 14次 | 进入软件测试论坛讨论

在论坛中，我常常要使用到特殊的显示效果，而要得到这些效果，我们通常都是使用ubb 函数来处理，下面是我整理的ubb代码~，有待完善~

[CODE]

@#----------------------------------------------------------@#
@#--------------------UBBCode Function----------------------@#
@#----------------------------------------------------------@#
Function UBBCode(ByVal strValue)
@#忽略错误
On Error Resume Next
@#定义变量
Dim RegExp
Dim strNewValue
Set RegExp = New RegExp
RegExp.IgnoreCase = True
RegExp.Global = True
strValue = UCase(HTMLEncode(strValue))

If strValue <> "" Then
RegExp.Pattern = "(\[URL\])(.[^\[]*)(\[\/URL\])"
strNewValue = RegExp.Replace(strValue,"<A HREF=@#HTTP://$2@# TARGET=@#_BLANK@#>$2</A>")

RegExp.Pattern = "(\[URL\])(HTTP:\/\/.[^\[]*)(\[\/URL\])"
strNewValue = RegExp.Replace(strValue,"<A HREF=@#$2@# TARGET=@#_BLANK@#>$2</A>")

RegExp.Pattern = "(\[URL=(HTTP:\/\/.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strNewValue = RegExp.Replace(strValue,"<A HREF=@#$2@# TARGET=@#_BLANK@#>$3</A>")

RegExp.Pattern = "(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strNewValue = RegExp.Replace(strValue,"<A HREF=@#HTTP://$2@# TARGET=@#_BLANK@#>$3</A>")

RegExp.Pattern = "(\[IMG\])(.[^\[]*)(\[\/IMG\])"
strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=@#$2@# BORDER=@#0@#>")

RegExp.Pattern = "(\[IMG=(HTTP:\/\/.[^\[]*)\])(\[\/IMG\])"
strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=@#$2@# BORDER=@#0@#>")

RegExp.Pattern = "(\[IMG=(.[^\[]*)\])(\[\/IMG\])"
strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=@#HTTP://$2@# BORDER=@#0@#>")

RegExp.Pattern = "(\[SIZE=([0-9]*)\])(.[^\[]*)(\[\/SIZE\])"
strNewValue = RegExp.Replace(strNewValue,"$3")

RegExp.Pattern = "(\[B\])(.[^\[]*)(\[\/B\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[COLOR=(.[^\[]*)\])(.[^\[]*)(\[\/RED\])"
strNewValue = RegExp.Replace(strNewValue,"$3")

RegExp.Pattern = "(\[RED\])(.[^\[]*)(\[\/RED\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[GREEN\])(.[^\[]*)(\[\/GREEN\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[BLUE\])(.[^\[]*)(\[\/BLUE\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[GRAY\])(.[^\[]*)(\[\/GRAY\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[S\])(.[^\[]*)(\[\/S\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[I\])(.[^\[]*)(\[\/I\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[U\])(.[^\[]*)(\[\/U\])"
strNewValue = RegExp.Replace(strNewValue,"$2")

RegExp.Pattern = "(\[ALIGN=(.[^\[]*)\])(.[^\[]*)(\[\/ALIGN\])"
strNewValue = RegExp.Replace(strNewValue,"<DIV ALIGN=@#$2@#>$3</DIV>")

RegExp.Pattern = "(\[CENTER\])(.[^\[]*)(\[\/CENTER\])"
strNewValue = RegExp.Replace(strNewValue,"<CENTER>$2</CENTER>")

RegExp.Pattern = "(\[EMAIL\])(.[^\[]*)(\[\/EMAIL\])"
strNewValue = RegExp.Replace(strNewValue,"<A HREF=@#MAILTO:$2@#>$2</A>")

RegExp.Pattern = "(\[EMAIL=(.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strNewValue = RegExp.Replace(strNewValue,"<A HREF=@#MAILTO:$2@#>$3</A>")

RegExp.Pattern = "(\[FLY\])(.[^\[]*)(\[\/FLY\])"
strNewValue = RegExp.Replace(strNewValue,"<MARQUEE SCROLLAMOUT=@#3@# BEHAVIOR=@#ALTERNATE@# WIDTH=@#98%@#>$2</MARQUEE>")

RegExp.Pattern = "(\[MOVE\])(.[^\[]*)(\[\/MOVE\])"
strNewValue = RegExp.Replace(strNewValue,"<MARQUEE SCROLLAMOUT=@#3@#>$2</MARQUEE>")

RegExp.Pattern = "(\[MP=([0-9]*),([0-9]*)\])(.[^\[]*)(\[\/MP\])"
strNewValue = RegExp.Replace(strNewValue,"<OBJECT ALIGN=@#MIDDLE@# CLASSID=@#CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95@# CLASS=@#OBJECT@# ID=@#MEDIAPLAYER@# WIDTH=@#$2@# HEIGHT=@#$3@#><PARAM NAME=@#SHOWSTATUSBAR@# VALUE=@#-1@#><PARAM NAME=@#FILENAME@# VALUE=@#$4@#><EMBED TYPE=@#APPLICATION/X-OLEOBJECT@# CODEBASE=@#HTTP://ACTIVEX.MICROSOFT.COM/ACTIVEX/CONTROLS/MPLAER/EN/NSMP2INF.CAB#VERSION=5,1,52,701@# FILENAME=MP SRC=@#$4@# WIDTH=@#$2@# HEIGHT=@#$3@#></EMBED></OBJECT>")

RegExp.Pattern = "(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
strNewValue = RegExp.Replace(strNewValue,"<OBJECT 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=@#$2@#><PARAM NAME=@#QUALITY@# VALUE=@#HIGH@#><EMBED SRC=@#$2@# QUALITY=@#HIGH@# PLUGINSPAGE=@#http://WWW..MACROMEDIA.COM/SHOCKWAVE/DOWNLOAD/INDEX.CGI?P1_PROD_VERSION=SHOCKWAVEFLASH@# TYPE=@#APPLICATION/S-SHOCKWAVE-FLASH@# WIDTH=@#500@# HEIGHT=@#400@#>$2</EMBED></OBJECT>")

RegExp.Pattern = "(\[QT=([0-9]*),([0-9]*)\])(.[^\[]*)(\[\/QT\])"
strNewValue = RegExp.Replace(strNewValue,"<EMBED SRC=@#$4@# WIDTH=@#$2@# HEIGHT=@#$3@# AUTOPLAY=@#TRUE@# LOOP=@#FALS@#E CONTROLLER=@#TRUE@# PLAYEVERYFRAME=@#FALSE@# CACHE=FALSE SCALE=@#TOFIT@# BGCOLOR=@##000000@# KIOSKMODE=@#FALSE@# TARGETCACHE=@#FALSE@# PLUGINSPAGE=@#HTTP://WWW.APPLE.COM/QUICKTIME/@#>")

RegExp.Pattern = "(\[RM=([0-9]*),([0-9]*)\])(.[^\[]*)(\[\/RM\])"
strNewValue = RegExp.Replace(strNewValue,"<OBJECT CLASSID=@#CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA@# CLASS=@#OBJECT@# ID=@#RAOCX@# WIDTH=@#$2@# HEIGHT=@#$3@#><PARAM NAME=@#SRC@# VALUE=@#$4@#><PARAM NAME=@#CONSOLE@# VALUE=@#CLIP1@#><PARAM NAME=@#CONTROLS@# VALUE=@#IMAGEWINDOW@#><PARAM NAME=@#AUTOSTART@# VALUE=@#TRUE@#></OBJECT> <OBJECT CLASSID=@#CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA@# HEIGHT=@#32@# ID=@#VIDEO2@# WIDTH=@#$3@#><PARAM NAME=@#SRC@# VALUE=@#$4@#><PARAM NAME=@#AUTOSTART@# VALUE=@#-1@#><PARAM NAME=@#CONTROLS@# VALUE=@#CONTROLPANEL@#><PARAM NAME=@#CONSOLE@# VALUE=@#CLIP1@#></OBJECT>")
End If
UBBCode = LCase(strNewValue)

@#输出错误
If Err.Number>0 Then
Response.Write Err.Description
Response.End
End If
End Function

@#----------------------------------------------------------@#
@#-------------------HTMLEncode Function--------------------@#
@#----------------------------------------------------------@#
Function HTMLEncode(ByVal strValue)
@#忽略错误
On Error Resume Next
@#定义变量
Dim strNewValue
If strValue <> "" Then
strValue = Server.HTMLEncode(strValue)
strNewValue = Replace(strValue,"<","<")
strNewValue = Replace(strNewValue,">",">")
strNewValue = Replace(strNewValue,"@#","'")
strNewValue = Replace(strNewValue,"""",""")
strNewValue = Replace(strNewValue,vbCrLf," ")
strNewValue = Replace(strNewValue," "," ")
End If
HTMLEncode = strNewValue

@#输出错误
If Err.Number>0 Then
Response.Write Err.Description
Response.End
End If
End Function

[CODE]

使用的时候，在你的textarea中输入ubb代码，那么，在处理页面直接使用

content = UBBCode(Request.Form("content"))就可以咯~

关于ubb的书写，可以在网上搜索，我就不说咯！

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容