是word试卷

错误提示是

/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

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

还请专家指点...

分析个中原由 谢谢了

原问题为

是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>"