急需求一个ASP查找字符串标签的函数

求一个ASP查找字符串标签的函数。

功能描述：

1、查找一篇文章中的<br>标签和<br />标签的个数，然后把内容截取分开存放在数组里；这两个标签都是换行标签，手写代码时一般会写成<br>，但如果是自动生成的代码就是<br />。如果不太明白题请加QQ联系，谢谢

追问：不是这样的，你看一下以下代码，以下代码只能查找<br>标签，但不能查找到<br />标签，你看能不能改成可以同时查找这两个标签，下面的代码是我想要的查找，只是不能同时查找两个而已；刚才的回答虽然不能解决我的问题，但先谢谢你了
 
Function GetArrayBr(Str)
    Dim Matter(100)  '定义数组与下标大小为100
    Dim i, x1
    i = 0
    Do While True  '查找<br>之间内容
       x1 = InStr(Str, "<br>")
       If x1 = 0 Then Exit Do
       Matter(i) = Mid(Str, 1, x1 - 1)
       i = i + 1
       Str = Mid(Str, x1 + 4, Len(Str))
    Loop
    GetArray = i '当前值表示有在<br>之间的内容数
    Randomize  '产品不重复的随机数
    rndA = Int(GetArray * Rnd)
    Response.Write Matter(rndA)
End Function
'内容
Cont_str = "内容1<br>内容2<br />内容3<br>内容4<br />内容5<br>内容6<br />内容7<br>"
'调用
Call GetArrayBr(Cont_str)

答案：<%
str="1、查找一篇文章中的<br>标签和<br />标签的个数，然后把内容截取分开存放在数组里；这两个标签都是换行标签，手写代码时一般会写成<br>，但如果是自动生成的代码就是<br />。如果不太明白题请加QQ联系，谢谢"
str = Replace(str,"<br>","<br />")
arr = Split(str,"<br />")
response.write "共有换行"&UBound(arr)&"个<br />"
For i = 0 To UBound(arr)
response.write "第"&i+1&"行:"&arr(i)&"<br />"
Next
%>

上一个：asp.net 关于页面刷新问题
下一个：ASP。NET配置 连接数据库问题