Trim、Ltrim、Rtrim函数
语法 ： Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数
语法 ： Ltrim(string) 将字符串前面的空格去掉
语法 ： Rtrim(string) 将字符串后面的空格去掉
演示代码 ： <%
Dim MyVarLTrim,MyVarRTrim,MyVarTrim
MyVarLTrim = LTrim(” vbscript “) ‘MyVar 包含 “vbscript “。
MyVarRTrim = RTrim(” vbscript “) ‘MyVar 包含 ” vbscript”。
MyVarTrim = Trim(” vbscript “) ‘MyVar 包含”vbscript”。
%>
结果 ： vbscript
vbscript
vbscript
Left函数
语法 ： Left(string, length)
从字符。串的左部返回指定数目的字符。
注：如果length为0，则返回空字符串””，如果length大于字符串长度，则返回整个字符串。
演示代码 ： <%
Dim MyString, LeftString
MyString = “VBSCript”
LeftString = Left(MyString, 3) ‘LeftString 包含 “VBS”
%>
结果 ： VBS ‘LeftString 包含 “VBS”
Right函数
语法 ： Right(string, length)
从字符串的左部返回指定数目的字符。
注：如果length为0，则返回空字符串””，如果length大于字符串长度，则返回整个字符串。
演示代码 ： <%
Dim MyString, RightString
MyString = “VBSCript”
RightString = Left(MyString, 3) ‘RightString 包含 “ipt”
%>
结果 ： ipt ‘RightString 包含 “ipt”
Mid函数
语法 ： Mid(string,start,length)
返回一个字符串中指定数目的子串。
其中：string为原字符串（必须），
start为开始位置（必须）（最左处为1），
length为返回字符数（可选，默认为原字符串中的字符数）。
注：如果start比原字符串所含字符数大，则函数返回空字符串””。
演示代码 ： <%
Dim MyMidVar
MyMidVar = Mid(“VBScript is fun!”, 3, 6) ‘MyMidVar 包含 “Script”。
%>
结果 ： Script ‘MyMidVar 包含 “Script”。
Len函数
语法 ： Len(string) 返回字符串内字符的数目，或是存储一变量所需的字节数
演示代码 ： <%
Dim MyStringLen
MyStringLen = Len(“VBSCRIPT”) ‘MyString 包含 8。
%>
结果 ： 8 ‘ MyString 包含 8。
InStr函数
语法 ： InStr(string1,string2[, compare]) 返回string2字符串在string1字符串中第一次出现的位置
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
演示代码 ： <%
Dim SearchString, SearchChar, MyPos
SearchString =”XXpXXpXXPXXP”
SearchChar = “P”
MyPos = Instr(SearchString, SearchChar) ‘返回 9.
string1 为零长度
InStr返回 0
string1 为 Null
InStr返回 Null
string2 为零长度
InStr返回 Start 的值
string2 为 Null
InStr返回 Null
string2 找不到
InStr返回 0
在 string1 中找到string2
InStr返回 找到的位置
start 值 > string2 值
InStr返回 0
%>
结果 ： 9 ‘返回 9
.
StrComp函数
语法 ： StrComp(string1,string2[，compare])
返回string1字符串与string2字符串的比较结果;
如果两个字符串相同，则返回0;
如果小于则返回-1，如果大于则返回1
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。
演示代码 ： <%
Dim MyStr1, MyStr2, MyComp
MyStr1 = “ABCD”: MyStr2 = “abcd” ‘定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) ‘ 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) ‘ 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) ‘ 返回 1。
%>
结果 ： MyComp1：0
MyComp2：-1
MyComp3：1
Split函数
语法 ： Split(string1,delimiter[, count[, start]])
将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。
如果省略，使用空格(“”)作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较
IsArray()判断是否数组的函数,LBound()取数组的下标,UBound()取数组的上标。 。
演示代码 ： <%
Dim MyString, MyArray, Msg
MyString = “VBScriptXisXfunXcoodXscriptXcctv!”
MyArray = Split(MyString, “x”,-1,1)
‘ MyArray(0) contains “VBScript”.
‘ MyArray(1) contains “is”.
‘ MyArray(2) contains “fun!”.
Response.Write(MyArray(5))
%>
Dim MyString, MyArray, psation
MyString=”激光 电波 拉皮 抽脂 激光 电波”
MyArray = Split(MyString, ” “,-1,1)
for i=0 to
MyArray(0)
结果 ： cctv!
请输入字符串 ：
Replace函数
语法 ： Replace(expression, find, replacewith[, compare[, count[, start]]])
替换字符串中的一部分。其中：
find为要被替换的字符串（必须）,
replacewith为替换后的字符串（必须），
start为开始位置（可选，默认为1），
count为替换的次数（可选，默认值为-1，即执行所有的替换），
compare为0或1（可选，默认值为0，其中0代表执行二进制比较，1代表执行文本比较）。
注1：二进制比较区分大小写，文本比较忽略大小写。
注2：如果find找不到，则返回原字符串。
注3：这一函数经常用于Replace(Trim(Request(“UserName”)),”‘”,””)中，目的是过滤’字符，避免与SQL语句中的单引号混淆，出现错误。
演示代码 ： <%
Dim strLongWords
strLongWords = “日前，建设部表示尚未公布住房建设规划的城市，务必在12月20日前全面完成编制、公布和备案工作；尚未建立廉租住房制度的城市，必须在2006年年底前建立并实施。目前全国尚有65％的地级以上城市、91．1％的县级城市未公布住房建设规划的情况。”
If Request.QueryString(“KeyWords”)<>”” Then
KeyWords = Request.QueryString(“KeyWords”)
ArrKeyWords = Split(KeyWords, ” “,-1,1)
For i = LBound(ArrKeyWords) To UBound(ArrKeyWords)
strLongWords = Replace(strLongWords, ArrKeyWords(i), “<font color=’#FF0000′>” & ArrKeyWords(i) & “</font>”)
Next
End If
%>