这个效果很是不错，那么先不说百度怎么实现的，我们完全可以用asp来实现，通过asp里的正则来查找文章内容中是否包含img标签，如果包含则提取这个标签的src的值，这样就达到了读取图片的功能。下面看代码：Function giveimages(content)
这个效果很是不错，那么先不说百度怎么实现的，我们完全可以用asp来实现，通过asp里的正则来查找文章内容中是否包含img标签，如果包含则提取这个标签的src的值，这样就达到了读取图片的功能。下面看代码：
Function giveimages(content) Set regEx = New RegExp ’建立正则表达式。 regEx.Pattern = "(]*)(src=)(’|"&CHR(34)&"| )?(.[^’|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)(’|"&CHR(34)&"|\s|>)(.[^>]*)(>)" ’设置模式。 regEx.IgnoreCase = True ’设置是否区分字符大小写。 regEx.Global = True ’设置全局可用性。 Set Matches = regEx.Execute(content) ’执行搜索。 For Each Match in Matches ’遍历匹配集合。 giveimages = giveimages&Match.SubMatches(4)&"."&Match.SubMatches(6)&"|"’这个是让图片的路径叠加，并在每一个后面加个|符号 NextEnd Function
在页面中加上上面那个函数,然后在你的列表循环里加上引用如：img=giveimages(rs("内容字段"))那么这个img就等于有这个图片的路径了，切记，这回的这个路径是有全部的文章里的图片的。你得用Split分割，看我下面的例子：
if thisimg<>"" then’先判断是否为空，如果不为空则 thisimg=Split(thisimg,"|")’分割图片路径 imgsize=ubound(thisimg)’定义变量 for imgi=0 to imgsize’循环输出 if imgi=imgsize then exit for’如果循环到最后则退出循环 response.Write("&)
")’输出图片next’循环结束
这样就实现了在列表页面提取文章中的图片，提取出来的这个图片你可以自己定义CSS，也可以加DIV等效果。
