首页 >> 读书频道 >> 电脑 >> 用ASP实现论坛的UBB功能(二)
 
· 用ASP实现论坛的UBB
· 用ASP统计用户在站点的
· 用ASP统计用户在站点的
· HTTP方式上载文件的A
· 用ASPMail组件实现
· 图片数据的存和取示例
· jmail4.1用pop
· 在主页中编制音频播放器
· WEB页面简单进度记时器
· asp生日自动提醒小程式
· 一个免费的简单聊天室源代
· 通过事例学习.net的W
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP实例 2006-9-9

 

大家应当注意到了,我们所要用的函数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
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
返回值
Replace 返回以下值:
如果
Replace 返回
expression 为零长度
零长度字符串 ("")。
expression 为 Null
错误。
find 为零长度
expression 的副本。
replacewith 为零长度
expression 的副本,其中删除了所有由 find 参数指定的内容。
start > Len(expression)
零长度字符串。
count 为 0
expression 的副本。
这里我们应当注意的自然也是这个Replace的Compare可选择参数了,这样我们在进行UBB代码全程替换的时候才可以保证对大小写的不敏感。
其实,实现UBB代码的程序核心思想都是相同的,实现了其中的一个,其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的……语法的实现为例来详细讲解如何实现他:
首先,我们可以分析出来,在一段文章当中,要实现这个功能,其实也就是将形式为http://xxx.xxx.xxx的字符串找出来,并且加以适当的替换,并且要全程替换,也就是说,你要设法记住你的每一步所在的位置,以便依次进行替换,下面就是实现这个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),"","")
strOutput=strOutput & "" & strLinkText & ""
iCurrentLocation=iLinkEnd '记录下当前游标位置
Loop
strOutput=strOutput & Mid(strInput,iCurrentLocation)
LinkURLs=replace(strOutput,"","",1,-1,1)
End Function
好了,通过上面的这个实现……功能的函数,我们可以以此类推得到实现其他UBB语法的函数,限于篇幅,我就不一一加以祥述了,你可以将这些函数放到一个文件中,形成一个UBB代码函数库,这样就可以方便的在你的程序当中加以引用了。

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

[ 1 ]
用ASP实现论坛的UBB功能(二) num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑