您说的应该是asp版本，打开ks_cls/kesion.commoncls.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

上面红色的删除