有没有去除代码的方法
以下是在线编辑器生成的代码，有没有什么方法可以将多余的代码去除，仅留图片跟径部分的代码zuce/shangdu2.5acc/shangdu2.5acc/admin/eWebEditor/UploadFile/200781317734991.gif？因为想直接调图片。
<IMG src= "/zuce/shangdu2.5acc/shangdu2.5acc/admin/eWebEditor/UploadFile/200781317734991.gif " border=0> 磊大大大大大大大大大大 <FONT face=Verdana> 南宁雅思学校 <FONT face=Verdana>
[解决办法]
汗!恕我直言,高手们最好提供例子给人示范,几个字别人永远解决不了问题,还不如不说...
<%
content=lcase(Request.form( "tt ")) '你的文章内容
if content <> " " then
regstr= "src\=.+?\.(gif|jpg) "
url=Replace(Replace(Replace(RegExp_Execute(regstr,content), " ' ", " "), " " " ", " "), "src= ", " ")
dim pic
pic=split(left(url,len(url)-1), ", ")
for i=0 to ubound(pic)
Response.Write(pic(i)& " <br> ") '分行输出图片地址
next
Response.end
end if
'返回匹配值
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
%>
<form method= "post " >
<TEXTAREA style= "width:400px; height:500px " name= "tt "> </TEXTAREA>
<input type= "submit " value= "提交 " class= "bnsrh "> </form>
在一篇文件里,如果有图片,不管多少,全部提出图片地址
