4.x版本．可以通过修改ks_cls/ks.publiccls.asp

找到getautodomain函数

'**************************************************
 '函数名：GetAutoDoMain()
 '作  用：取得当前服务器IP 如：http://127.0.0.1
 '参  数：无
 '**************************************************
 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

直接改成

'**************************************************
 '函数名：GetAutoDoMain()
 '作  用：取得当前服务器IP 如：http://127.0.0.1
 '参  数：无
 '**************************************************
 Public Function GetAutoDomain()
     GetAutoDomain = "你的域名" 
 End Function