如何去掉内容页上显示“文章来源”所带的链接？_动易Cms教程

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

－－－－－－－－－－－－－－－－－－－－－

修改为：

红色标记处，前者为作者的代码，后者为来源的代码。

查看更多 动易Cms教程  动易Cms模板