官方请进关于kesionCMS使用SSL证书问题-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4507 查看	5 回复

主题：[求助]官方请进关于kesionCMS使用SSL证书问题 [收藏主题]

转到：

信阳网站建设当前离线

2 主题	0 广播	0 粉丝

级别:学前班

用户积分:4 分
登录次数:2 次
注册时间:2020/10/21
最后登录:2020/10/21

信阳网站建设发表于：2020/10/21 14:29:40 | 显示全部帖子查看该作者主题楼主

打开文件KS_Cls/Kesion.CommonCls.asp，搜索”GetAutoDomain“大约在574行，将函数GetAutoDomain和GetCurrentURL分别替换为如下代码：

Public Function GetAutoDomain()
Dim TempPath
If Request.ServerVariables("SERVER_PORT") = "80" Or Request.ServerVariables("SERVER_PORT") = "443" 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
If Request.ServerVariables("SERVER_PORT") = "443" Then
GetAutoDomain = "https://" & GetAutoDomain
Else
GetAutoDomain = "http://" & GetAutoDomain
End If
End Function
'取得当前完整URL
Public Function GetCurrentURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
If ServerPort = "443" Then
Url="https://"&ServerName
Else
Url="http://"&ServerName
End If
If ServerPort <> "80" And ServerPort <> "443" Then Url = Url & ":" & ServerPort
Url=Url&ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetCurrentURL=Url
End Function