账号通
    

账号  

密码  

2474

查看

4

回复
主题:[分享]KesionCMS V8.0x utf-8版本禁止中文名注册无效的修正 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2012/2/1 10:17:00   | 只看该作者 查看该作者主题 楼主 
科汛在线考试系统(NET)

打开

ks_cls/kesion.commoncls.asp



找到如下代码



  1. '判断有没有中文
  2. function HasChinese(str)
  3.   HasChinese = false
  4.   dim i
  5.   for i=1 to Len(str)
  6.   if Asc(Mid(str,i,1)) < 0 then
  7.    HasChinese = true :exit for
  8.   end if
  9.   next
  10. end function




替换为



  1. '判断有没有中文
  2. Function HasChinese(Content)
  3.      Dim regEx, Matches, Match
  4.      Set regEx = New RegExp
  5.      regEx.Pattern="[\u4e00-\u9fa5]+"
  6.      regEx.IgnoreCase = True
  7.      regEx.Global = True
  8.      Set Matches = regEx.Execute(Content)
  9.      If Matches.count > 0 Then
  10.        HasChinese=true
  11.      Else
  12.        HasChinese=false
  13.      end if
  14. End Function


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

51

主题

0

广播

0

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

用户积分:26 分
登录次数:3 次
注册时间:2012/1/9
最后登录:2012/2/1
cnsmo 发表于:2012/2/1 10:19:00   | 只看该作者 查看该作者主题 沙发 
这个很不错,找了好久了额
 
  支持(2) | 反对(2) 回到顶部顶端 回到底部底部
1006298681 当前离线

1438

主题

0

广播

2

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

用户积分:3011 分
登录次数:654 次
注册时间:2010/6/28
最后登录:2020/10/30
1006298681 发表于:2012/2/1 10:38:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(1) | 反对(1) 回到顶部顶端 回到底部底部
zgliaoning258 当前离线

36

主题

0

广播

0

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

用户积分:35 分
登录次数:6 次
注册时间:2012/1/31
最后登录:2012/2/12
zgliaoning258 发表于:2012/2/1 12:09:00   | 只看该作者 查看该作者主题 板凳 
做在线知识付费 选科汛云开店
顶楼主,学习了,收藏起来
 
  支持(1) | 反对(1) 回到顶部顶端 回到底部底部
lwti0 当前离线

279

主题

0

广播

0

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

用户积分:368 分
登录次数:61 次
注册时间:2011/6/16
最后登录:2012/9/3
lwti0 发表于:2012/2/1 14:04:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(1) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.14844秒 powered by KesionCMS 9.0