ASP网站制作之ASP字符串截取函数,合用于收罗程序挪用...
使用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邮箱设置等等，就像管理本地机一样方便。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]