今天无意中做一个项目,客户要求需要获取内容图片,以前确实没有做过,于是查询点资料,找到解决办法,写了一个简单函数用来获取内容中图片;
首先您的用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
%>
函数写出来了,调用也写这么使用了,下面就看您会不会应用了,再不会我也没有办法了!