<script language="VBScript">
Dim Tempstr2
Dim domain
domain="<%=domain%>"
function ReplaceUrl(byval content)
TempStr2=Replace(content,"<%=Domain&AdminDir1%>","")
TempStr2=Replace(TempStr2,"<%=Domain%>","{$GetInstallDir}")

TempStr2=Replace(TempStr2,"^^^","<%=Domain%>"}
ReplaceUrl=TempStr2
end function

用这个试看看，在编辑器输入^^^，看看能不能生成你的域名。

没办法，只有从写入数据库入手

KS.Article.asp 2172行后面加入

 ArticleContent = Request.Form("Content")

    dim domain
    domain = KS.GetDomain
    ArticleContent = Replace(ArticleContent,"^^^",""&Domain&"")

想输出本站域名的位置用^^^代替，写入的时候会用本地域名代替。测试有效，包括修改编辑。只是达到你的要求，不过这样修改总觉得不是很妥当。

ks_cls里面KS.EditorCls 125行

   <script language="VBScript">
     Dim Tempstr2
     Dim domain
     domain="<%=domain%>"
    function ReplaceUrl(byval content)
    TempStr2=Replace(content,"<%=Domain&AdminDir1%>","")
    TempStr2=Replace(TempStr2,"<%=Domain%>","{$GetInstallDir}")
    ReplaceUrl=TempStr2
    end function

会将domain替换，不过直接去掉这两行不是个好主意。