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

[复制链接]
查看8 | 回复0 | 2024-3-5 17:05:33 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
该功能文件为:
Admin\Article\KS.Article.asp  第965行
  1. if Intro="" And KS.ChkClng(KS.G("AutoIntro"))=1 Then Intro=KS.GotTopic(KS.LoseHtml(ArticleContent),200)
复制代码
上述代码:原封不动截取前200个字
  1. <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)” 将返回空格符


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则