账号通
    

账号  

密码  

3807

查看

5

回复
主题:[求助]官方请进关于kesionCMS使用SSL证书问题 [收藏主题] 转到:  
网络情缘js323 当前离线

140

主题

3

广播

3

粉丝
添加关注
级别:一年级

用户积分:426 分
登录次数:55 次
注册时间:2013/6/10
最后登录:2018/2/9
网络情缘js323 发表于:2017/11/29 19:56:14   | 只看该作者 查看该作者主题 楼主 
科汛在线考试系统(NET)

用SSL证书加密,程序后台自动获取的URL是http://url:443而不是https://url
使用SSL加密后栏目页无法生成,出现500错误。

请问如何解决使用https://  栏目生成问题???

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
esharp 当前离线

508

主题

14

广播

32

粉丝
添加关注
级别:五年级

用户积分:1419 分
登录次数:530 次
注册时间:2011/6/24
最后登录:2019/8/21
esharp 发表于:2017/12/5 14:10:04   | 只看该作者 查看该作者主题 沙发 
科汛在线网校系统
兄弟,官方很多地方都是 写在系统里,直接是:http,没有https的,需要改很多地方。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
taiyi123 当前离线

199

主题

10

广播

1

粉丝
添加关注
级别:一年级

用户积分:172 分
登录次数:72 次
注册时间:2013/6/4
最后登录:2018/8/2
taiyi123 发表于:2017/12/5 15:18:17   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
信阳网站建设 当前离线

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分别替换为如下代码:

  1. Public Function GetAutoDomain()
  2. Dim TempPath
  3. If Request.ServerVariables("SERVER_PORT") = "80" Or Request.ServerVariables("SERVER_PORT") = "443" Then
  4. GetAutoDomain = Request.ServerVariables("SERVER_NAME")
  5. Else
  6. GetAutoDomain = Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT")
  7. End If
  8. If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then
  9.    GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))
  10. End If
  11. If Request.ServerVariables("SERVER_PORT") = "443" Then
  12. GetAutoDomain = "https://" & GetAutoDomain
  13. Else
  14. GetAutoDomain = "http://" & GetAutoDomain
  15. End If
  16. End Function
  17. '取得当前完整URL
  18. Public Function GetCurrentURL()
  19. Dim Url
  20. Dim ServerPort,ServerName,ScriptName,QueryString
  21. ServerName = Request.ServerVariables("SERVER_NAME")
  22. ServerPort = Request.ServerVariables("SERVER_PORT")
  23. ScriptName = Request.ServerVariables("SCRIPT_NAME")
  24. QueryString = Request.ServerVariables("QUERY_STRING")
  25. If ServerPort = "443" Then
  26. Url="https://"&ServerName
  27. Else
  28. Url="http://"&ServerName
  29. End If
  30. If ServerPort <> "80" And ServerPort <> "443" Then Url = Url & ":" & ServerPort
  31. Url=Url&ScriptName
  32. If QueryString <>"" Then Url=Url&"?"& QueryString
  33. GetCurrentURL=Url
  34. End Function


 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
信阳网站建设 当前离线

2

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:4 分
登录次数:2 次
注册时间:2020/10/21
最后登录:2020/10/21
信阳网站建设 发表于:2020/10/21 14:32:09   | 只看该作者 查看该作者主题 报纸 
科汛智能建站系统
很久没写asp了,语法都忘记差不多了,感觉不像PHP那样写的自在,不过可以用嘿嘿
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
caoyming 当前离线

107

主题

1

广播

0

粉丝
添加关注
级别:一年级

用户积分:271 分
登录次数:159 次
注册时间:2010/4/11
最后登录:2022/9/2
caoyming 发表于:2021/7/19 12:31:30   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.28320秒 powered by KesionCMS 9.0