日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

如何去掉內(nèi)容頁上顯示“文章來源”所帶的鏈接？_動易Cms教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

問題：升級到SiteWeaver6.5版本后，發(fā)現(xiàn)文章內(nèi)容頁的“文章來源”處帶上了鏈接，那么能不能讓{$CopyFrom}（顯示文章來源）這個標簽在解析的時候不要帶網(wǎng)址？

解決：可以的，修改Include\PowerEasy.Common.Content.asp中314行的Private Function GetCopyFromInfo(tmpCopyFrom, iChannelID)的相關(guān)代碼

原代碼如下：

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 = "本站原創(chuàng)" Then
GetCopyFromInfo = "本站原創(chuàng)"
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 = "本站原創(chuàng)" Then
GetCopyFromInfo = "本站原創(chuàng)"
Else
GetCopyFromInfo = tmpCopyFrom
End If
End Function

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

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

共2頁上一頁12下一頁
來源：模板無憂//所屬分類：動易Cms教程/更新時間：2008-02-26
相關(guān)動易Cms教程：