全站使用https的方法-玄门社区-风水自学网

<<返回列表下一个上一个收藏打印本文复制本文地址

285 查看	0 回复

主题：全站使用https的方法 [收藏主题]

lan988 当前离线

288 主题	210 广播	31 粉丝

添加关注

级别:管理员

用户积分:182 分
登录次数:1101 次
注册时间:2007-3-30
最后登录:2024-11-27
论坛高手

论坛高手

创始人

当前不在线

lan988 发表于：2024-7-21 15:06:04 | 显示全部帖子查看该作者主题楼主

现在https越来越流行，更多的网站开始全站使用ssl加密传输，但kesioncms似乎在这一点上没有做过多的考虑；本人在架设网站时就发现完全没法使用cms，比如我的网站，因为系统获取的url是http://www.s88.com:443，无论你怎么更改成https://www.s88.com都没有用，而我网站的初衷又不想开启网站http://访问，所有的访问都需要经过https，那么，这就需要改代码了。

以下基于KesionCMS X2/X1更改：

找到文件：KS_Cls/Kesion.CommonCls.asp，约724行

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

改成：

Public Function GetAutoDomain()

Dim TempPath

GetAutoDomain = Request.ServerVariables("SERVER_NAME")

If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then

GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))

End If

If Request.ServerVariables("SERVER_PORT") = "80" Then

GetAutoDomain = "http://" & GetAutoDomain

elseif Request.ServerVariables("SERVER_PORT") = "443" Then

GetAutoDomain = "https://" & GetAutoDomain

else

GetAutoDomain = "http://" & GetAutoDomain & ":" & Request.ServerVariables("SERVER_PORT")

end if

End Function

专业从事风水，命理，择日，取名等。

本站是提供个人知识管理的网络存储空间，所有非本站原创内容均由用户发布，不代表本站观点。如发现有害或侵权内容，请点击这里举报

反对(0)

回到顶部

回到底部

底部

＜下一主题 | 上一主题＞

风水自学网有限公司 © 2016-2025 版权所有页面执行0.06738秒 powered by KesionCMS 9.0