ASP网站制作之用ASP完成论坛的UBB功能(二)
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,"",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,"","",1,－1,1)
EndFunction
好了，经由过程下面的这个完成……功效的函数，我们能够以此类推失掉完成其他UBB语法的函数，限于篇幅，我就纷歧一加以祥述了，你能够将这些函数放到一个文件中，构成一个UBB代码函数库，如许就能够便利的在你的程序傍边加以援用了。
怎样，经由过程我们本人的勉力，如今我们的论坛也能够完整撑持UBB代码功效了，我们的论坛如今也会变得色采斑斓，图文并茂了，也势必会吸引到更多的网友，:)
关于下面文章的实践使用例子，您能够在这里会见到：Http://TechTop.Yeah.Net
(以上一切程序均在Windows9x/NT，IIS/PWS,Access/SQL7下面运转经由过程)（北京苏红超）
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. Session:这个存储跟客户端会话过程的数据，默认20分钟失效 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效
页:
[1]