美文网首页
添加[content:thumcontent len=20]调用

添加[content:thumcontent len=20]调用

作者: 您好小耗子 | 来源:发表于2017-11-08 12:11 被阅读72次

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

    相关文章

      网友评论

          本文标题:添加[content:thumcontent len=20]调用

          本文链接:https://www.haomeiwen.com/subject/kwmemxtx.html