ASP 取得文章中第一张图片成功了，但是不知道缩略图怎么做啊。。？
下面是代码：FunctionGetImg(str)dimobjregEx,zzstr,matches,Match,retstr,Imglist,Imgone,strpat...
下面是代码：
Function GetImg(str)
dim objregEx,zzstr,matches,Match,retstr,Imglist,Imgone,strpath
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
zzstr="<img(.+?)\.(jpg|gif|png|bmp)(.+?)>"
objregEx.Pattern = zzstr
set matches = objregEx.execute(str)
for each match in matches
retstr = retstr &"|"& Match.Value
next
if retstr<>"" then
Imglist=split(retstr,"|")
Imgone=replace(Imglist(1),strpath,"")
GetImg=Imgone
else
GetImg=""
end if
end function
调用的时候 只需要 <%=GetImg(rs("字段"))%> 展开
Function GetImg(str)
dim objregEx,zzstr,matches,Match,retstr,Imglist,Imgone,strpath
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
zzstr="<img(.+?)\.(jpg|gif|png|bmp)(.+?)>"
objregEx.Pattern = zzstr
set matches = objregEx.execute(str)
for each match in matches
retstr = retstr &"|"& Match.Value
next
if retstr<>"" then
Imglist=split(retstr,"|")
Imgone=replace(Imglist(1),strpath,"")
GetImg=Imgone
else
GetImg=""
end if
end function
调用的时候 只需要 <%=GetImg(rs("字段"))%> 展开
2个回答
展开全部
一般是单独放2个字段来存储大图和小图的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
