100分！！！在新闻库内容字段中取图片文件名？？？

Question

<SCRIPT LANGUAGE="JavaScript">
<!--
var a = "<div align=left><img src=pic/20053917441310.jpg width=200 height=200 border=1></div><br><br><br>中国人民解放军中国人民解放军！我的测试<br><br><img src=pic/20053917520381.gif width=100 height=100 border=1>";var r = /(pic\/.*?\.(jpg|png|gif|bmp))/gvar s = a.match(r);
for(var i=0;i<s.length;i++)
{
alert(s[i]);
}
//-->
</SCRIPT>

Answer 1

只要"文件名.后缀"而"pic/"就不要了！能不能用asp函数实现？谢谢！

Answer 2

<SCRIPT LANGUAGE="JavaScript">
<!--
var str = "<div align=left><img src=pic/20053917441310.jpg width=200 height=200 border=1></div><br><br><br>    中国人民解放军中国人民解放军！我的测试<br><br><img src=pic/20053917520381.gif width=100 height=100 border=1>";
var reg = /pic\/([^\s]+)/gi;
var a = str.match(reg)
alert(a);
//-->
</SCRIPT>

Answer 3

<SCRIPT LANGUAGE="VBScript">
str = "<div align=left><img src=pic/20053917441310.jpg width=200 height=200 border=1></div><br><br><br>    中国人民解放军中国人民解放军！我的测试<br><br><img src=pic/20053917520381.gif width=100 height=100 border=1>"
function mm(str)
  dim re, i, r, RetStr
  set re=new RegExp
  re.global=true
  re.IgnoreCase = true
  re.pattern="pic\/([^\\\s]+)"
  set r = re.Execute(str)
  For Each i in r
    mm = mm &","& i.SubMatches(0)
  Next
  if len(mm)>0 then mm=mid(mm, 2)
end function
dim a, i
a = split(mm(str), ",")
for i=0 to ubound(a)
  msgbox a(i) '删除你自己做
next
</SCRIPT>