相关文章参见：
http://www.csdn.net/Develop/read_article.asp?id=22695
本文在此基础上进行了一些添加，加了几个适合中文网站的FUNCTION进去，可能还有些没有补充进去，有感兴趣的朋友可以再在此基础上加一点FUNCTION进去，不过可别忘记分享一下！
<%
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字符串转json对象类"就是这样一个功能，它允许开发者将JSON格式的字符串转换为VBScript可以操作的对象。 在VBScript中，对象的属性通常通过"obj.property"的方式访问，但根据描述，这里的JSON对象...
### ASP字符串处理函数详解 #### 1. Len 函数 - **语法**: `Len(string|varname)` - **功能**: 此函数返回一个字符串中的字符数量或存储一个变量所需的字节数。 - **示例**: ```vb Dim MyString MyString = Len...
在ASP(Active Server Pages)中，处理字符串...了解并熟练掌握这些ASP字符串截取方法，可以帮助开发者更高效地处理和展示网页上的文本内容。在实际开发中，结合具体情况灵活运用，可以解决很多与字符串相关的编程问题。
在ASP中，`Eval()`函数是一个非常强大的工具，它能够解析并执行一个字符串中的表达式或语句，并返回计算结果。例如，在示例代码中： ```vb a = Eval("1+1") ``` 这行代码会将字符串 `"1+1"` 作为数学表达式进行求值...
这篇关于“经典ASP读取JSON字符串/生成JSON对象，数组对象等”的知识将详细介绍如何在ASP环境中处理JSON数据。 1. **JSON对象与数组的结构**： JSON对象以大括号{}表示，键值对之间用逗号分隔。键必须是字符串，用...
该函数的主要功能是对输入字符串中的每一个字符进行检查，并根据字符的不同类型选择合适的编码方式对其进行编码。具体步骤如下： - **ASCII范围内的字符**：对于位于ASCII表中的数字、字母以及特定符号（如`@*_+-./...
本文将详细介绍如何在ASP中编写一个VBScript函数来获取字符串的首字母。 首先，VBScript是ASP中的默认脚本语言，它提供了丰富的字符串处理函数。获取字符串首字母的过程通常涉及到两个步骤：提取第一个字符和处理...
在ASP技术中，数组转换成字符串是一个常见的需求，特别是在数据处理、存储或显示时。本文将深入探讨如何在ASP环境中实现这一操作，并提供相关的解决策略。 首先，我们需要了解ASP（Active Server Pages）是微软开发...
在VBScript中，字符串操作是一个常见的任务，`StrReverse`方法就是其中之一，它用于将字符串的字符顺序反转。例如，如果有一个字符串`strInput`，我们可以使用以下代码将其反转： ```vbscript Dim strInput, ...
在本篇文章中，我们将深入探讨如何使用ASP与MySQL数据库通过ODBC 3.51进行连接，特别是关于连接字符串的构建及其各个组成部分的含义。这不仅适用于初学者，也适用于那些希望深入了解这一过程的技术人员。 ### ASP...
VBScript是Visual Basic的一个轻量级版本，主要用于Web开发。 在这个名为"ASP+VBScript示范代码"的资源中，我们可以期待找到一系列使用ASP和VBScript编写的示例代码片段。这些代码可能涵盖了各种ASP和VBScript的...
在给定的示例中，`GetPicUrl.asp`文件是一个ASP源代码文件，它的主要任务是解析字符串，从中提取出嵌入的图片URL。 核心知识点包括： 1. **正则表达式**：在ASP中，获取图片URL的关键在于使用正则表达式（Regular ...
在ASP（Active Server Pages）开发过程中，我们经常会遇到与字符串操作相关的任务，比如需要测试一个字符串的长度。本文将详细讲解如何在ASP中检测字符串的长度，并提供相关的知识点。 首先，了解基本概念。字符串...
4. **字符串索引**：在VBScript中，字符串的第一个字符索引是1，而不是像其他一些编程语言中的0。因此，当你定位字符串的起始位置时，需要考虑这一点。 5. **字符串操作的安全性**：在实际应用中，需要注意边界条件...
通过以上详细介绍，我们可以看到VBScript提供了丰富的内置函数，这些函数能够帮助开发者轻松实现日期时间操作、字符串处理、数值计算等多种功能，极大地提高了编程效率。对于ASP初学者而言，熟练掌握这些函数的用法...
`VBScript.Encode`是VBScript中的一个内置函数，主要用于对字符串进行编码，以防止恶意用户通过查看源代码获取敏感信息。编码后的字符串通常看起来是一串不可读的字符，这对于保护源代码中的密码、API密钥或其他敏感...
总结，ASP网页进行串口通信是一个涉及硬件交互的复杂过程，通过VBScript和ActiveX控件可以实现。然而，随着Web技术的发展，现代Web应用可能更多地转向JavaScript和服务器端框架，如Node.js或.NET，它们提供了更强大...
"ASP指定字符替换内容中出现的亮红"就是这样一个需求，目的是当指定的字符串出现在网页内容中时，自动将其变为红色，以引起用户的注意。下面我们将详细探讨如何实现这一功能。 首先，我们需要理解ASP的基本语法。...
总结起来，检测ASP字符串出现的次数，我们可以选择使用InStr函数进行简单的查找，或者借助正则表达式实现更灵活的匹配。根据实际需求，可以选择合适的方法。在处理大量数据或需要精确匹配的场景下，正则表达式可能...
* Asc()：返回与字符串的第一个字母对应的 ANSI 字符代码。 * Ascb()：返回与字符串的第一个字母对应的字节代码。 * Chr()：返回与指定的 ANSI 字符代码相对应的字符。 * Chrb()：返回与指定的字节代码相对应的字符...