从字符串里截取N个带HTML的字符的函数

现在这个blog的列表页就是用这个函数来实现的

<%
'*************************************************************
'函数名:getHTMLContent
'参数:NO-->要取得的字符数, txtContent-->要处理的字符串 
'功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组.
'作者:柳永法
'网址:http://www.yongfa365.com
'时间:2007-6-1 20:03 :)儿童节版. 
'*************************************************************
Function getHTMLContent(NO, txtContent)
    If Len(txtContent)<= NO Then
        getHTMLContent = txtContent
        Exit Function
    End If

    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    patrn = "<p|<br|<li|<table"
    patrn = Split(patrn, "|")

    For Each p in patrn
        re.Pattern = p
        txtContent = re.Replace(txtContent, "||" & p )
    Next

    txtContent = Split(txtContent, "||")
    For Each E in txtContent
        If Len(s)>NO Then Exit For
        s = s + E
    Next
    getHTMLContent = s
End Function
%>