科訊系統后臺網址域名自動獲取帶端口導致鏈接錯誤的解決辦法
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
