| 代码如下 | 复制代码 |
|
<% class StringOperations ''**************************************************************************** '''' @功能说明: 把字符串换为char型数组 '''' @参数说明: - str [string]: 需要转换的字符串 '''' @返回值: - [Array] Char型数组 ''**************************************************************************** public function toCharArray(byVal str) redim charArray(len(str)) for i = 1 to len(str) charArray(i-1) = Mid(str,i,1) next toCharArray = charArray end function ''**************************************************************************** '''' @功能说明: 把一个数组转换成一个字符串 '''' @参数说明: - arr [Array]: 需要转换的数据 '''' @返回值: - [string] 字符串 ''**************************************************************************** public function arrayToString(byVal arr) for i = 0 to UBound(arr) strObj = strObj & arr(i) next arrayToString = strObj end function ''**************************************************************************** '''' @功能说明: 检查源字符串str是否以chars开头 '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - chars [string]: 比较的字符/字符串 '''' @返回值: - [bool] ''**************************************************************************** public function startsWith(byVal str, chars) if Left(str,len(chars)) = chars then startsWith = true else startsWith = false end if end function ''**************************************************************************** '''' @功能说明: 检查源字符串str是否以chars结尾 '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - chars [string]: 比较的字符/字符串 '''' @返回值: - [bool] ''**************************************************************************** public function endsWith(byVal str, chars) if Right(str,len(chars)) = chars then endsWith = true else endsWith = false end if end function ''**************************************************************************** '''' @功能说明: 复制N个字符串str '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - n [int]: 复制次数 '''' @返回值: - [string] 复制后的字符串 ''**************************************************************************** public function clone(byVal str, n) for i = 1 to n value = value & str next clone = value end function ''**************************************************************************** '''' @功能说明: 删除源字符串str的前N个字符 '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - n [int]: 删除的字符个数 '''' @返回值: - [string] 删除后的字符串 ''**************************************************************************** public function trimStart(byVal str, n) value = Mid(str, n+1) trimStart = value end function ''**************************************************************************** '''' @功能说明: 删除源字符串str的最后N个字符串 '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - n [int]: 删除的字符个数 '''' @返回值: - [string] 删除后的字符串 ''**************************************************************************** public function trimEnd(byVal str, n) value = Left(str, len(str)-n) trimEnd = value end function ''**************************************************************************** '''' @功能说明: 检查字符character是否是英文字符 A-Z or a-z '''' @参数说明: - character [char]: 检查的字符 '''' @返回值: - [bool] 如果是英文字符,返回TRUE,反之为FALSE ''**************************************************************************** public function isAlphabetic(byVal character) asciiValue = cint(asc(character)) if (65 <= asciiValue and asciiValue <= 90) or (97 <= asciiValue and asciiValue <= 122) then isAlphabetic = true else isAlphabetic = false end if end function ''**************************************************************************** '''' @功能说明: 对str字符串进行大小写转换 '''' @参数说明: - str [string]: 源字符串 '''' @返回值: - [string] 转换后的字符串 ''**************************************************************************** public function swapCase(str) for i = 1 to len(str) current = mid(str, i, 1) if isAlphabetic(current) then high = asc(ucase(current)) low = asc(lcase(current)) sum = high + low return = return & chr(sum-asc(current)) else return = return & current end if next swapCase = return end function ''**************************************************************************** '''' @功能说明: 将源字符串str中每个单词的第一个字母转换成大写 '''' @参数说明: - str [string]: 源字符串 '''' @返回值: - [string] 转换后的字符串 ''**************************************************************************** public function capitalize(str) words = split(str," ") for i = 0 to ubound(words) if not i = 0 then tmp = " " end if tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1) words(i) = tmp next
capitalize = arrayToString(words) end function ''**************************************************************************** '''' @功能说明: 将源字符Str后中的''过滤为'''' '''' @参数说明: - str [string]: 源字符串 '''' @返回值: - [string] 转换后的字符串 ''**************************************************************************** public function checkstr(Str) If Trim(Str)="" Or IsNull(str) Then checkstr="" else checkstr=Replace(Trim(Str),"''","''''") end if End function ''**************************************************************************** '''' @功能说明: 将字符串中的str中的HTML代码进行过滤 '''' @参数说明: - str [string]: 源字符串 '''' @返回值: - [string] 转换后的字符串 ''**************************************************************************** Public Function HtmlEncode(str) If Trim(Str)="" Or IsNull(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 end if End Function ''**************************************************************************** '''' @功能说明: 计算源字符串Str的长度(一个中文字符为2个字节长) '''' @参数说明: - str [string]: 源字符串 '''' @返回值: - [Int] 源字符串的长度 ''**************************************************************************** Public Function strLen(Str) If Trim(Str)="" Or IsNull(str) Then strlen=0 else Dim P_len,x P_len=0 StrLen=0 P_len=Len(Trim(Str)) For x=1 To P_len If Asc(Mid(Str,x,1))<0 Then StrLen=Int(StrLen) + 2 Else StrLen=Int(StrLen) + 1 End If Next end if End Function ''**************************************************************************** '''' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长) '''' @参数说明: - str [string]: 源字符串 '''' @参数说明: - LenNum [int]: 截取的长度 '''' @返回值: - [string]: 转换后的字符串 ''**************************************************************************** Public Function CutStr(Str,LenNum) Dim P_num Dim I,X If StrLen(Str)<=LenNum Then Cutstr=Str Else P_num=0 X=0 Do While Not P_num > LenNum-2 X=X+1 If Asc(Mid(Str,X,1))<0 Then P_num=Int(P_num) + 2 Else P_num=Int(P_num) + 1 End If Cutstr=Left(Trim(Str),X)&"..." Loop End If End Function end class %> |
|
分享一个ASP字符串处理类
时间： 2024-09-16 13:41:16
分享一个ASP字符串处理类的相关文章
封装的一个asp.net验证码类
第一个反映是验证码的这些属性是否可以设置(也就是说是封装成一个类,然后以暴露公有属性和方法的方式来使用的,还是在直接在一般处理程序中实现了验证码的生成到输出),结果比较可惜,是后者...... 里面的算法感觉挺不错,至少对于我这种对算法几乎是不懂的人来说是这样,于是想到去封装一下她然后无耻地纳入自己的类库中去^^ old原文件如下:点击下载 首先分析一下这份代码中的不足(自己觉得的): 1.面向过程式的编程,如果要修改验证码的属性,例如修改字体的大小.背景颜色等细节的东西,需要去一般处理程序中找
封装的一个asp.net验证码类_实用技巧
第一个反映是验证码的这些属性是否可以设置(也就是说是封装成一个类,然后以暴露公有属性和方法的方式来使用的,还是在直接在一般处理程序中实现了验证码的生成到输出),结果比较可惜,是后者...... 里面的算法感觉挺不错,至少对于我这种对算法几乎是不懂的人来说是这样,于是想到去封装一下她然后无耻地纳入自己的类库中去^^ old原文件如下:点击下载 首先分析一下这份代码中的不足(自己觉得的): 1.面向过程式的编程,如果要修改验证码的属性,例如修改字体的大小.背景颜色等细节的东西,需要去一般处理程序中找
发一个ASP的ADODB类代码_ASP CLASS类
反正我现在用这个做了很多站,自己觉得还是满有用的,所以拿出来和大家分享一下.支持三种数据库连接:MSSQL2000,MSSQL2005,ACCESS 三种方法: select_table(sql) 表查询,返回TRUE或FALSE 当SQL语句出错,或空记录时返回FALSE,否则TRUE update_table(SQL) 表更新,包括update,delete 成功执行返回TRUE,否则返回FALSE,updated为执行后影响记录行数. insert_table(sql,table,id_c
创建一个ASP通用分页类
创建|分页 转自"蓝色理想" http://www.blueidea.com/tech/program/2004/1989.asp.ASP分页一直是一个众说纷坛的话题,而且也没有一个太有效的方法.今天在CSDN的BLOG里看到了这个ASP分页类,(http://blog.csdn.net/xiangbo520/archive/2004/09/22/113539.aspx),只是提供了源码,而且源码中部分标签已被作为HTML显示了,想复制下来也不太容易,所有到蓝色理想找到了一篇全面一点的
创建一个ASP通用分页类_ASP CLASS类
从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类.的确省事不少,但是通常的函数和类的做法都是就数据显示部分也封装了起来,每次为了达到自己需要的显求效果要去改动函数或者类的本身,所以使用起来也不是怎么方便,自己写的分页改起来已经够复杂了,更不要说别人的了. 所以趁昨天有空自
创建一个ASP通用分页类（二）代码部分
创建|分页 <%'====================================================================='XDOWNPAGE ASP版本'版本 1.00'Code by zykj2000'Email: zykj_2000@163.net'BBS: http://bbs.513soft.net'本程序可以免费使用.修改,希望我的程序能为您的工作带来方便'但请保留以上请息''程序特点'本程序主要是对数据分页的部分进行了封装,而数据显示部份完全由用户
创建一个ASP分页类(一)文章部分
创建|分页 创建一个ASP通用分页类 平波 从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类.的确省事不少,但是通常的函数和类的做法都是就数据显示部分也封装了起来,每次为了达到自己需要的显求效果要去改动函数或者类的本身,所以使用起来也不是怎么方便,自己写的分页改起来已经够
框架-自己写一个 小型字符串类
问题描述 自己写一个 小型字符串类 C++标准库提供了一个功能强大的String类来实现字符串的操作,本系统创建一个功能类似"String类"的小型字符串类,以实现类似的字符处理功能. 希望大神能给个思路,基本框架. 解决方案 参考:http://wenku.baidu.com/link?url=7xK4vuZ4bKFHpVHQryrkeFQQQLg6TjxUDopT-g-IuRTuqmZTKaZO5vkDWPd9SUm7-LRsL-SliVNuGgPuaUmLyub7kLIwKzb3
ASP通用分页类
分页 一.类的属性.方法 这是一个ASP通用分页类.你可以用它方便的给记录集分页,当然在网上有许多的分页类和分页函数.本分页主要有GetConn.GetRS.SQL.URL.CSSFile.FldName.FldNote.FldWidth.FldAlign.ShowPageType.TleFTColor.TleWidth.PageSize.ShowWidth.Init.Pages.ShowData.Close等属性和方法. 1.GetConn属性:用来获取一个已创建的Connection对象.