asp网站怎样获取文章第一张图片
最近在修改自己的网站,很想做一个自动获取发布文章的第一张图片作为缩略图的功能,但是在网上找了很多的代码,都不是很满意,有一些只能获取原图,而不能以缩略图的形式显示,让人很恼火。
经过多次的修改和调试,终于获得了自己想要的代码,现在和大家分享一下,这段代码我虽然用在了asp网站,但是用在html网站应该也是可以的。
下面这段代码放在文章列表页的标签之前:
<%
Function Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs,Matches
Set Regs=New RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="]+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
%>
这段代码就是获取文章中的第一张图片的地址,获取的数据是不带的,所以我们可以在后面显示的时候控制他的宽度鹤高度。
获取了第一张图片之后就是要显示了,显示的代码依旧实在这个页面,不过要在之间添加,具体位置就是你要显示图片的地方:
代码是:<img src="Frist_Pic(rs("content"))" style="width:27x;height:18px;"/>,其中content是你文章表中的内容,根据自己的表进行更改,后面的宽度和高度也可以根据自己的需要设定。
这张图片就是我的博客使用以上代码之后的显示截图,这三篇文章都是获取文章中第一张图片做为的缩略图。
另外这个代码也可以用在后台发表文章页面中,直接获取文章中的第一张图片放在数据库中,这样就不用每次登陆前台页面都要进行扫描文章内容再获取第一张图片了,不过需要在数据库给文章图片建一个存储元素,比如w_image。
获取的代码还是上面那个,也还是放在那个位置,不同的就是写入数据库的代码:
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Article"
rs.open sql,conn,1,3
rs.addnew
rs("w_image")="<%=Frist_Pic(rs("content"))%>"
rs.update
rs.close
%>
以上代码请根据自己的数据库表格进行修改,这样就把发布文章的第一张图片保存到了数据库中,前台显示的时候直接调用就好。
本文转载请注明出处!
下一篇: 本分类没有了
本文暂无评论,快来抢沙发吧!
发表评论