账号通
    

账号  

密码  

1357

查看

2

回复
主题:9.5考试系统答题结束后点击完成答题,出题 [收藏主题]  
デ冰释~ 当前离线

5

主题

0

广播

0

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

用户积分:10 分
登录次数:9 次
注册时间:2014/2/10
最后登录:2014/3/1
デ冰释~ 发表于:2014/2/28 6:36:40   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

是word试卷

错误提示是

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 15]'

/mnkc/function.asp,行 15


这是第15行  If Not KS.IsNul(Config) and split(Config,"|")(15)="1" Then


具体代码是

function addscore(sjzf,byval score,byval scoreid,byval title)
  if KS.C("UserName")<>"" Then
   Dim Config:Config=KS.C_S(9,46)
   Config=Conn.Execute("select top 1 ThumbnailsConfig from KS_Channel Where ChannelID=9")(0)
   If Not KS.IsNul(Config) and split(Config,"|")(15)="1" Then
      Dim SItemArr:SItemArr=split(split(Config,"|")(16),"§")
   Dim I,k,Point,txtj
   K=0
   Point=0
   if score>0 and sjzf>0 then '得到成绩百分比
    score=ks.chkclng(score/sjzf *100)
   end if
   
   For I=0 To ubound(SItemArr)
  dim ssitem:ssitem=split(SItemArr(i)&"@","@")
     IF KS.ChkClng(Score)>KS.ChkClng(ssitem(0)) Then
   Point=ssitem(1)
   txtj=ssitem(2)
   Exit For
  End If

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
デ冰释~ 当前离线

5

主题

0

广播

0

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

用户积分:10 分
登录次数:9 次
注册时间:2014/2/10
最后登录:2014/3/1
デ冰释~ 发表于:2014/2/28 8:38:27   | 只看该作者 查看该作者主题 沙发 
科汛在线网校系统

我在数值上稍做了修改。以后的结果还不知道,但现在能用了。

还请专家指点...

分析个中原由 谢谢了



原问题为

是word试卷

错误提示是

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 15]'

/mnkc/function.asp,行 15



这是第15行  If Not KS.IsNul(Config) and split(Config,"|")(15)="1" Then



16行      Dim SItemArr:SItemArr=split(split(Config,"|")(16),"§")

/mnkc/function.asp修改如下:

    If Not KS.IsNul(Config) and split(Config,"|")(9)="1" Then

      Dim SItemArr:SItemArr=split(split(Config,"|")(16),"§")



此后在查看自己答案时



网页报错“错误”不能显示自己的答案

再修改 mnkc/exam/finishword.asp 的 629行



response.write  "<br><span style=""color:#006699; font-weight:bold"">"&zsjf(1)&"</span>"

修改为        

response.write  "<br><span style=""color:#006699; font-weight:bold"">"&zsjf(0)&"</span>"



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

1515

主题

3

广播

2

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

用户积分:6151 分
登录次数:170 次
注册时间:2008/12/28
最后登录:2020/9/8
cn2009 发表于:2014/2/28 19:53:26   | 只看该作者 查看该作者主题 藤椅 
做在线知识付费 选科汛云开店
这个版本额们木有。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行3.22266秒 powered by KesionCMS 9.0