在/Admin/KS.Class.asp找到下面代码

If Action="ExtSub" Then
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.Addheader "Content-Type","text/html; charset=gb2312"
Call SubTreeList(KS.G("TN"))
Response.End()
End If

修改为：

If Action="ExtSub" Then
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.CharSet="gb2312"

Call SubTreeList(KS.G("TN"))
Response.End()
End If

自己解决了