添加[content:thumcontent len=20]调用缩略内容

其实列表标签有调用文章缩略内容的功能([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)