以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于InsertHTML标签内容的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142773)

--  作者:ap9709130
--  发布时间:2019/11/5 21:03:00
--  关于InsertHTML标签内容的问题
 老师

   我的代码如下:
 
    Dim wb As New WeUI
     wb.InsertHTML("<h3 align=\'left\' style=\'margin-top:5px\'>当前时间:" & Date.now & "</h3>")
     wb.AppendHTML("<script src=\'/hito/time.js\'></script>")
     e.WriteString(wb.Build)

     js 代码是在网上看到的,想用动态的标签来显示时间:

    function startTime(){
        var today = new Date();
        var h = today.getHours();
        var m = today.getMinutes();
        var s = today.getSeconds();
        m = checkTime(m);
        s = checkTime(s);
        var h1= document.getElementsByTagName("h3")[0];
        h1.innerHTML=h+":"+m+":"+s;
        setInterval(function(){
            startTime()
        },1000)
    }
    function checkTime(i){
        if(i<10){
            i = "0"+i;
        }
        return i
    }
我试了一下,不会报错,但时间也不会变。要怎么改才能做到标签的时候和时钟一样动起来?

--  作者:有点蓝
--  发布时间:2019/11/5 21:18:00
--  
  Dim wb As New WeUI
     wb.InsertHTML("<h3 align=\'left\' style=\'margin-top:5px\'>当前时间:" & Date.now & "</h3>")
     wb.AppendHTML("<script src=\'/hito/time.js\'></script>",True)
wb.InsertHTML("<script>startTime()</script>")
     e.WriteString(wb.Build)

--  作者:ap9709130
--  发布时间:2019/11/5 21:49:00
--  
 蓝老师

  用了你的代码,页面什么也没有。标签都不见了。

--  作者:ap9709130
--  发布时间:2019/11/5 21:52:00
--  
有点蓝

  我弄错了。页面还是一样,时间不会动

--  作者:有点蓝
--  发布时间:2019/11/5 22:19:00
--  
我测试没有问题。按f12看浏览器提示什么错误