If InStr(F_C, "{$GetArticleOrigin}") <> 0 Then If Not IsNull(RS("Origin")) And Trim(RS("Origin")) <> "" Then F_C = Replace(F_C, "{$GetArticleOrigin}", KS.GetOrigin("来源:" & RS("Origin") & " ")) Else F_C = Replace(F_C, "{$GetArticleOrigin}", "") End If End If 就行了,也请版主或高手看看这样有什么问题没有?