4506 查看 5 回复

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

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:网络情缘js323 性别:男 积分:426分 威望:297 帖子:140 精华:0 广播:3 粉丝:3 登录次数:55 次 注册时间:2013/6/10 13:43:23 最后登录:2018/2/9 16:41:25 网络情缘js323 当前离线 140 主题 3 广播 3 粉丝 级别:一年级 用户积分:426 分 登录次数:55 次 注册时间:2013/6/10 最后登录:2018/2/9	网络情缘js323 发表于：2017/11/29 19:56:14   | 只看该作者 查看该作者主题 楼主  做官网 就用科汛智能建站系统! 用SSL证书加密，程序后台自动获取的URL是http://url:443而不是https://url 使用SSL加密后栏目页无法生成，出现500错误。 请问如何解决使用https://  栏目生成问题？？？
	做新职业技能培训平台 就选#科汛网校
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:esharp 性别: 积分:1420分 威望:976 帖子:508 精华:1 广播:14 粉丝:32 登录次数:531 次 注册时间:2011/6/24 8:13:26 最后登录:2024/9/4 11:27:53 esharp 当前离线 508 主题 14 广播 32 粉丝 级别:五年级 用户积分:1420 分 登录次数:531 次 注册时间:2011/6/24 最后登录:2024/9/4	esharp 发表于：2017/12/5 14:10:04   | 只看该作者 查看该作者主题 沙发  做官网 就用科汛智能建站系统! 兄弟，官方很多地方都是 写在系统里，直接是：http，没有https的，需要改很多地方。
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:taiyi123 性别:男 积分:172分 威望:524 帖子:199 精华:0 广播:10 粉丝:1 登录次数:72 次 注册时间:2013/6/4 10:26:05 最后登录:2018/8/2 13:52:05 taiyi123 当前离线 199 主题 10 广播 1 粉丝 级别:一年级 用户积分:172 分 登录次数:72 次 注册时间:2013/6/4 最后登录:2018/8/2	taiyi123 发表于：2017/12/5 15:18:17   | 只看该作者 查看该作者主题 藤椅  一分钟快速开通线上知识店铺 不太懂的。   http://www.sty158.com/
	做官网 就用科汛智能建站系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:信阳网站建设 性别:男 积分:4分 威望:4 帖子:2 精华:0 广播:0 粉丝:0 登录次数:2 次 注册时间:2020/10/21 14:24:03 最后登录:2020/10/21 16:19:53 信阳网站建设 当前离线 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
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:信阳网站建设 性别:男 积分:4分 威望:4 帖子:2 精华:0 广播:0 粉丝:0 登录次数:2 次 注册时间:2020/10/21 14:24:03 最后登录:2020/10/21 16:19:53 信阳网站建设 当前离线 2 主题 0 广播 0 粉丝 级别:学前班 用户积分:4 分 登录次数:2 次 注册时间:2020/10/21 最后登录:2020/10/21	信阳网站建设 发表于：2020/10/21 14:32:09   | 只看该作者 查看该作者主题 报纸  做考试题库 就用#科汛在线考试系统! 很久没写asp了，语法都忘记差不多了，感觉不像PHP那样写的自在，不过可以用
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:caoyming 性别:男 积分:272分 威望:427 帖子:107 精华:0 广播:1 粉丝:0 登录次数:162 次 注册时间:2010/4/11 11:09:00 最后登录:2024/6/13 15:13:03 caoyming 当前离线 107 主题 1 广播 0 粉丝 级别:一年级 用户积分:272 分 登录次数:162 次 注册时间:2010/4/11 最后登录:2024/6/13	caoyming 发表于：2021/7/19 12:31:30   | 只看该作者 查看该作者主题 地板  做线上考试培训 就选#科汛网校 谢谢，可以用了。
	科汛商学院助您快速入门
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1