账号通
    

账号  

密码  

1238

查看

1

回复
主题:[分享]KesionCMS X1.0(UTF-8版本) 发送短信乱码导致接收不到的修改 [收藏主题]  
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2015/6/12 16:19:32   | 只看该作者 查看该作者主题 楼主 

问题如题


解决方法:


打开ks_cls/kesion.common.cls.asp


找到80行

'发送手机验证码,返回成功发送的条件
Function SendMobileMsg(Mobile,Content)
  session.CodePage=936
      Response.Charset="gb2312"

   If Setting(157)="0" Then SendMobileMsg=0 : Exit Function
   Dim PostUrl:PostUrl=Setting(150)
   Dim Sign:Sign=split(Setting(156)&"∮","∮")(0)
   If Not IsNul(Sign) Then Content=Content & Sign
   If IsNUL(PostUrl) Or IsNul(Setting(152)) Or IsNul(split(Setting(153)&"∮","∮")(0)) Then SendMobileMsg=0 : Exit Function
   PostUrl=Replace(PostUrl,"{$user}",Setting(152))
   dim passarr:passarr=split(Setting(153)&"∮","∮")
   dim pass:pass=passarr(0)
   dim passType:passType=passarr(1)
   if passType="1" Then
    pass=md5(pass,16)
   ElseIF PassType="2" Then
    pass=md5(pass,32)
   END iF
   Content=Replace(Content,"{$sitename}",Setting(0))
   Content=Replace(Content,"{$domain}",Setting(2))




请增加上面红色的代码即可完美解决!!!

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

211

主题

2

广播

1

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

用户积分:685 分
登录次数:63 次
注册时间:2013/5/12
最后登录:2017/9/15
q1763633868 发表于:2015/6/12 21:12:37   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07813秒 powered by KesionCMS 9.0