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

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

功能描述：

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

补充：VB的程序也行，谢谢
		

追问：已解决了，我要的不是这效果，是下面的
 
Function GetArrayBr(Str)
 str = Replace(str,"<br />","<br>")
    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>内容8<br />内容9<br />"
'调用
Call GetArrayBr(Cont_str)

答案：ASP代码:
自动判断<br> <br > <br /> <br/>然后把内容切割成数组。并返回数组。
<%
bb="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<br />aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<br />aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<br />aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<br />bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb<br>bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb<br>bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb<br>bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"
aa = CuteStr(bb)
For n=1 to uBound(aa)
    Response.Write aa(n) & "<br />"
Next
Function CuteStr(Str)
 Dim CutArr()
 Dim ArrIndex
    bStr = lCase(Str)
    istart = 0
 i = inStr(bStr,"<br")
 ArrIndex = 0
 While i>0
     ArrIndex = ArrIndex + 1
     ReDim Preserve CutArr(ArrIndex)
     CutArr(ArrIndex) = Left(bStr,i - 1)
     istart = i
        iend = inStr(istart,bStr,">")
        bStr = Right(bStr,Len(bStr)-iend)
        i = inStr(bStr,"<br")
 wend
 if Len(bStr)>0 then
     ArrIndex = ArrIndex + 1
     ReDim Preserve CutArr(ArrIndex)
     CutArr(ArrIndex) = bStr
 end if
 CuteStr = CutArr
End Function
%>
以下是效果:

上一个：ASP投票系统应该怎么设计比较好？
下一个：ASP.NET(C#)里的using