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

    動易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

     

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

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

    網友評論
    五省快3