成都SEO-成都网站建设工作室-成都网站优化-木木工作室

<%
Function ShowPic(str)
set regEx=new Regexp'设置配置对象  
regEx.IgnoreCase = True'忽略大小写  
regEx.Global = True'设置为全文搜索  
regEx.Pattern = "<img.+?>"
'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的<img>标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。  
strs=trim(str)  
Set Matches =regEx.Execute(strs)'开始执行配置  
For Each Match in Matches  
   RetStr = RetStr &getimgs( Match.Value )'执行第二轮的匹配  
Next  
ShowPic = RetStr
End Function
Function getimgs(str)  
getimgs=""  
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=imgsrc+"|"'把里面的地址串起来备用
exit for
next  
End Function 
%>

显示第一张：
<%shuzhu=split(ShowPic(rsclss("Content")),"|")%>
<img src="<%=shuzhu(0)%>"   border="0" />

作者：成都木木SEO 转载请注明出处。
联系木木SEO：QQ:631359592 电话：13408026909