ASP获取文章中所有图片中第一张或第一张图片地址

最新推荐文章于 2021-06-04 18:22:18 发布

XYCMS

最新推荐文章于 2021-06-04 18:22:18 发布

阅读量698

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP PHP 文章标签：获取第一张图片 asp

本文链接：https://blog.csdn.net/yang3rui/article/details/102251261

ASP 同时被 2 个专栏收录

50 篇文章

订阅专栏

PHP

41 篇文章

订阅专栏

本文介绍了一种使用VBS脚本从HTML内容中提取首张图片的方法，通过正则表达式匹配<img>标签，适用于数据库内容字段的图片抓取。

今天无意中做一个项目，客户要求需要获取内容图片，以前确实没有做过，于是查询点资料，找到解决办法，写了一个简单函数用来获取内容中图片；

首先您的用SQL语句去判断数据库内容字段中有图片，如何判断，如在SQL语句中模糊判断like '%<img%'就好，判断有这样的数据，然后获取内容：如rs("content"),最后用获取图片函数调用：g_fpic(rs("content")),这样就好了，最后写g_fpic函数：

<%
'获取内容中第一张图片地址函数
'author:xycms
'update：20191006

Function g_fpic(ByVal t0) 
f_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 
f_pic=Matches(0).SubMatches(0) 
End IF 
Set Matches=Nothing 
Set Regs=Nothing 
End Function
%>

函数写出来了，调用也写这么使用了，下面就看您会不会应用了，再不会我也没有办法了！