判断不包含字符串的剩余数量<br>
<%
Dim Str
Str="abcd 1234"
For I = 1 To Len(Str)
'输出拆分的字符串
Response.Write Mid(Str,I,1) &"<br>"
Next
text="我是&一名学生"
b_text="我是学生"
a=len(text)
b=len(b_text)
c=a-b
%>
字符串原文：<%=text%><br>
要匹配的字符串：<%=b_text%><br>
总字符数：<%=a%> 个<br>
判断包含的字符数：<%=b%> 个<br>
剩余字符数：<%=c%> 个