新版本的。找到ks_cls/kesion.commoncls.asp

Public Function GetAutoDomain()
  Dim TempPath
  If Request.ServerVariables("SERVER_PORT") = "80" Then
   GetAutoDomain = Request.ServerVariables("SERVER_NAME")
  Else
   GetAutoDomain = Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT")
  End If
   If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then
      GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))
   End If
   GetAutoDomain = "http://" & GetAutoDomain
End Function

直接改成你的域名

如

Public Function GetAutoDomain()
   GetAutoDomain = "http://www.kesion.com"

End Function

再到后台保存一下就可以了。

早期版本应该是在文件ks_cls/kesion.publiccls.asp