又捣鼓了下网站

把《家有宝贝》手机版改成了朋友圈模式

就是遇到了一个问题

朋友圈中，不管有几张图片，都是缩小剪切显示在一起的

这个搞不来

虽然可以获取该条内容所有的图片

但改变不了图片的样式

没办法，就获取了最后一张图片，凑合用

先把代码记录下来备用

网上找的代码：

<%

′获取所有图片

function GetImgS(str)′获取所有图片

Set objRegExp1 = New Regexp

objRegExp1.IgnoreCase = True ′忽略大小写

objRegExp1.Global = True ′全文搜索

objRegExp1.Pattern = "src\=.+?\.(gif|jpg|png|bmp)"

set mm=objRegExp1.Execute(str)

For Each Match1 in mm

imgsrc=Match1.Value′也许存在不能过滤的字符，确保万一

imgsrc=replace(imgsrc,"""","")

imgsrc=replace(imgsrc,"src=","")

imgsrc=replace(imgsrc,"<","")

imgsrc=replace(imgsrc,">","")

imgsrc=replace(imgsrc,"img","")

imgsrc=replace(imgsrc," ","")

GetImgS=GetImgS&imgsrc′把里面的地址串起来备用

next

end function

%>

调用：

<img src="<%=GetImgS(rs("content"))%>" />

以上有个问题，如果只有单张图片是可用的，但多张图片就无法显示了。还有一个无法显示视频。

于是被我改成：

<%

′获取所有图片

function GetImgS(str)′获取所有图片

Set objRegExp1 = New Regexp

objRegExp1.IgnoreCase = True ′忽略大小写

objRegExp1.Global = True ′全文搜索

objRegExp1.Pattern = "src\=.+?\.(gif|jpg|png|bmp|mp4)"

set mm=objRegExp1.Execute(str)

For Each Match1 in mm

imgsrc=Match1.Value

imgsrc1=replace(imgsrc,"src=","")

if right(imgsrc,3) ="mp4" then

GetImgS=GetImgS&"<a href="&imgsrc1&""" data-fancybox=""gallery""><video "&imgsrc&"""></video></a>"

else

GetImgS="<a href="&imgsrc1&""" data-fancybox=""gallery""><img "&imgsrc&"""></a>"

end if

next

end function

%>

调用：<%=GetImgS(rs("content"))%>

其中：GetImgS="<a href="&imgsrc1&""" data-fancybox=""gallery""><img "&imgsrc&"""></a>"

只获取了最后一张图片

如果改成：GetImgS=GetImgS&"<a href="&imgsrc1&""" data-fancybox=""gallery""><img "&imgsrc&"""></a>"

那就会显示所有图片

只是显示所有图片后，我还无法更改它们的样式，就先获取一张吧。