账号通
    

账号  

密码  

4810

查看

12

回复
主题:[分享]KesionCMS V8.0x论坛启用二级域名后登录时不显示qq快速登录的解决方法 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2011/11/24 15:55:51   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

原因:是由于系统采用server.mappath来读取api的配置文件,而如果论坛绑定到二级目录下,就读不到这个api配置文件了。





解决:打开ks_cls/clubfunction.asp



找到30行左右的代码



   Str=str & "<form method=""post"" autocomplete=""off"" id=""loginform"" action=""" & KS.GetDomain & "user/checkuserlogin.asp"">"

   If KS.ChkClng(KS.Setting(34))=1 Then Str=str & "<div class=""fastlg1"">" Else Str=str & "<div class=""fastlg"">"

   Dim  XslDoc:Set XslDoc = KS.InitialObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)

   If XslDoc.Load(server.MapPath("../api/api.config")) Then

      QQEnable=cbool(XslDoc.documentElement.selectSingleNode("rs:data/z:row").getAttribute("api_qqenable"))

   AlipayEnable=cbool(XslDoc.documentElement.selectSingleNode("rs:data/z:row").getAttribute("api_alipayenable"))

   If QQEnable Or AlipayEnable Then

     Str=Str & "<div class=""l"">"

  If QQEnable Then Str=Str & "<a target=""_blank"" href=""" & KS.GetDomain & "api/qq/redirect_to_login.asp""><img src=""" &KS.GetDomain & "api/qq/img/qq_login.png""/></a>"

  If AlipayEnable Then Str=Str & "<div style='margin-top:5px'><a target=""_blank"" href=""" & KS.GetDomain & "api/alipay/alipay_auth_authorize.asp""><img src=""" &KS.GetDomain & "api/alipay/alipay_button.gif""/></a></div>"

  If AlipayEnable=false Or QQEnable=false Then Str=Str & "<div style=""margin:3px"">只需一步,快速开始</div>"

  Str=Str & "</div>"

  End If

   End If

   Set XslDoc=Nothing



将上面的代码改成



   Str=str & "<form method=""post"" autocomplete=""off"" id=""loginform"" action=""" & KS.GetDomain & "user/checkuserlogin.asp"">"

   If KS.ChkClng(KS.Setting(34))=1 Then Str=str & "<div class=""fastlg1"">" Else Str=str & "<div class=""fastlg"">"

      Str=Str & "<div class=""l"">"

      Str=Str & "<a target=""_blank"" href=""" & KS.GetDomain & "api/qq/redirect_to_login.asp""><img src=""" &KS.GetDomain & "api/qq/img/qq_login.png""/></a>"

     Str=Str & "<div style='margin-top:5px'><a target=""_blank"" href=""" & KS.GetDomain & "api/alipay/alipay_auth_authorize.asp""><img src=""" &KS.GetDomain & "api/alipay/alipay_button.gif""/></a></div>"

     Str=Str & "<div style=""margin:3px"">只需一步,快速开始</div>"

    Str=Str & "</div>"



 
  支持(7) | 反对(7) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0