其实列表标签有调用文章缩略内容的功能([list:content len=20]),
但是在使用content的时候没有这个功能:
即
{aspcms:content sort=1 order=order}
[content:content]
{/aspcms}
那么我们就来修改下核心代码,来是实现[content:thumcontent len=20]
步骤1:
找到 /inc/AspCms_MainClass.asp,
搜索 替换List循环标签
找到
case "content"
contentlen = parseArr(fieldArr)("len")
pagecontent=decodeHtml(rsObj("content"))
if not isNul(contentlen) then
contentlen=cint(contentlen)
'if len(pagecontent)>contentlen then pagecontent=left(LeftH(pagecontent),contentlen)&"..."
if len(pagecontent)>contentlen then pagecontent=left(dropHtml(pagecontent),contentlen)&"..."
end if
nloopstr = replace(nloopstr,matchfield.value,pagecontent)
复制其中的内容
搜索 替换循环标签
找到
case "content"
contentlen = parseArr(fieldArr)("len")
pagecontent=decodeHtml(rsObj("content"))
if not isNul(contentlen) then
contentlen=cint(contentlen)
if len(pagecontent)>contentlen then pagecontent=left(pagecontent,contentlen)&"..."
end if
nloopstr = replace(nloopstr,matchfield.value,pagecontent)
在下面添加一个,case "thumcontent",将前面复制的内容黏贴进去
即
case "thumcontent"
contentlen = parseArr(fieldArr)("len")
pagecontent=decodeHtml(rsObj("content"))
if not isNul(contentlen) then
contentlen=cint(contentlen)
'if len(pagecontent)>contentlen then pagecontent=left(LeftH(pagecontent),contentlen)&"..."
if len(pagecontent)>contentlen then pagecontent=left(dropHtml(pagecontent),contentlen)&"..."
end if
nloopstr = replace(nloopstr,matchfield.value,pagecontent)
网友评论