|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.vbscript|字符串这个类是用于处置字符串的,是老外写的,我把内里的功效和参数加了申明
利用办法:
===============test.asp================
<!--#includefile="StringOperations.asp"-->
<%
dimstr
setstr=NewStringOperations
test=str.toCharArray("checkthisout")
response.write"<strong>str.toCharArray</strong>:"
fori=0toubound(test)
response.writetest(i)&""
next
response.write"<BR><BR>"
test1=str.arrayToString(test)
response.write"<strong>str.arrayToString</strong>:"&test1
response.write"<BR><BR>"
response.write"<strong>str.startsWith</strong>:"&str.startsWith(test1,"ch")
response.write"<BR><BR>"
response.write"<strong>str.endWith</strong>:"&str.endsWith(test1,"out")
response.write"<BR><BR>"
response.write"<strong>str.clone</strong>:"&str.clone("abc",10)
response.write"<BR><BR>"
response.write"<strong>str.trimStart</strong>:"&str.trimStart(test1,3)
response.write"<BR><BR>"
response.write"<strong>str.trimEnd</strong>:"&str.trimEnd(test1,2)
response.write"<BR><BR>"
response.write"<strong>str.swapCase</strong>:"&str.swapCase("HiHiHi")
response.write"<BR><BR>"
response.write"<strong>str.isAlphabetic</strong>:"&str.isAlphabetic("!")
response.write"<BR><BR>"
response.write"<strong>str.capitalize</strong>:"&str.capitalize("clarafehler")
Setstr=Nothing
%>
===============StringOperations.asp================
<%
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
arrayToString=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
**************************************************************</p>ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。 |
|