28,404
社区成员
发帖
与我相关
我的任务
分享

<%
s = " 20. http://www.baidu.com/index.html 这是百度"
Set oReg = New RegExp
With oReg
.Global = True
.IgnoreCase = True
.Pattern = "http://[^\s]+"
Set oMatches = .Execute(s)
For Each oMatch In oMatches
Response.Write oMatch.Value
Next
Set oMatch = Nothing
Set oMatches = Nothing
End With
Set oReg = Nothing
%>