知足网ziz88.com
个人博客 电脑技巧 学习经验 优秀教程资源 软件素材模版
科讯系统后台网址域名自动获取带端口导致链接错误的解决办法
  经验文章>科汛CMS>浏览文章

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




科讯系统后台网站设置里的 网站地址,会自动获取网站地址,但有时获取的地址会带端口号,比如: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


编号:星羽

知足网 ZIZ88.com于2020年03月04日整理

加微信: 15604958501 QQ: 8233398 69元开通无限期会员


Copyright © 2020 - 2020 网站备案/许可证号:辽ICP备20001173号

本站所有内容来源于网络,如果内容侵犯您的权益请联系QQ 8233398 进行修 改处理