当前位置：K88软件开发 → 文章中心 → 编程语言 → Asp → Asp01 → 文章内容

asp中获取内容中所有图片或者获取第一个图片的代码

减小字体 增大字体 作者：佚名     来源：asp编程网  发布时间：2018-12-30 8:34:10

用asp获取内容中的图片与获取内容中的第一个图片地址，主要用在删除内容中的图片，或者是将内容中的图片放到幻灯片中，使用的原理是用正则表达式的方法获取，具体代码如下：
'===================================== '获取内容中所有图片 '===================================== 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
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)


asp中获取内容中所有图片或者获取第一个图片的代码



[] [返回上一页] [打 印]

文章评论评论内容只代表网友观点，与本站立场无关！