Asp教程

通过asp实例结合结合ACCESS,MSSQL来更好的深入Asp学习 - 爬坡者

导航

• 首页
• PHP代码
• 程序员小工具
• JAVASCRIPT实例
• ASP函数收集
• ASP实践经验
• ASP标签
• 乱弹

« asp中的rs.open于conn.execute的区别 sql-server2000提示挂起的文件操作 »

2007-10-23 15:22:37

一个ASP字符串处理类加强版

不能运行的，拷贝到本地看
<%    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      varrayToString = 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 %>

Tags: asp类教程  

发布:asp教程 | 分类:收藏的ASP类 | 评论:0 | 引用:0 | 浏览:

• 点击这里获取该日志的TrackBack引用地址

• 相关文章:

• ASP中类的详细介绍（class Property Get、Property Let）  (2007-10-17 15:52:13)

  ASP数据库操作通用类  (2007-9-6 12:32:36)

  Asp类初体验  (2007-9-2 15:27:9)

  认识ASP的VBSCRIPT类  (2007-9-2 15:23:13)

  class property get、property let 使用说明  (2007-9-1 13:1:24)

  NB叶子的一些防SQL函数  (2007-8-23 1:7:39)

  生成目录树结构的类  (2007-8-22 21:22:16)

  用ASP写的一个debug类  (2007-8-22 21:15:48)

  一个ASP字符串处理类  (2007-8-22 19:45:15)

  一个最简单的 ASP 类  (2007-8-22 17:31:50)

Powered By Z-Blog 1.8 Spirit Build 80710

Copyright 2007-2008 papozhe.com [asp教程] All Rights Reserved.
浙ICP备07030537号
免责申明：所有文章除特别声明，均来自网上，主要为学习用！内容仅供参考，版权归原作者。如侵犯您利益，请来信告知.

Email:papozhe$Gmail.com QQ:76336503