如何才能支持HTML、UBB？_资讯

实际上应该是access格式的，为了安全，才改为asp扩展名，用access可以打开。

用ASP实现论坛的UBB功能2006年09月18日星期一 11:35前几日我曾经阅读到一篇技术文章讲述如何使用VBScript中的正则表达式对象来实现论坛里面的UBB功能。VBScript提供的正则表达式对象功能非常强大，但是只有5。5以上的脚本引擎才可以很好的支持正则表达式对象，为了获得版本是

5。5的脚本引擎，你需要单独安装这个脚本引擎，或者安装IE55，也就是说对服务器的要求比较苛刻，那就没有其他的方法实现UBB功能了吗？当然不是了，现在就跟随我一同来使用普通的VBScript脚本语言来实现功能强大的UBB功能吧。

先，在UBB功能中，核心功能也即最吸引人的功能是完全支持贴图功能和字体属性的控制。因为出于安全方面的原因，网络上面的几乎所有的论坛都尽可能的屏蔽掉了HTML代码，这样可以避免人为的有意无意的对论坛的破坏，这样虽然保证了论坛自身的安全性，但是网友面对的贴子内容就始终是一成不变的颜色、字体、大小，更不要奢望看到绚丽多彩的了。UBB代码由此而生，具体来说说我们如何实现以上的UBB核心功能。

下面我们先来详细描述一下我们将要实现的UBB代码的语法：

一、支持贴图的UBB语法

语法：[img]路径[/img]

实例：[img]http://wwwcoolbelcom/chinagusu/logogif[/img]

描述：上面语法的结果就是在网页上面显示出来一幅

二、支持字体颜色的UBB语法：

语法：[red]文字[/red]

[green]文字[/green]

等等

实例：[blue]这是一段蓝色的文字[/blue]

描述：上面的一段语法就是显示一段蓝颜色的文字

三、支持超级连接的UBB代码

语法：连接地址

实例：>http://wwwcoolbelcom/chinagusu[/url]

描述：上面的语法的结果就是生成一段超级连接，当你点击的时候就会转跳到连接的地址！

四、支持Email地址的UBB语法

语法：你的email地址

实例：uestc95@263net

描述：上面的代码结果就是显示一个邮件地址，当你用鼠标点击的时候，就会自动打开发送电子邮件的软件，并将地

址写上。

五、支持字体属性的UBB语法

语法：一段文字等等

实例：一段粗体的文字

描述：上面代码的结果就是显示一段粗体的文字

好了，UBB代码的核心功能就是上面的这些东西了，当然你还可以增加其他的种种功能因为这个UBB代码的语法都是可

以自定义的。

在我们开始具体实现UBB功能之前，我们先来了解几个重要的VBScript函数：Instr函数和Replace函数。也许你看到这

里忍不住想要说，这也太简单了吧，呵呵，其实这两个函数的确是我们在编程当中使用比较频繁的两个函数，但是它也有自己的小秘密哦，我们先来看看这两个函数的具体语法：

InStr 函数

返回某字符串在另一字符串中第一次出现的位置。

InStr([start, ]string1, string2[, compare])

参数

start

可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare，则必须要有 start 参数。

string1

必选项。接受搜索的字符串表达式。

string2

必选项。要搜索的字符串表达式。

compare

可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。如果省略，将执行二进制比

较。

设置

compare 参数可以有以下值：

常数

值

描述

vbBinaryCompare

执行二进制比较。

vbTextCompare

执行文本比较。

返回值

InStr 函数返回以下值：

如果

InStr 返回

string1 为零长度

string1 为 Null

Null

string2 为零长度

start

string2 为 Null

Null

string2 没有找到

在 string1 中找到 string2

找到匹配字符串的位置

start > Len(string2)

大家应当注意到了，我们所要用的函数Instr的小秘密就是它的最后一个可选择参数Compare，因为我们的UBB代码需要大小写不敏感的，默认的情况下，函数Instr是要进行二进制匹配的，也就是说是对大小写敏感的，所以记住了，这个

Compare参数的值应当设置成为1才可以满足我们的要求。

Replace 函数

返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

Replace(expression, find, replacewith[, compare[, count[, start]]])

参数

expression

必选项。字符串表达式包含要替代的子字符串。

Find

必选项。被搜索的子字符串。

Replacewith

必选项。用于替换的子字符串。

Start

可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用

count

可选项。执行子字符串替换的数目。如果省略，默认值为－1，表示进行所有可能的替换。在和 start 关联时必须

用。

Compare

可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。

设置

compare 参数可以有以下值：

常数

值

描述

vbBinaryCompare

执行二进制比较。

vbTextCompare

执行文本比较。

返回值

Replace 返回以下值：

如果

Replace 返回

expression 为零长度

零长度字符串 ("")。

expression 为 Null

错误。

find 为零长度

expression 的副本。

replacewith 为零长度

expression 的副本，其中删除了所有由 find 参数指定的内容。

start > Len(expression)

零长度字符串。

count 为 0

expression 的副本。

这里我们应当注意的自然也是这个Replace的Compare可选择参数了，这样我们在进行UBB代码全程替换的时候才可以保证对大小写的不敏感。

其实，实现UBB代码的程序核心思想都是相同的，实现了其中的一个，其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的……语法的实现为例来详细讲解如何实现他：

首先，我们可以分析出来，在一段文章当中，要实现这个功能，其实也就是将形式为http://xxxxxxxxx的字符串找出来，并且加以适当的替换，并且要全程替换，也就是说，你要设法记住你的每一步所在的位置，以便依次进行替换，下面就是实现这个UBB语法的函数代码：(里面有详细注释)

Function LinkURLs(strInput)

Dim iCurrentLocation

Dim iLinkStart

Dim iLinkEnd

Dim strLinkText

Dim strOutPut

'初始化变量

strLinkText=""

strOutput=""

iCurrentLocation=1

Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 '查找UBB语法字符串

iLinkStart=Instr(iCurrentLocation,strInput,"",1) '记录下开始位置

iLinkEnd=Instr(iCurrentLocation＋1,strInput,"",1) '记录下结束位置

If iLinkEnd=0 then iLinkEnd=len(strINput)＋1

select case Mid(strInput,iLinkEnd－1,1)

case "","!",""

iLinkEnd=iLinkEnd－1 '剔除多余标点符号

end select

stroutput=strOutput ＆ Mid(strInput,iCurrentLocation,iLinkStart－iCurrentLocation)

strLinkText=replace(Mid(strInput,iLinkStart＋5,iLinkEnd－iLinkStart－5),"[/url]","")

strOutput=strOutput ＆ "" ＆ strLinkText ＆ ""

iCurrentLocation=iLinkEnd '记录下当前游标位置

Loop

strOutput=strOutput ＆ Mid(strInput,iCurrentLocation)

LinkURLs=replace(strOutput,"[/url]","",1,－1,1)

End Function

好了，通过上面的这个实现……功能的函数，我们可以以此类推得到实现其他UBB语法的函数，限于篇幅，我就不一一加以祥述了，你可以将这些函数放到一个文件中，形成一个UBB代码函数库，这样就可以方便的在你的程序当中加以引用了。

怎么样，通过我们自己的努力，现在我们的论坛也可以完全支持UBB代码功能了，我们的论坛现在也会变得色彩斑斓，图文并茂了，也必将会吸引到更多的网友，:)

关于上面文章的实际应用例子，您可以在这里访问到： http://TechTopYeahNet

(以上所有程序均在Windows9x/NT，IIS/PWS,Access/SQL7上面运行通过)（北京苏红超）

ubb是一种将html重新编码的语言，通常用于论坛中，为了防止用户对论坛的攻击。

通常ubb都是程序员自己定义的函数，如：

Function

ubb(str)

str=

Replace(str,

"[b]",

"<b>",

-1,

str=

Replace(str,

"[/b]",

"</b>",

-1,

ubb

str

End

Function

ResponseWrite(ubb("[b]加粗[/b]"))

html嵌入代码：

第一个：

第二个：

第三个：

bbs ubb 代码：

[flash=410,348]http://wwwmaideecom/v/399a3aw80swf[/flash]

[flash=410,348]http://wwwmaideecom/v/3DCv3LfU0swf[/flash]

另外flash视频地址：

http://wwwmaideecom/player/flv_playerswfv=399a3aw80

http://wwwmaideecom/v/3DCv3LfU0swf

另外以下是下载地址：

以下是下载地址：

裴涩琪复古dance第一波：http://wwwsgernet/dogodance/dogodance1wmv

裴涩琪复古dance第二波：http://wwwsgernet/dogodance/dogodance2wmv

裴涩琪复古dance第三波：http://wwwsgernet/dogodance/dogodance3wmv

裴涩琪复古dance第四波：http://wwwsgernet/dogodance/dogodance4wmv

裴涩琪复古dance第五波：http://wwwsgernet/dogodance/dogodance5wmv

裴涩琪复古dance第六波：http://wwwsgernet/dogodance/dogodance6wmv

裴涩琪复古dance特别版，star dance battle中与千明勋合作：http://wwwsgernet/dogodance/dogodancespecialwmv

更新了千钟佑在18代情书里DEUCE《look me》dance：

http://wwwsgernet/dogodance/lookmewmv

第一波&第三波跳舞音乐： free storm： http://wwwso-zonecn/bbs/UploadFile/LoveMusic/14期复古音乐mp3

G宝盘地址：

裴涩琪复古dance第一波：http://edisontaugbaopancom/files/1cb2f6a0fb86452f9e5771773473147egbp

裴涩琪复古dance第二波：http://edisontaugbaopancom/files/09596ccdaec14e34b4d3aaf0d0ec3d5bgbp

裴涩琪复古dance第三波：http://edisontaugbaopancom/files/b62ecd4f8a484057aba2b6616c58e2b0gbp

裴涩琪复古dance第四波：http://cluster2gbaopancom/GbaopanWebBeta1/53db1384e21143c89747b4ee62e7edc2gbp

裴涩琪复古dance第五波：http://cluster2gbaopancom/GbaopanWebBeta1/471f451f555a4f6b93aeac0b80efb5aegbp

裴涩琪复古dance第六波：http://edisontaugbaopancom/files/f8a217b978e5468d854eed3f234f1088gbp

这都是我找了好久的。。。

反正就这些了。不知道楼主满意不？~~

欢迎分享，转载请注明来源：表白网

原文地址:https://h5.hunlipic.com/biaobai/3119743.html

如何才能支持HTML、UBB？

发表评论

评论列表（0条）