if instr(str,"IMG")<>0 then
arr=split(str,"
for i=1 to arrlen
start=instr(arr(i),"src=")+5
last=instr(start,arr(i),chr(34))
RemoveImg=RemoveImg&mid(arr(i),start,last-start)&"|"
next
end if
end function
Asp如何读取表article“文章内容字段content”里的所有图片并列出来？
function RemoveImg(str)
if instr(str,"IMG")<>0 then
arr=split(str,"
for i=1 to arrlen
start=instr(arr(i),"src=")+5
last=instr(start,arr(i),chr(34))
RemoveImg=RemoveImg&mid(arr(i),start,last-start)&"|"
next
end if
end function
if instr(str,"IMG")<>0 then
arr=split(str,"
for i=1 to arrlen
start=instr(arr(i),"src=")+5
last=instr(start,arr(i),chr(34))
RemoveImg=RemoveImg&mid(arr(i),start,last-start)&"|"
next
end if
end function
