一个按照行来截取显示文章摘要的函数 代码如下 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