科讯系统后台网址域名自动获取带端口导致链接错误的解决办法
2024-07-09 22:57:16
供稿：网友
科讯系统后台网站设置里的 网站地址，会自动获取网站地址，但有时获取的地址会带端口号，比如：http://www.baidu.com:8011
所以网站所有的链接都带有端口号导致无法网页。
解决办法如下：
打开 ks_cls/kesion.commoncls.asp
‘**************************************************
‘函数名：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()
Dim TempPath
If Request.ServerVariables(“SERVER_PORT”) = “80″ Then
GetAutoDomain = Request.ServerVariables(“SERVER_NAME”)
Else
GetAutoDomain = Request.ServerVariables(“SERVER_NAME”)
End If
If Instr(UCASE(GetAutoDomain),”/W3SVC”)<>0 Then
GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,”/W3SVC”))
End If
GetAutoDomain = “http://” & GetAutoDomain
End Function
