asp:截取文章内容,多出来的以...显示！

<%function fPlainText(content)
        if isNull(content) then exit function
    set re1 = New regExp
            re1.Global = true
            re1.IgnoreCase = true
            
            re1.Pattern = "<.*?>"
            content = re1.Replace(content,"")
            
        if len(content)>150 then content=left(content,150)+"......"
        
            re1.Pattern = "/r/n/s*"
            content = re1.Replace(content,"<br/>")
    set re1=nothing
        fPlainText=content
end function
%>
调用代码

 <%=fPlainText(wznr)%>
上面那个150 就是你要调出的文字数