快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用ASP实现论坛的UBB功能(一)

前几日我曾经阅读到一篇技术文章讲述如何使用VBScript中的正则表达式对象来实现论坛里面的UBB功能。VBScript提供的正则表达式对象功能异常强盛,但是只有5。5以上的脚本引擎才可以很好的支持正则表达式对象,为了获得版本是
5。5的脚本引擎,你需要单独安装这个脚本引擎,或者安装IE5.5,也就是说对服务器的要求比较苛刻,那就没有其他的方式实现UBB功能了吗?当然不是了,现在就跟随我一同来使用普通的VBScript脚本语言来实现功能强盛的UBB功能吧。
  先,在UBB功能中,核心功能也即最吸引人的功能是完全支持贴图功能和字体属性的控制。因为出于安全方面的原因,网络上面的几乎所有的论坛都尽可能的屏蔽掉了HTML代码,这样可以避免人为的有意无意的对论坛的破坏,这样虽然保证了论坛自身的安全性,但是网友面对的贴子内容就始终是一成不变的颜色、字体、大小,更不要奢望看到绚丽多彩的图片了。UBB代码由此而生,详细来说说我们如何实现以上的UBB核心功能。
  下面我们先来具体描述一下我们将要实现的UBB代码的语法:
  一、 支持贴图的UBB语法
  语法:[img]图片路径[/img]
  实例:[img]http://www.4ico.com/logo.gif[/img]
  描述:上面语法的结果就是在网页上面显示出来一幅图片
  二、 支持字体颜色的UBB语法:
  语法:[red]文字[/red]
  [green]文字[/green]
  等等
  实例:[blue]这是一段蓝色的文字[/blue]
  描述:上面的一段语法就是显示一段蓝颜色的文字
  三、 支持超级连接的UBB代码
  语法:[url]连接地址[/url]
  实例:[url]http://www.4ico.com[/url]
  描述:上面的语法的结果就是生成一段超级连接,当你点击的时候就会转跳到连接的地址!
  四、 支持Email地址的UBB语法
  语法:[email]你的email地址[/email]
  实例:[email]lecone@21cn.com[/email]
  描述:上面的代码结果就是显示一个邮件地址,当你用鼠标点击的时候,就会自动打开发送电子邮件的软件,并将地
址写上。
  五、 支持字体属性的UBB语法
  语法:[b]一段文字[/b] 等等
  实例:[b]一段粗体的文字[/b]
  描述:上面代码的结果就是显示一段粗体的文字
  好了,UBB代码的核心功能就是上面的这些东西了,当然你还可以增加其他的种种功能因为这个UBB代码的语法都是可
以自定义的。
  在我们开始详细实现UBB功能之前,我们先来了解几个重要的VBScript函数:Instr函数和Replace函数。也许你看到这
里忍不住想要说,这也太简朴了吧,呵呵,其实这两个函数的确是我们在编程当中使用比较频繁的两个函数,但是它也有自己的小秘密哦,我们先来看看这两个函数的详细语法:
  InStr 函数
  返回某字符串在另一字符串中第一次出现的位置。
  InStr([start, ]string1, string2[, compare])
  参数
  start
  可选项。数值表达式,用于设置每次搜索的开始位置。假如省略,将从第一个字符的位置开始搜索。假如 start 包含 Null,则会出现错误。假如已指定 compare,则必须要有 start 参数。
  string1
  必选项。接受搜索的字符串表达式。
  string2
  必选项。要搜索的字符串表达式。
  compare
  可选项。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅"设置"部分。假如省略,将执行二进制比
较。
  设置
  compare 参数可以有以下值:
  常数
  值
  描述
  vbBinaryCompare
  0
  执行二进制比较。
  vbTextCompare
  1
  执行文本比较。
  返回值
  InStr 函数返回以下值:
  假如
  InStr 返回
  string1 为零长度
  0
  string1 为 Null
  Null
  string2 为零长度
  start
  string2 为 Null
  Null
  string2 没有找到
  0
  在 string1 中找到 string2
  找到匹配字符串的位置
  start > Len(string2)
  0
返回类别: 教程
上一教程: ASP数组冒泡排序函数
下一教程: 在ASP中调用EXCEL画数据图表

您可以阅读与"用ASP实现论坛的UBB功能(一)"相关的教程:
· 用ASP实现论坛的UBB功能(二)
· 在ASP中利用“正则表达式” 对象实现UBB风格的论坛
· ASP环境下邮件列表功能的实现 (一)(推荐)
· 简朴快捷实现ASP在线发邮件功能
· ASP网站远程客户实现EXCEL打印功能
    微笑服务 优质保证 索取样品