|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!人人应该注重到了,我们所要用的函数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语法的函数代码:(内里有具体正文)
FunctionLinkURLs(strInput)
DimiCurrentLocation
DimiLinkStart
DimiLinkEnd
DimstrLinkText
DimstrOutPut
初始化变量
strLinkText=""
strOutput=""
iCurrentLocation=1
DowhileInstr(iCurrentLocation,strInput," iLinkStart=Instr(iCurrentLocation,strInput,"",1)纪录下入手下手地位
iLinkEnd=Instr(iCurrentLocation+1,strInput,""target="_blank">",1)0查找UBB语法字符串
iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1)纪录下入手下手地位
iLinkEnd=Instr(iCurrentLocation+1,strInput,"",1)纪录下停止地位
IfiLinkEnd=0theniLinkEnd=len(strINput)+1
selectcaseMid(strInput,iLinkEnd-1,1)
case".","!","?"
iLinkEnd=iLinkEnd-1剔除过剩标点标记
endselect
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,"[/url]","",1,-1,1)
EndFunction
好了,经由过程下面的这个完成……功效的函数,我们能够以此类推失掉完成其他UBB语法的函数,限于篇幅,我就纷歧一加以祥述了,你能够将这些函数放到一个文件中,构成一个UBB代码函数库,如许就能够便利的在你的程序傍边加以援用了。
怎样,经由过程我们本人的勉力,如今我们的论坛也能够完整撑持UBB代码功效了,我们的论坛如今也会变得色采斑斓,图文并茂了,也势必会吸引到更多的网友,:)
关于下面文章的实践使用例子,您能够在这里会见到:Http://TechTop.Yeah.Net
(以上一切程序均在Windows9x/NT,IIS/PWS,Access/SQL7下面运转经由过程)(北京苏红超)
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|