asp中获取内容中所有图片与获取内容中第一个图片的代码
程序员文章站
2022-10-27 15:51:08
复制代码 代码如下:'===================================== '获取内容中所有图片 '=========================...
复制代码 代码如下:
'=====================================
'获取内容中所有图片
'=====================================
function get_imgsrc(byval t0)
dim t1,regs,matches,match
t1=""
if not(isnull(t0) or len(t0)=0) then
set regs=new regexp
regs.pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
regs.ignorecase=true
regs.global=true
set matches=regs.execute(t0)
if matches.count>0 then
for each match in matches
if left(match.submatches(0),7)<>"http://" then
t1=t1&"<option value="""&match.submatches(0)&""">"&match.submatches(0)&"</option>"
end if
next
end if
end if
get_imgsrc=t1
set matches=nothing
set regs=nothing
end function
'=====================================
'获取内容中第一个图片
'=====================================
function frist_pic(byval t0)
frist_pic=""
dim regs,matches
set regs=new regexp
regs.ignorecase=true
regs.global=true
regs.pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
set matches=regs.execute(t0)
if regs.test(t0) then
frist_pic=matches(0).submatches(0)
end if
set matches=nothing
set regs=nothing
end function