仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 684|回复: 10
打印 上一主题 下一主题

[学习教程] ASP网站制作之用ASP完成论坛的UBB功效(二)

[复制链接]
爱飞 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:28:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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下面运转经由过程)(北京苏红超)
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。
分手快乐 该用户已被删除
沙发
发表于 2015-1-17 21:48:19 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
小女巫 该用户已被删除
板凳
发表于 2015-1-21 08:58:22 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
admin 该用户已被删除
地板
发表于 2015-1-30 13:00:28 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
爱飞 该用户已被删除
5#
 楼主| 发表于 2015-1-30 13:00:28 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
山那边是海 该用户已被删除
6#
发表于 2015-2-6 11:57:33 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
柔情似水 该用户已被删除
7#
发表于 2015-2-16 03:04:36 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
飘灵儿 该用户已被删除
8#
发表于 2015-3-4 23:15:52 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
再现理想 该用户已被删除
9#
发表于 2015-3-11 21:21:31 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
谁可相欹 该用户已被删除
10#
发表于 2015-3-19 13:56:21 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
乐观 该用户已被删除
11#
发表于 2015-3-28 08:39:55 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-30 01:32

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表