求助：问一个弱弱的问题。大家帮我看看啊！

[Yjanuary]

<img src=Upfiles/20054895411.jpg width=156 height=103 vspace=5 border=0>
怎样把其中的Upfiles/20054895411.jpg提出来？？
谢了啊！

[hfkj]

A="<img src=Upfiles/20054895411.jpg width=156 height=103 vspace=5 border=0>"

B=mid(A,10,23)

[ryuginka]

hehe,cuo le

[goodstuday]

用正则表达式啊
regstr=".?[\.\/\\\w-:]+\.(gif|jpg)"
url=Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""","")
Response.Write(url)

Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value&"|||"
Next
RegExp_Execute = values
End Function

[Yjanuary]

晕！楼上的能写详细点吗？
看不懂啊！
呵呵！

[jzywh]

<img src="Upfiles/20054895411.jpg" id="pic" width=156 height=103 vspace=5 border=0 onclick="alert(this.src);">

[jzywh]

<img src="Upfiles/20054895411.jpg" id="pic" width=156 height=103 vspace=5 border=0>


<script language="javascript">

function GetSrc()
{
alert(document.all("pic").src);
}

</script>

[jzywh]

str="<img src=Upfiles/20054895411.jpg width=156 height=103 vspace=5 border=0>"

arrObj = split(str," ")
arrObj = split(arrObj(1),"=")
src = arrObj(1)

[ladyling]

接分的来了

[luoyixiaoniba]

dim var1,var2,var3
var1="<img src=Upfiles/20054895411.jpg width=156 height=103 vspace=5 border=0>"
var2=split(var1)
for each element in var2
if instr(element,"src")>0 then
var3=mid(element,5,len(element))
end if
next
str=mid(var3,1,len(var3))
response.write "字符串为:"&str