一个按照行来截取显示文章摘要的函数

一个按照行来截取显示文章摘要的函数
代码如下
Function SplitLines(mycont,coun,newsid,classid)
'mycont 要截取的内容 newsid 文章的ID
'coun 要截取几行内容 classid 文章所属类的ID
dim fline,i,l
if isnull(mycont) then exit Function
i=1
fline = 0
For i=1 to Len(mycont)
l=Mid(mycont,i,4)
if l="<br>" or l="<BR>" or l="</p>" or l="</P>" then
fline=fline+1
end if
if fline>coun then exit for
Next
if fline>coun then
mycont=left(mycont,i-1)
'mycont=mycont & "<br>... ..."
mycont=mycont & "<div id='MoreLink'><a href='view_news.asp?class_id="&classid&"&news_id="&newsid&"'>查看详细...</a></div>"
end if
SplitLines=mycont
end Function