📄 200532115156.htm
字号:
<TR>
<td width="624" bgcolor="#CCCCCC">当前位置:<a href=../../index.htm>首页</a>--><a href=../../artical/69/1.htm>程序设计</a>--><a href=../../artical/80/1.htm>ASP专区</a>-->显示文章内容</td><td width="176" bgcolor="#CCCCCC"><span id="liveclock"></span></td>
</TR></TBODY></TABLE>
<table width="800" height="406" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="166" height="200" valign="top" scope="col"><table width="100%" height="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="119" valign="top" scope="col"><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="../../search.asp" method="post" name="searchLeftForm">
<tr bgcolor="CAF6F4" align="center">
<td height="25" bgcolor="#CC9900"><font color="#cc0000"><b>□
站 内 搜 索 □</b></font></td>
</tr>
<tr align="center">
<td style="line-height:150%" height=60> 请输入查询的字符串:<br>
<input name="search" type="text" class="button1" id="search" style="width:150">
<select name="seaguan" size="1" class="button1" id="seaguan" style="width:150">
<option value="">==> 综合查询 <==</option>
<option value="title">标题</option>
<option value="断剑">作者</option>
<option value="artical">内容</option>
<%call getNewsBoardTree()%>
</select>
</td>
</tr>
<tr align="center">
<td>
<input type="SUBMIT" name="Action" value=" 查 询 " class="button2">
<input type="RESET" name="Clear" value=" 重 写 " class="button2">
</td>
</tr>
<tr align="center">
<td height="10"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类最新文章</td>
</tr>
<tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200541450.htm target=_blank>asp常用数据库连接方法和技</a></td></tr><tr><td><a href=2005414428.htm target=_blank>使用简单的方法进行批量删除数</a></td></tr><tr><td><a href=2005414315.htm target=_blank>asp提高首页性能的一个技巧</a></td></tr><tr><td><a href=2005414230.htm target=_blank>ASP防注入之解决方案--加</a></td></tr><tr><td><a href=2005414158.htm target=_blank>使用ASP加密算法加密你的数</a></td></tr><tr><td><a href=2005414120.htm target=_blank>常用ASP自定义函数集</a></td></tr><tr><td><a href=2005414035.htm target=_blank>使用ASP生成HTML文件</a></td></tr><tr><td><a href=20054135956.htm target=_blank>在Flash中使用ASP技术</a></td></tr><tr><td><a href=200533011127.htm target=_blank>在asp中多个虚拟目录 se</a></td></tr>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类热门文章</td>
</tr>
<tr><td><a href=200532713295.htm target=_blank>断剑新闻系统商业版!</a></td></tr><tr><td><a href=200532115451.htm target=_blank>有关sql注入</a></td></tr><tr><td><a href=200532115410.htm target=_blank>ASP、JSP、PHP 三种</a></td></tr><tr><td><a href=200532014532.htm target=_blank>[原创]关于断剑新闻系统1.</a></td></tr><tr><td><a href=2005320135030.htm target=_blank>[本站原创]用VS.NET封</a></td></tr><tr><td><a href=200532115337.htm target=_blank>改进性能和样式的 24个 A</a></td></tr><tr><td><a href=200532818925.htm target=_blank>初学asp的朋友 asp20</a></td></tr><tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200532115122.htm target=_blank>用asp自动解析网页中的图片</a></td></tr><tr><td><a href=20053281846.htm target=_blank>DataGrid动态添加模板</a></td></tr>
</table></td>
</tr>
</table></td>
<td width="628" valign="top" scope="col"><table width="100%" border="0" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000" style="word-break:break-all;">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<p class="style7"><SPAN class=style1>ASP中一个字符串处理类加强版</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-3-21 被阅览数：<SCRIPT src="../../counter.asp?id=378"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6">以下是源代码： <BR><BR><% <BR>class StringOperations <BR><BR>'*********************************************************************** <BR>'' @功能说明: 把字符串换为char型数组 <BR>'' @参数说明: - str [string]: 需要转换的字符串 <BR>'' @返回值: - [Array] Char型数组 <BR>'************************************************************************ <BR>public function toCharArray(byVal str) <BR>redim charArray(len(str)) <BR>for i = 1 to len(str) <BR>charArray(i-1) = Mid(str,i,1) <BR>next <BR>toCharArray = charArray <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 把一个数组转换成一个字符串 <BR>'' @参数说明: - arr [Array]: 需要转换的数据 <BR>'' @返回值: - [string] 字符串 <BR>'**************************************************************************** <BR>public function arrayToString(byVal arr) <BR>for i = 0 to UBound(arr) <BR>strObj = strObj & arr(i) <BR>next <BR>varrayToString = strObj <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 检查源字符串str是否以chars开头 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - chars [string]: 比较的字符/字符串 <BR>'' @返回值: - [bool] <BR>'**************************************************************************** <BR>public function startsWith(byVal str, chars) <BR>if Left(str,len(chars)) = chars then <BR>startsWith = true <BR>else <BR>startsWith = false <BR>end if <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 检查源字符串str是否以chars结尾 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - chars [string]: 比较的字符/字符串 <BR>'' @返回值: - [bool] <BR>'**************************************************************************** <BR>public function endsWith(byVal str, chars) <BR>if Right(str,len(chars)) = chars then <BR>endsWith = true <BR>else <BR>endsWith = false <BR>end if <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 复制N个字符串str <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - n [int]: 复制次数 <BR>'' @返回值: - [string] 复制后的字符串 <BR>'**************************************************************************** <BR>public function clone(byVal str, n) <BR>for i = 1 to n <BR>value = value & str <BR>next <BR>clone = value <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 删除源字符串str的前N个字符 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - n [int]: 删除的字符个数 <BR>'' @返回值: - [string] 删除后的字符串 <BR>'**************************************************************************** <BR>public function trimStart(byVal str, n) <BR>value = Mid(str, n+1) <BR>trimStart = value <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 删除源字符串str的最后N个字符串 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - n [int]: 删除的字符个数 <BR>'' @返回值: - [string] 删除后的字符串 <BR>'**************************************************************************** <BR>public function trimEnd(byVal str, n) <BR>value = Left(str, len(str)-n) <BR>trimEnd = value <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 检查字符character是否是英文字符 A-Z or a-z <BR>'' @参数说明: - character [char]: 检查的字符 <BR>'' @返回值: - [bool] 如果是英文字符,返回TRUE,反之为FALSE <BR>'**************************************************************************** <BR>public function isAlphabetic(byVal character) <BR>asciiValue = cint(asc(character)) <BR>if (65 <= asciiValue and asciiValue <= 90) or (97 <= asciiValue and asciiValue <= 122) then <BR>isAlphabetic = true <BR>else <BR>isAlphabetic = false <BR>end if <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 对str字符串进行大小写转换 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @返回值: - [string] 转换后的字符串 <BR>'**************************************************************************** <BR>public function swapCase(str) <BR>for i = 1 to len(str) <BR>current = mid(str, i, 1) <BR>if isAlphabetic(current) then <BR>high = asc(ucase(current)) <BR>low = asc(lcase(current)) <BR>sum = high + low <BR>return = return & chr(sum-asc(current)) <BR>else <BR>return = return & current <BR>end if <BR>next <BR>swapCase = return <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 将源字符串str中每个单词的第一个字母转换成大写 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @返回值: - [string] 转换后的字符串 <BR>'**************************************************************************** <BR>public function capitalize(str) <BR>words = split(str," ") <BR>for i = 0 to ubound(words) <BR>if not i = 0 then <BR>tmp = " " <BR>end if <BR>tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1) <BR>words(i) = tmp <BR>next <BR>capitalize = arrayToString(words) <BR>end function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 将源字符Str后中的'过滤为'' <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @返回值: - [string] 转换后的字符串 <BR>'**************************************************************************** <BR>public function checkstr(Str) <BR>If Trim(Str)="" Or IsNull(str) Then <BR>checkstr="" <BR>else <BR>checkstr=Replace(Trim(Str),"'","''") <BR>end if <BR>End function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 将字符串中的str中的HTML代码进行过滤 <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @返回值: - [string] 转换后的字符串 <BR>'**************************************************************************** <BR>Public Function HtmlEncode(str) <BR>If Trim(Str)="" Or IsNull(str) then <BR>HtmlEncode="" <BR>else <BR>str=Replace(str,">","&gt;") <BR>str=Replace(str,"<","&lt;") <BR>str=Replace(str,Chr(32),"&nbsp;") <BR>str=Replace(str,Chr(9),"&nbsp;") <BR>str=Replace(str,Chr(34),"&quot;") <BR>str=Replace(str,Chr(39),"&#39;") <BR>str=Replace(str,Chr(13),"") <BR>str=Replace(str,Chr(10) & Chr(10), "</p><p>") <BR>str=Replace(str,Chr(10),"<br> ") <BR>HtmlEncode=str <BR>end if <BR>End Function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 计算源字符串Str的长度(一个中文字符为2个字节长) <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @返回值: - [Int] 源字符串的长度 <BR>'**************************************************************************** <BR>Public Function strLen(Str) <BR>If Trim(Str)="" Or IsNull(str) Then <BR>strlen=0 <BR>else <BR>Dim P_len,x <BR>P_len=0 <BR>StrLen=0 <BR>P_len=Len(Trim(Str)) <BR>For x=1 To P_len <BR>If Asc(Mid(Str,x,1))<0 Then <BR>StrLen=Int(StrLen) + 2 <BR>Else <BR>StrLen=Int(StrLen) + 1 <BR>End If <BR>Next <BR>end if <BR>End Function <BR><BR>'**************************************************************************** <BR>'' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长) <BR>'' @参数说明: - str [string]: 源字符串 <BR>'' @参数说明: - LenNum [int]: 截取的长度 <BR>'' @返回值: - [string]: 转换后的字符串 <BR>'**************************************************************************** <BR>Public Function CutStr(Str,LenNum) <BR>Dim P_num <BR>Dim I,X <BR>If StrLen(Str)<=LenNum Then <BR>Cutstr=Str <BR>Else <BR>P_num=0 <BR>X=0 <BR>Do While Not P_num > LenNum-2 <BR>X=X+1 <BR>If Asc(Mid(Str,X,1))<0 Then <BR>P_num=Int(P_num) + 2 <BR>Else <BR>P_num=Int(P_num) + 1 <BR>End If <BR>Cutstr=Left(Trim(Str),X)&"..." <BR>Loop <BR>End If <BR>End Function <BR><BR>end class <BR>%> <BR></p>
<p><img src="http://www.koyee.com/images/dgg.gif" height="70" width="587"> </p></td>
</tr>
<tr>
<td width="628" bordercolor="0" class="font1"><p>
<hr size="1" color="#0a778b" width="100%">
<table><tr><td width="269" align="center">上一篇: <a href=../80/200532115122.htm title=用asp自动解析网页中的图片地址，并将其保存到本地服务器>用asp自动解析网页中的图片地址，并将其保存</a> </td>
<td width="285" align="center">下一篇: <a href=../90/200542823048.htm title=gew>gew</a></td>
</tr></table>
<hr size="1" color="#0a778b" width="100%">
<div align="right"> <a href="javascript:window.print()"><img src="../../images/printer.gif" width="16" height="14" border="0" align="absmiddle">打印本页</a> | <a href="javascript:window.close()"><img src="../../images/close.gif" width="14" height="14" border="0" align="absmiddle">关闭窗口</a> </div>
<p></p></td>
</tr>
</table></td>
</tr>
</table>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="800"
align=center background=../../images/webtop_bg.gif
border=0>
<TBODY>
<TR>
<TD><div align="center" class="style4">Copyright @ 2004-2008 http://www.koyee.com 可以网络在线版权所有<br>
公司地址:江西南昌 电话:13879173467 邮编:330029<br>
email:chenxueyan9999@163.com</div></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -