ubb编辑器代码

UBB代码列表
具体代码含义如下:
[b]文字[/b] 插入粗体字
[i]文字[/i] 插入斜体字
[u]文字[/u] 插入下划线
[s]文字[/s] 插入删除线
[fly]文字[fly] 插入飞行文字
[rainbow]文字[rainbow] 插入发光文字
[align=center]内容[/align] 内容居中
[align=left]内容[/align] 内容居左
[align=right]内容[/align] 内容居右
[color=颜色]文字[/color] 插入指定颜色的文字
[size=文字大小]文字[/color] 插入指定大小的文字
[url=链接地址]说明文字[/url] 插入一个url链接,链接地址省略时默认链接地址为说明文字
[email]邮箱地址[/email] 插入一个邮箱地址链接
[text]内容[/text] 插入有蓝色框包围的内容
[code]程序代码[/code] 插入程序代码
[quote]引用文字[/quote] 插入一段引用文字
[html]程序代码[/html] 插入html代码
[list=1][*]内容[*][/list] 插入列表
[img]图片链接地址[/img] 插入图片
[image]图片链接地址[/image] 插入图片,点击不会打开新窗口
[images]图片链接地址[/images] 插入图片,有边框
[swf]Flash文件链接地址[/swf] 插入Flash动画
[wma]Windows Media Player音频文件url[/wma] 插入Windows Media Player音频媒体文件 [不自动播放] 
[wmv]Windows Media Player视频文件url[/wmv] 插入Windows Media Player视频媒体文件
[mp3]音频文件url[/mp3] 插入Windows Media Player音频媒体文件 [自动播放] 
[ra]RealPlayer音频文件链接地址[/ra] 插入RealPlayer的音频文件
[rm]RealPlayer视频文件链接地址[/rm] 插入RealPlayer的视频文件
[qt]quicktime文件链接地址[/qt] 插入quicktime媒体文件
[down=下载地址]文字[/down] 插入一个下载
[download=下载地址]文字[/download] 插入一个会员下载
 

----------------------------------------------------------'
'--------------------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,"$2")

RegExp.Pattern = "(/[URL/])(HTTP:.[^/[]*)(/[//URL/])"
strNewValue = RegExp.Replace(strValue,"$2")

RegExp.Pattern = "(/[URL=(HTTP:.[^/[]*)/])(.[^/[]*)(/[//URL/])"
strNewValue = RegExp.Replace(strValue,"$3")

RegExp.Pattern = "(/[URL=(.[^/[]*)/])(.[^/[]*)(/[//URL/])"
strNewValue = RegExp.Replace(strValue,"$3")

RegExp.Pattern = "(/[IMG/])(.[^/[]*)(/[//IMG/])"
strNewValue = RegExp.Replace(strNewValue,"")

RegExp.Pattern = "(/[IMG=(HTTP:.[^/[]*)/])(/[//IMG/])"
strNewValue = RegExp.Replace(strNewValue,"")

RegExp.Pattern = "(/[IMG=(.[^/[]*)/])(/[//IMG/])"
strNewValue = RegExp.Replace(strNewValue,"")

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,"$3")

RegExp.Pattern = "(/[CENTER/])(.[^/[]*)(/[//CENTER/])"
strNewValue = RegExp.Replace(strNewValue,"

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

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

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

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

RegExp.Pattern = "(/[MP=([0-9]*),([0-9]*)/])(.[^/[]*)(/[//MP/])"
strNewValue = RegExp.Replace(strNewValue,"")

RegExp.Pattern = "(/[FLASH/])(.[^/[]*)(/[//FLASH/])"
strNewValue = RegExp.Replace(strNewValue,"")

RegExp.Pattern = "(/[QT=([0-9]*),([0-9]*)/])(.[^/[]*)(/[//QT/])"
strNewValue = RegExp.Replace(strNewValue,"")

RegExp.Pattern = "(/[RM=([0-9]*),([0-9]*)/])(.[^/[]*)(/[//RM/])"
strNewValue = RegExp.Replace(strNewValue,"
")
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

在页面head区之间加入：

切换到代码窗口，
在文本域适当位置添加如下文字设置代码
===================================================================

 
字体：

宋体
楷体
新宋体
黑体
隶书
Andale Mono
Arial
Arial Black
Book Antiqua
Century Gothic
Comic Sans MS
Courier New
Georgia
Impact
Tahoma
Times New Roman
Trebuchet MS
Script MT Bold
Stencil
Verdana
Lucida Console

                             字体大小
      name=size>
1
2
3
4

   颜色：

#F0F8FF
#FAEBD7
#00FFFF
#7FFFD4
#F0FFFF
#F5F5DC
#FFE4C4
#000000
#FFEBCD
#0000FF
#8A2BE2
#A52A2A
#DEB887
#5F9EA0
#7FFF00
#D2691E
#FF7F50
#6495ED
#FFF8DC
#DC143C
#00FFFF
#00008B
#008B8B
#B8860B
#A9A9A9
#006400
#BDB76B
#8B008B
#556B2F
#FF8C00
#9932CC
#8B0000
#E9967A
#8FBC8F
#483D8B
#2F4F4F
#00CED1
#9400D3
#FF1493
#00BFFF
#696969
#1E90FF
#B22222
#FFFAF0
#228B22
#FF00FF
#DCDCDC
#F8F8FF
#FFD700
#DAA520
#808080
#008000
#ADFF2F
#F0FFF0
#FF69B4
#CD5C5C
#4B0082
#FFFFF0
#F0E68C
#E6E6FA
#FFF0F5
#7CFC00
#FFFACD
#ADD8E6
#F08080
#E0FFFF
#FAFAD2
#90EE90
#D3D3D3
#FFB6C1
#FFA07A
#20B2AA
#87CEFA
#778899
#B0C4DE
#FFFFE0
#00FF00
#32CD32
#FAF0E6
#FF00FF
#800000
#66CDAA
#0000CD
#BA55D3
#9370DB
#3CB371
#7B68EE
#00FA9A
#48D1CC
#C71585
#191970
#F5FFFA
#FFE4E1
#FFE4B5
#FFDEAD
#000080
#FDF5E6
#808000
#6B8E23
#FFA500
#FF4500
#DA70D6
#EEE8AA
#98FB98
#AFEEEE
#DB7093
#FFEFD5
#FFDAB9
#CD853F
#FFC0CB
#DDA0DD
#B0E0E6
#800080
#FF0000
#BC8F8F
#4169E1
#8B4513
#FA8072
#F4A460
#2E8B57
#FFF5EE
#A0522D
#C0C0C0
#87CEEB
#6A5ACD
#708090
#FFFAFA
#00FF7F
#4682B4
#D2B48C
#008080
#D8BFD8
#FF6347
#40E0D0
#EE82EE
#F5DEB3
#FFFFFF
#F5F5F5
#FFFF00
#9ACD32

===========================================================================

在适当位置加入下面”表情代码”
=========================================================================

==============================================================================

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！