• <output id="bjhkx"></output>
  • <blockquote id="bjhkx"><u id="bjhkx"><dl id="bjhkx"></dl></u></blockquote>
  • <listing id="bjhkx"><dfn id="bjhkx"></dfn></listing>

  • <mark id="bjhkx"></mark>
      <blockquote id="bjhkx"></blockquote>

      1. 安全、高速、放心的軟件下載

        動易SW6.8去除文章內容頁來源和作者的超鏈接方法

        時間:2019-05-21 09:22:48來源:本站原創人氣:0

        這幾天好不容易找到的方法,先發布到網站上,方便以后自己查找。

        修改Include\PowerEasy.Common.Content.asp中314行的Private Function GetCopyFromInfo(tmpCopyFrom, iChannelID)的相關代碼

        原代碼如下:

         

        Private Function GetAuthorInfo(tmpAuthorName, iChannelID)
            Dim i, tempauthor, authorarry, temprs, temparr
            If IsNull(tmpAuthorName) or tmpAuthorName = "未知" or tmpAuthorName = "佚名" Then
                GetAuthorInfo = tmpAuthorName
            Else
                authorarry = Split(tmpAuthorName, "|")
                For i = 0 To UBound(authorarry)
                    tempauthor = tempauthor & "<a href='" & strInstallDir & "ShowAuthor.asp?ChannelID=" & iChannelID & "&AuthorName=" & authorarry(i) & "' title="" & authorarry(i) & "'>" & GetSubStr(authorarry(i), AuthorInfoLen, True) & "</a>"
                    If i <> UBound(authorarry) Then tempauthor = tempauthor & "|"
                Next
                GetAuthorInfo = tempauthor
            End If
        End Function

        Private Function GetCopyFromInfo(tmpCopyFrom, iChannelID)
            Dim temprs, temparr
            If IsNull(tmpCopyFrom) or tmpCopyFrom = "本站原創" Then
                GetCopyFromInfo = "本站原創"
            Else
                GetCopyFromInfo = "<a href='" & strInstallDir & "ShowCopyFrom.asp?ChannelID=" & iChannelID & "&SourceName=" & tmpCopyFrom & "'>" & tmpCopyFrom & "</a>"
            End If
        End Function

        ---------------------

        修改為:
         

        Private Function GetAuthorInfo(tmpAuthorName, iChannelID)
            Dim i, tempauthor, authorarry, temprs, temparr
            If IsNull(tmpAuthorName) or tmpAuthorName = "未知" or tmpAuthorName = "佚名" Then
                GetAuthorInfo = tmpAuthorName
            Else
                authorarry = Split(tmpAuthorName, "|")
                For i = 0 To UBound(authorarry)
                    tempauthor = tempauthor & GetSubStr(authorarry(i), AuthorInfoLen, True)
                    If i <> UBound(authorarry) Then tempauthor = tempauthor & "|"
                Next
                GetAuthorInfo = tempauthor
            End If
        End Function

        Private Function GetCopyFromInfo(tmpCopyFrom, iChannelID)
            Dim temprs, temparr
            If IsNull(tmpCopyFrom) or tmpCopyFrom = "本站原創" Then
                GetCopyFromInfo = "本站原創"
            Else
                GetCopyFromInfo = tmpCopyFrom
            End If
        End Function

         

        紅色標記處,前者為作者的代碼,后者為來源的代碼。

        注意:對于修改前已經生成的部分文章,記得要重新生成一遍。

        網友評論
        福布斯彩票