yydy 发表于 2024-3-5 17:05:33

kesion:自动截取内容的200个字作为导读 问题

该功能文件为:
Admin\Article\KS.Article.asp第965行
if Intro="" And KS.ChkClng(KS.G("AutoIntro"))=1 Then Intro=KS.GotTopic(KS.LoseHtml(ArticleContent),200)上述代码:原封不动截取前200个字
<blockquote>if Intro="" And KS.ChkClng(KS.G("AutoIntro"))=1 Then Intro=KS.GotTopic(replace(replace(replace(Replace(KS.LoseHtml(ArticleContent),vbcrlf,""),"  ","")," ",""),chr(32),""),200)
其中:
1、“vbCrLf”是Visual Basic(VB,一种编程语言)中的一个字符串常数,即"Chr(13) & Chr(10)"(回车符与换行符连接在一起),是换行的意思。
2、“chr(32)” 将返回空格符


页: [1]
查看完整版本: kesion:自动截取内容的200个字作为导读 问题