账号通
    

账号  

密码  

3032

查看

4

回复
主题:V8.0考试系统sql版本后台随机组卷前台无法加载的修改 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

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

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

问题:KesionCMS v8.0考试系统使用sql版本的用户,当后台管理员随机组卷时,前台会员无法考试,始终显示正在加载中

解决方法:

打开mnkc/exam/GetRndAjax.asp

并找到以下代码

If DataBaseType=1 Then

  Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")

  Set Cmd.ActiveConnection=conn

  Cmd.CommandText="KS_SJRndAjax"

  Cmd.CommandType=4

  CMD.Prepared = true

  Cmd.Parameters.Append cmd.CreateParameter("@tmids",202,1,8000,tmids)

  Set RS=Cmd.Execute

  Set Cmd=Nothing


Else

sqlstr="select * from ks_sjtk where id in(" & tmids & ") order by id"

rs.open sqlstr,conn,1,1

End If



我们将上面红色的改成以下代码即可



     Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")

    Set Cmd.ActiveConnection=conn

    Cmd.CommandText="KS_TSql"

    Cmd.CommandType=4

    CMD.Prepared = true  

    Cmd.Parameters.Append cmd.CreateParameter("@SQL",202,1,8000,"select * from ks_sjtk where id in(" & tmids & ") order by id")

    Set Rs=Cmd.Execute

    Set Cmd=Nothing

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