鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > cms安装教程 > 科汛cms > >

科讯系统后台网址域名自动获取带端口导致链接错误的解决办法

来源:互联网 作者:佚名 时间:2015-01-21 12:25
科讯系统后台网站设置里的 网站地址,会自动获取网站地址,但有时获取的地址会带端口号,比如:http://www.baidu.com:8011 所以网站所有的链接都带有端口号导致无法网页。 解决办法如下: 打开 ks_cls/kesion.commoncls.asp ********************************
科讯系统后台网站设置里的 网站地址,会自动获取网站地址,但有时获取的地址会带端口号,比如: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
网友评论
<