动易CMS（SW系列），用户发文时在选择“来源信息”时默认只有“本站原创”一项。为了便于选择，增加默认“会员转发”一项（使结果类似于“作者”信息后的：佚名、未知）。

具体修改办法如下：

[hide]

【修改第1步】
在语言包Language\Gb2312.xml文件中查找：<DefCopyFrom>本站原创</DefCopyFrom>
在其下方增加一行：<UnknowCopyFrom>会员转发</UnknowCopyFrom>

【修改第2步】
在Include\PowerEasy.Common.Manage.asp中查找：

Public Function GetCopyFromList(FilePrefix, ChannelID)

下有：Dim strDefCopyFrom

将其更改为：Dim strDefCopyFrom, strUnknowCopyFrom

在 strDefCopyFrom = XmlText("BaseText", "DefCopyFrom", "本站原创") 下增加：
strUnknowCopyFrom = XmlText("BaseText", "UnknowCopyFrom", "会员转发")

在 strCopyFromList = strCopyFromList & "【<font color='green' & strDefCopyFrom & "'"" style=""cursor:hand;"">" & strDefCopyFrom & "</font>】"下增加：
strCopyFromList = strCopyFromList & "【<font color='green' & strUnknowCopyFrom & "'"" style=""cursor:hand;"">" & strUnknowCopyFrom & "</font>】"

修改 If CopyFrom <> "" And CopyFrom <> strDefCopyFrom Then 为
If CopyFrom <> "" And CopyFrom <> strDefCopyFrom And CopyFrom <> strUnknowCopyFrom Then

修改后完整的 Public Function GetCopyFromList(FilePrefix, ChannelID)

Public Function GetCopyFromList(FilePrefix, ChannelID)
    Dim CopyFrom, strCopyFromList
    CopyFrom = Trim(Session("CopyFrom"))

     Dim strDefCopyFrom, strUnknowCopyFrom
    strDefCopyFrom = XmlText("BaseText", "DefCopyFrom", "本站原创")
    strUnknowCopyFrom = XmlText("BaseText", "UnknowCopyFrom", "会员转发")

    strCopyFromList = "<font color='blue'><="
    strCopyFromList = strCopyFromList & "【<font color='green' & strDefCopyFrom & "'"" style=""cursor:hand;"">" & strDefCopyFrom & "</font>】"
    strCopyFromList = strCopyFromList & "【<font color='green' & strUnknowCopyFrom & "'"" style=""cursor:hand;"">" & strUnknowCopyFrom & "</font>】"

    If CopyFrom <> "" And CopyFrom <> strDefCopyFrom And CopyFrom <> strUnknowCopyFrom Then
        strCopyFromList = strCopyFromList & "【<font color='green' & FilterJS(Replace(CopyFrom, "'", "")) & "'"" style=""cursor:hand;"">" & FilterJS(CopyFrom) & "</font>】"
    End If
    strCopyFromList = strCopyFromList & "【<font color='green' & FilePrefix & "_SourceList.asp?TypeSelect=CopyFromList&ChannelID=" & ChannelID & "', 'CopyFromList', 'width=600,height=450,resizable=0,scrollbars=yes');"" style=""cursor:hand;"">更多</font>】"
    strCopyFromList = strCopyFromList & "</font>"
    GetCopyFromList = strCopyFromList
End Function