比较实用的首页调用文章的两个函数

Function cpimages(countent) '显示文章中的图片

beginstr=instr(countent,"src=")

heodinstr=instr(beginstr,countent," ")

countent=mid(countent,beginstr+4,heodinstr-beginstr-4)

cpimages=countent

end function

Function cutStr(str,strlen)

'去掉所有HTML标记

Dim re

Set re=new RegExp

re.IgnoreCase =True

re.Global=True

re.Pattern="<(.[^>]*)>"

str=re.Replace(str,"")

set re=Nothing

Dim l,t,c,i

l=Len(str)

t=0

For i=1 to l

c=Abs(Asc(Mid(str,i,1)))

If c>255 Then

t=t+2

Else

t=t+1

End If

If t>=strlen Then

cutStr=left(str,i)&"..."

Exit For

Else

cutStr=str

End If

Next

cutStr=Replace(cutStr,chr(10),"")

cutStr=Replace(cutStr,chr(13),"")

cutStr=Replace(cutStr,chr(32),"")

End Function

第一个可以提取出一段文章中的第一张图片的路径。

第二个函数正好相反，可以去除掉文章中的html标签