28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim str
Dim Reg
Dim mc
Dim i
Set Reg = new RegExp
Reg.Global = true
Reg.Pattern = ">\s*(\d+)\s*<"
Reg.Multiline = true
str ="<tr> <td height=""23"" align=""center"" class=""bj-F0F0F0""> <span class=""flow_font"">324073 </span> </td> <td align=""center"" class=""bj-F0F0F0"" > <imgwidth=""23"" height=""23"" src=""/happy8/v1/Images/FeiPan/c4.gif"" alt=""""/> </td> <td align=""center"" class=""bj-不定"">02 </td> <td align=""center"" class=""bj-不定"">06 </td> <td align=""center"" class=""bj-不定"">08 </td> <td align=""center"" class=""bj-不定"">15 </td> <td align=""center"" class=""bj-不定"">17 </td> <td align=""center"" class=""bj-不定"">23 </td> <td align=""center"" class=""bj-不定"">28 </td> <td align=""center"" class=""bj-不定"">29 </td> <td align=""center"" class=""bj-不定"">30 </td> <td align=""center"" class=""bj-不定"">38 </td> <td align=""center"" class=""bj-F0F0F0""> <a href=""javascript:gotoImageWindowBysize('324073')""> </a> </td> </tr>"
set mc = Reg.Execute(str)
for each m in mc
' Response.Write(mc(i).submatch("$1"))
Response.Write(m.SubMatches(0)&",")
next
%>