asp检测字符串出现的次数

技术文章

asp检测字符串出现的次数

时间：2009-03-25 点击：1873

<%
'检测字符串Str1在字符串Str2中出现的次数
Public Function SearchChar(Str1, Str2)
Dim I, Counter
Counter = 0
If InStr(Str2, Str1) Then
For I = 1 To Len(Str2)
If Mid(Str2, I, Len(Str1))=Str1 Then
Counter = Counter + 1
End If
Next
End if
SearchChar = Counter
End Function
%>
<form name="form1" method="post" action="">
<p> 输入两个字符串：</p>
<p> 字符串1:
    <input name="text1" type="text" id="text">
</p>
<p> 字符串2:
    <input name="text2" type="text" id="text">
    <input type="submit" name="Submit" value="提交">
</p>
</form>
<%
Dim X,Y
X=Request.Form("text1")
Y=Request.Form("text2")
If X<>"" and Y<>"" Then
%>
<p>字符串1：<%=X%></p>
<p>字符串2：<%=Y%></p>
<p>字符串1在字符串2中出现的次数<%=SearchChar(X,Y)%></p>
<%
End If
%>

验证视图状态 MAC 失败

asp创建和调整动态数组

asp计算中英文混合字符串的长度

asp判断字符串是否以指定字符串开头或结尾

asp判断字符是否是英文字符

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：