到文件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
那个红色的干掉