求个正则表达式 提取超连接的

[lang11zi]

<a target="_blank" href="../../play.asp?id=2006&m=2&n=1&u=1&v=1">[第01集]</a>
<a target="_blank" href="../../play.asp?id=2006&m=2&n=2&u=1&v=1">[第02集]</a>

怎么把../../play.asp?id=2006&m=2&n=1&u=1&v=1和../../play.asp?id=2006&m=2&n=2&u=1&v=1
提取出来 其他都不要


Function RegExpTest(patrn,strng)
Dim re,Match,Matches
RetStr=strng
Set re = New RegExp
re.Pattern = patrn
re.IgnoreCase = True
re.Global = True
Set Matches = re.Execute(strng)
For Each Match in Matches
RetStr=RetStr+match.value
Next
RegExpTest = RetStr
End Function

Html3="<a target=""_blank"" href=""../../play.asp?id=2006&m=2&n=1&u=1&v=1"">[第01集]</a>
<a target=""_blank"" href=""../../play.asp?id=2006&m=2&n=2&u=1&v=1"">[第02集]</a>"
pattern="<a\s(.*?)+href=(\"")?(.+?)(\"")?\s*(.*?)>(.+?)</a>"
Stest=RegExpTest(pattern,Html3)
response.write Stest
这个好象不行

[hztgcl1986]

去这里看，有你要的答案
http://blog.csdn.net/hztgcl1986/archive/2007/10/26/1845079.aspx

[cloudgamer]

Function getText(fString, patrn,n) 
	dim Matches, tStr
	tStr = fString
	Set re = New Regexp
	re.IgnoreCase = True
	re.Global = True
	re.Pattern =  patrn
	set Matches = re.Execute(tStr)
	set re = nothing 
	rStr = ""
	For Each Match in Matches
		rStr = Match.SubMatches(n)
		exit for
	Next
	getText = rStr
End Function

dim Matches
sub setMatches(str,sRe)
	Set re = New Regexp
	re.IgnoreCase = True
	re.Global = True
	re.Pattern =  sRe
	set Matches = re.Execute(str)
	set re=nothing 
end sub

Html3=" <a   target=""_blank""   href=""../../play.asp?id=2006&m=2&n=1&u=1&v=1""> [第01集] </a> <a   target=""_blank""   href=""../../play.asp?id=2006&m=2&n=2&u=1&v=1""> [第02集] </a> " 

pattern="<a[^>]*?>" 

call setMatches(Html3,pattern)
For Each Match in Matches
	response.write getText(Match.value, "href=""([^""]*?)""", 0) + "<br>"
Next