当前位置：
|
主题：[分享]KesionCMS全站使用https的方法 [收藏主题] | 转到： |
 现在https越来越流行，更多的网站开始全站使用ssl加密传输，但kesioncms似乎在这一点上没有做过多的考虑；本人在架设网站时就发现完全没法使用cms，比如我的网站，因为系统获取的url是http://www.sithing.com:443，无论你怎么更改成https://www.sithing.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 本文来源：https://www.sithing.com/archives/84 |
|
 支持(0) |  反对(0)
 顶端  底部
|
![电子邮件:[ poemail.l@126.Com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
![QQ号码:[ 6779222 ]](http://bbs.kesion.com/club/images/qq.gif){kind=small}
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
 mltx13601343590 发表于：2019/8/29 9:31:36 | 只看该作者 查看该作者主题
9楼 |
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
| ＜上一主题 | 下一主题 ＞ |