Set res = new RegExp
res.Pattern = "[a-z]+-(\d+)x(\d+)"
res.IgnoreCase = True
res.Global = True
Set ms = res.Execute(str)
For Each i In ms
Response.Write "宽:" & i.Submatches(0) & ",高:" & i.Submatches(1) & "<br />"
Next
Set ms = Nothing : Set res = Nothing
%>