Dim objRegExp,Matches,i,DC9_DOT_CN_MATCH Dim aryMatch() Redim Preserve aryMatch(0) Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="(?:\[[^\]]+\]([^\[]+)\[\/[^\]]+\])|(?:(?:href|src)=([^\s|^>]+)[""|>|\s\'])" Set Matches = objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]a href=""http://www.dc9.cn/ddd.jpg"">/a> href=""http://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]sctipt src=""http://www.dc9.cn/upload/sss.jpg""") Dim TmpMatch For i=0 to Matches.Count-1 Call InsertDataToArray(Matches(i).SubMatches(0),aryMatch) Call InsertDataToArray(Matches(i).SubMatches(1),aryMatch) Next
For i=0 to Ubound(aryMatch) If Not IsNull(aryMatch(i)) And Trim(aryMatch(i))>"" Then Response.write aryMatch(i)"br>" Next
Function InsertDataToArray(Data,ByRef aryMatch) If Trim(Data)>"" Then Data=Replace(Data,"'","") Data=Replace(Data,"""","") Data=Replace(Data,"","/") Data=Split(Data,"/")(Ubound(Split(Data,"/"))) Redim Preserve aryMatch(Ubound(aryMatch)+1) DC9_DOT_CN_MATCH=False For j=0 to Ubound(aryMatch) If aryMatch(j)=Data Then DC9_DOT_CN_MATCH=True Next If Not DC9_DOT_CN_MATCH Then aryMatch(Ubound(aryMatch))=Data End If End Function 实际上，Z-Blog的话就匹配Upload就可以了（但是我为了省事，也为了更精确些，就干脆在上面的那个匹配上面加上了upload，所以看上去好像下面这个更复杂些，其实理论上应该下面这个简单些，毕竟有upload管着呢。。），也不用SPLit那个/.这么写就可以了：
Dim objRegExp,Matches,i,ZC_UPLOAD_MATCH Dim aryMatch() Redim Preserve aryMatch(0) Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="(?:\[[^\]]+\][^\[]*upload\/([^\[|^\\|^\/]+)\[\/[^\]]+\])|(?:(?:href|src)=""{0,1}[^\s|^""|^>|^']*upload\/([^\s|^>]+)[""|>|\s\'])" Set Matches = objRegExp.Execute("[img]2312.jpg[/img][img]2312.jpg[/img]hh[img]http://www.dc9.cn/cm/upload/2ed312.jpg[/img]a href=""http://www.dc9.cn/ddd.jpg"">/a> href=""http://www.dc9.cn/dccdd.jpg"">[IMG_RIGHT=400,300,title]upload/2assas.jpg[/IMG_RIGHT]sctipt src=""http://www.dc9.cn/upload/sss.jpg"" src=http://www.dc9.cn/upload/sasds.jpg'>") Dim TmpMatch For i=0 to Matches.Count-1 Call InsertDataToArray(Matches(i).SubMatches(0),aryMatch) Call InsertDataToArray(Matches(i).SubMatches(1),aryMatch) Next
For i=0 to Ubound(aryMatch) If Not IsNull(aryMatch(i)) And Trim(aryMatch(i))>"" Then Response.write aryMatch(i)"br>" Next
Function InsertDataToArray(Data,ByRef aryMatch) If Trim(Data)>"" Then Data=Replace(Data,"'","") Data=Replace(Data,"""","") Redim Preserve aryMatch(Ubound(aryMatch)+1) ZC_UPLOAD_MATCH=False For j=0 to Ubound(aryMatch) If aryMatch(j)=Data Then ZC_UPLOAD_MATCH=True Next If Not ZC_UPLOAD_MATCH Then aryMatch(Ubound(aryMatch))=Data End If End Function
