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

最新推荐文章于 2020-06-21 16:27:35 发布

转载最新推荐文章于 2020-06-21 16:27:35 发布 · 1.2k 阅读

文章标签：

#function #div

ASP 专栏收录该内容

176 篇文章

订阅专栏

本文介绍了一个使用 VBScript 编写的函数，该函数能够根据指定的行数从文章内容中截取出摘要，并在摘要末尾添加查看详细链接。此函数适用于需要自动生成文章简介或摘要的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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