仓酷云

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

[学习教程] ASP网站制作之ASP字符串截取函数,合用于收罗程序挪用...

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

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

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

x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。********************************************************************************
Function(私有)
称号:字符串截取函数
感化:按指定首尾字符串截取内容(本函数为从左向右截取)
参数:sContent----被截取的内容
sStart------首字符串
iStartNo----当首字符串不是独一时取第几个
bIncStart---是不是包括首字符串(1/True为包括,0/False为不包括)
iStartCusor-首偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
sOver-------尾字符串
iOverNo-----当尾字符串不是独一时取第几个
bIncOver----是不是包括尾字符串((1/True为包括,0/False为不包括)
iOverCusor--尾偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
********************************************************************************
PublicFunctionSenFe_Cut(sContent,sStart,iStartNo,bIncStart,iStartCusor,sOver,iOverNo,bIncOver,iOverCusor)
IfsContent""Then
DimiStartLen,iOverLen,iStart,iOver,iStartCount,iOverCount,I
iStartLen=Len(sStart)首字符串长度
iOverLen=Len(sOver)尾字符串长度
首字符串第一次呈现的地位
iStart=InStr(sContent,sStart)
尾字符串在首字符串的右侧第一次呈现的地位
iOver=InStr(iStart+iStartLen,sContent,sOver)
IfiStart>0AndiOver>0Then
IfiStartNo<1OrIsNumeric(iStartNo)=FalseTheniStartNo=1
IfiOverNo<1OrIsNumeric(iOverNo)=FalseTheniOverNo=1
获得首字符串呈现的次数
iStartCount=UBound(Split(sContent,sStart))
IfiStartNo>1AndiStartCount>0Then
IfiStartNo>iStartCountTheniStartNo=iStartCount
ForI=1ToiStartNo
iStart=InStr(iStart,sContent,sStart)+iStartLen
Next
iOver=InStr(iStart,sContent,sOver)
iStart=iStart-iStartLen复原默许形态:包括首字符串
EndIf
获得尾字符串呈现的次数
iOverCount=UBound(Split(Mid(sContent,iStart+iStartLen),sOver))
IfiOverNo>1AndiOverCount>0Then
IfiOverNo>iOverCountTheniOverNo=iOverCount
ForI=1ToiOverNo
iOver=InStr(iOver,sContent,sOver)+iOverLen
Next
iOver=iOver-iOverLen复原默许形态:不包括尾字符串
EndIf
IfCBool(bIncStart)=FalseTheniStart=iStart+iStartLen不包括首字符串
IfCBool(bIncOver)TheniOver=iOver+iOverLen包括尾字符串
iStart=iStart+iStartCusor加上首偏移值
iOver=iOver+iOverCusor加上尾偏移值
IfiStart<1TheniStart=1
IfiOver<=iStartTheniOver=iStart+1
按指定的入手下手和停止地位截取内容
SenFe_Cut=Mid(sContent,iStart,iOver-iStart)
Else
SenFe_Cut=sContent
SenFe_Cut="没有找到您想要的内容,大概您设定的首尾字符串不存在!"
EndIf
Else
SenFe_Cut="没有内容!"
EndIf
EndFunction使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。
飘飘悠悠 该用户已被删除
沙发
发表于 2015-1-18 20:32:01 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
若天明 该用户已被删除
板凳
发表于 2015-1-24 05:30:17 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
谁可相欹 该用户已被删除
地板
发表于 2015-1-31 21:25:33 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
老尸 该用户已被删除
5#
发表于 2015-2-7 00:06:51 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
柔情似水 该用户已被删除
6#
发表于 2015-3-6 13:22:37 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
7#
发表于 2015-3-13 02:08:23 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
因胸联盟 该用户已被删除
8#
发表于 2015-3-20 10:06:21 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 06:13

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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