Dim str
str = "李伟[1liwei]<2051>"
Dim reg
set reg = new RegExp
reg.Pattern = "\[(.*?)\]<(.*?)>"
set Matches = reg.Execute(str)
for i = 0 to Matches.Count-1
Response.Write(Matches(i).SubMatches(0) & "<BR>")
Response.Write(Matches(i).SubMatches(1)& "<BR>")
Next
Response.End