仓酷云

标题: ASP网站制作之ASP中一个字符串处置类增强版(VBScript... [打印本页]
作者: 再现理想    时间: 2015-1-16 22:43
标题: ASP网站制作之ASP中一个字符串处置类增强版(VBScript...
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。相干文章拜见：http://www.csdn.net/Develop/read_article.asp?id=22695
本文在此基本长进行了一些增加，加了几个合适中文网站的FUNCTION出来，大概另有些没有增补出来，有感乐趣的伴侣能够再在此基本上加一点FUNCTION出来，不外可别健忘分享一下！
<%
classStringOperations
***********************************************************************
@功效申明:把字符串换为char型数组
@参数申明:-str[string]:必要转换的字符串
@前往值:-[Array]Char型数组
************************************************************************
publicfunctiontoCharArray(byValstr)
redimcharArray(len(str))
fori=1tolen(str)
charArray(i-1)=Mid(str,i,1)
next
toCharArray=charArray
endfunction

****************************************************************************
@功效申明:把一个数组转换成一个字符串
@参数申明:-arr[Array]:必要转换的数据
@前往值:-[string]字符串
****************************************************************************
publicfunctionarrayToString(byValarr)
fori=0toUBound(arr)
strObj=strObj&arr(i)
next
varrayToString=strObj
endfunction
****************************************************************************
@功效申明:反省源字符串str是不是以chars开首
@参数申明:-str[string]:源字符串
@参数申明:-chars[string]:对照的字符/字符串
@前往值:-[bool]
****************************************************************************
publicfunctionstartsWith(byValstr,chars)
ifLeft(str,len(chars))=charsthen
startsWith=true
else
startsWith=false
endif
endfunction

****************************************************************************
@功效申明:反省源字符串str是不是以chars开头
@参数申明:-str[string]:源字符串
@参数申明:-chars[string]:对照的字符/字符串
@前往值:-[bool]
****************************************************************************
publicfunctionendsWith(byValstr,chars)
ifRight(str,len(chars))=charsthen
endsWith=true
else
endsWith=false
endif
endfunction

****************************************************************************
@功效申明:复制N个字符串str
@参数申明:-str[string]:源字符串
@参数申明:-n[int]:复制次数
@前往值:-[string]复制后的字符串
****************************************************************************


publicfunctionclone(byValstr,n)
fori=1ton
value=value&str
next
clone=value
endfunction

****************************************************************************
@功效申明:删除源字符串str的前N个字符
@参数申明:-str[string]:源字符串
@参数申明:-n[int]:删除的字符个数
@前往值:-[string]删除后的字符串
****************************************************************************
publicfunctiontrimStart(byValstr,n)
value=Mid(str,n+1)
trimStart=value
endfunction

****************************************************************************
@功效申明:删除源字符串str的最初N个字符串
@参数申明:-str[string]:源字符串
@参数申明:-n[int]:删除的字符个数
@前往值:-[string]删除后的字符串
****************************************************************************
publicfunctiontrimEnd(byValstr,n)
value=Left(str,len(str)-n)
trimEnd=value
endfunction

****************************************************************************
@功效申明:反省字符character是不是是英笔墨符A-Zora-z
@参数申明:-character[char]:反省的字符
@前往值:-[bool]假如是英笔墨符,前往TRUE,反之为FALSE
****************************************************************************
publicfunctionisAlphabetic(byValcharacter)
asciiValue=cint(asc(character))
if(65<=asciiValueandasciiValue<=90)or(97<=asciiValueandasciiValue<=122)then
isAlphabetic=true
else
isAlphabetic=false
endif
endfunction
****************************************************************************
@功效申明:对str字符串举行巨细写转换
@参数申明:-str[string]:源字符串
@前往值:-[string]转换后的字符串
****************************************************************************
publicfunctionswapCase(str)
fori=1tolen(str)
current=mid(str,i,1)
ifisAlphabetic(current)then
high=asc(ucase(current))
low=asc(lcase(current))
sum=high+low
return=return&chr(sum-asc(current))
else
return=return&current
endif
next
swapCase=return
endfunction

****************************************************************************
@功效申明:将源字符串str中每一个单词的第一个字母转换成年夜写
@参数申明:-str[string]:源字符串
@前往值:-[string]转换后的字符串
****************************************************************************
publicfunctioncapitalize(str)
words=split(str,"")
fori=0toubound(words)
ifnoti=0then
tmp=""
endif
tmp=tmp&ucase(left(words(i),1))&right(words(i),len(words(i))-1)
words(i)=tmp
next
capitalize=arrayToString(words)
endfunction
****************************************************************************
@功效申明:将源字符Str后中的过滤为
@参数申明:-str[string]:源字符串
@前往值:-[string]转换后的字符串
****************************************************************************
publicfunctioncheckstr(Str)
IfTrim(Str)=""OrIsNull(str)Then
checkstr=""
else
checkstr=Replace(Trim(Str),"","")
endif
Endfunction

****************************************************************************
@功效申明:将字符串中的str中的HTML代码举行过滤
@参数申明:-str[string]:源字符串
@前往值:-[string]转换后的字符串
****************************************************************************
PublicFunctionHtmlEncode(str)
IfTrim(Str)=""OrIsNull(str)then
HtmlEncode=""
else
str=Replace(str,">",">")
str=Replace(str,"<","<")
str=Replace(str,Chr(32),"")
str=Replace(str,Chr(9),"")
str=Replace(str,Chr(34),""")
str=Replace(str,Chr(39),"")
str=Replace(str,Chr(13),"")
str=Replace(str,Chr(10)&Chr(10),"</p><p>")
str=Replace(str,Chr(10),"<br>")
HtmlEncode=str
endif
EndFunction
****************************************************************************
@功效申明:盘算源字符串Str的长度(一其中笔墨符为2个字节长)
@参数申明:-str[string]:源字符串
@前往值:-[Int]源字符串的长度
****************************************************************************
PublicFunctionstrLen(Str)
IfTrim(Str)=""OrIsNull(str)Then
strlen=0
else
DimP_len,x
P_len=0
StrLen=0
P_len=Len(Trim(Str))
Forx=1ToP_len
IfAsc(Mid(Str,x,1))<0Then
StrLen=Int(StrLen)+2
Else
StrLen=Int(StrLen)+1
EndIf
Next
endif
EndFunction
****************************************************************************
@功效申明:截取源字符串Str的前LenNum个字符(一其中笔墨符为2个字节长)
@参数申明:-str[string]:源字符串
@参数申明:-LenNum[int]:截取的长度
@前往值:-[string]:转换后的字符串
****************************************************************************
PublicFunctionCutStr(Str,LenNum)
DimP_num
DimI,X
IfStrLen(Str)<=LenNumThen
Cutstr=Str
Else
P_num=0
X=0
DoWhileNotP_num>LenNum-2
X=X+1
IfAsc(Mid(Str,X,1))<0Then
P_num=Int(P_num)+2
Else
P_num=Int(P_num)+1
EndIf
Cutstr=Left(Trim(Str),X)&"..."
Loop
EndIf
EndFunction
endclass
%>
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，
作者: 金色的骷髅    时间: 2015-1-19 21:43
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
作者: 深爱那片海    时间: 2015-1-26 13:19
掌握asp的特性而且一定要知道为什么。
作者: 不帅    时间: 2015-2-4 14:59
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。
作者: 只想知道    时间: 2015-2-10 02:08
那么，ASP.Net有哪些改进呢？
作者: 爱飞    时间: 2015-2-28 15:15
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。
作者: 若天明    时间: 2015-3-10 00:23
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。
作者: 第二个灵魂    时间: 2015-3-17 03:11
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
作者: admin    时间: 2015-3-23 18:12
不能只是将它停留在纸上谈兵的程度上。



欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2