正则表达式匹配字符串

abddd...<h3 class="r"><a href=" http://www.newmind40.com/ai_gb.htm" target=_blank class=l onmousedown="return clk(0,'','','','12','','0CCQQFjABOAo')"><em>好好学习</em></a></h3>...
请问各位大侠，对于上面的字符串，我想查找出URL，和<em>中的好好学习，该怎么写正则呢？（文本中有 很多个这样的字符串，我只是列的其中一个~）谢谢各位大侠了！
感谢nniqou的 回答，但您说的还不是我想要的答案，补充一点，<h3>标签必须用上，即查找h3标签中的url，另外对于上面的例子我想得到的答案是 http://www.newmind40.com/ai_gb.htm 好好学习。对于h3标签我一开始没说到，不好意思了。

---

<%
'坦蔽strng 放置源字串

Dim strng:strng="abddd...<h3 class=""洞昌r""><a href="" http://www.newmind40.com/ai_gb.htm"" target=_blank class=l onmousedown=""return clk(0,'','','','12','','0CCQQFjABOAo')""><em>好好让颤州学习</em></a></h3>..."

Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = "<h3[^>]*><a href=""([^""]*)""[^>]*><em>([\s\S]*?)<\/em><\/a><\/h3>"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = regEx.Replace(Match.Value, "$1 $2")
Response.Write(RetStr& " <br/> ")
Next
%>

================================输出为
http://www.newmind40.com/ai_gb.htm 好好学习

---

<h3>[\s\S]*?<a href="(.*?)"[^>]*?>.*?<em>(.*?)</棚亩悔模em>链前森.*?<\/h3>

match方式即可

这样再试试

---

'/物斗颤<h3[^>]*><a href="([^"罩败]*)"[^>]*><em>([\s\S]*?)<\/em><\/a><\销谨/h3>/'

---