Foxtable(狐表)用户栏目专家坐堂 → 考试


  共有1834人关注过本帖树形打印复制链接

主题:考试

帅哥哟,离线,有人找我吗?
qinjh18935180888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1532 威望:0 精华:0 注册:2017/3/5 20:17:00
考试  发帖心情 Post By: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" 我在函数里怎么找不见?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/26 9:32:00 [只看该作者]

在实例提供的文件ReviewArea.foxhtm里定义的

 回到顶部
帅哥哟,离线,有人找我吗?
qinjh18935180888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1532 威望:0 精华:0 注册:2017/3/5 20:17:00
  发帖心情 Post By:2019/6/30 11:21:00 [只看该作者]

老师:这个“lsgviewbadge1" 找不见。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/30 12:15:00 [只看该作者]

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
qinjh18935180888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1532 威望:0 精华:0 注册:2017/3/5 20:17:00
  发帖心情 Post By: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这个表数据库里怎么找不见?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/1 10:06:00 [只看该作者]

v开头的名称都是视图

 回到顶部
帅哥哟,离线,有人找我吗?
qinjh18935180888
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:138 积分:1532 威望:0 精华:0 注册:2017/3/5 20:17:00
  发帖心情 Post By:2019/7/2 14:49:00 [只看该作者]

 

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

 回到顶部