以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  考试  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136991)
--  作者：qinjh18935180888
--  发布时间：2019/6/26 7:50:00
--  考试
老师： 您提供的考试系统，在Text.js 文件中

  function viewold(id) {
 var result = sendAjaxText(id,"getoldtest.htm","",false);
 if(result){
  var mydata = eval(\'(\' + result + \')\');
  if (mydata.error == "OK"){
   document.getElementById("divreviewarea").innerHTML = mydata.foxhtm;
   var selseqelement = document.getElementById("hideviewselseq");
   var newel = document.getElementById("lsgviewbadge1");
   selseqelement.value = \'1|\' + newel.getAttribute(\'class\');
   newel.setAttribute("class","weui-badge-Blue");
   hide(\'page1\');
   hide(\'page2\');
   show(\'page3\');
   var meCanvas2 = document.getElementById("meCanvas2");
   showRatingStars(meCanvas2, mydata.Level, 5, 12, style);
   
  }
  else{
   if(mydata.error != "New"){
    showDialog(\'dlgbox\',\'温馨提示\',mydata.error);
   }
   hide(\'page1\');
   hide(\'page3\');
   show(\'page2\');
  }
 }
}

上面标红的内容，也就是ID 为："hideviewselseq"，"lsgviewbadge1" 我在函数里怎么找不见？
--  作者：有点蓝
--  发布时间：2019/6/26 9:32:00
--  
在实例提供的文件ReviewArea.foxhtm里定义的
--  作者：qinjh18935180888
--  发布时间：2019/6/30 11:21:00
--  
老师：这个“lsgviewbadge1" 找不见。
--  作者：有点甜
--  发布时间：2019/6/30 12:15:00
--  

 

这个是你的网页的id号【hideviewselseq】，请在你的网页那里找 id="hideviewselseq" 的元素。

 
--  作者：qinjh18935180888
--  发布时间：2019/7/1 10:00:00
--  

  If FileSys.FileExists(ProjectPath & "ReviewArea.foxhtm")  Then
                    Dim testid As String = drtest("TestID")
                    Dim htm As String = FileSys.ReadAllText(ProjectPath & "ReviewArea.foxhtm")
                    Dim display As String = IIF(qt = 2,"none","block")
                    htm = htm.Replace("【显示错题】",display)
                    htm = htm.Replace("【单号】",Format(drtest("TestDate"),"MM-dd") & " | " & testid  & " ").Replace("【题数】","1/" & drtest("QuestionQty")) \'替换单号位置的内容
                    sql = CExp("sele  ct [Seq],[IsCorrect] from vAnswerList where TestID=\'{0}\'",testid)
                    dt = Functions.Execute("Cmd_GetDataTable","Q",sql)

 

 

老师：vAnswerList这个表数据库里怎么找不见？
--  作者：有点蓝
--  发布时间：2019/7/1 10:06:00
--  
v开头的名称都是视图
--  作者：qinjh18935180888
--  发布时间：2019/7/2 14:49:00
--  

 

[此贴子已经被作者于2019/7/2 15:21:33编辑过]