爱问知识人 爱问教育 医院库

请帮忙检查这段VBScript的错误

首页

请帮忙检查这段VBScript的错误

嗯,很简单的。

<html>
<head>
<title>Hello!</title>
<style>
</style>
<Script type="text/VBScript" defer>
  Sub Timer()
    Dim tim,yea,mon,dat,wee,hou,min,sec,ap,t
    tim=Now()
    yea=Year(tim)
    mon=Month(tim)
    dat=Day(tim)
    wee=Weekday(tim)
    hou=Hour(tim)
    min=Minute(tim)
    sec=Second(tim)
    ap="AM"
    t="时钟"

    Select Case wee
      Case 0:wee="星期日"
      Case 1:wee="星期一"
      Case 2:wee="星期二"
      Case 3:wee="星期三"
      Case 4:wee="星期四"
      Case 5:wee="星期五"
      Case 6:wee="星期六"
    End Select

    If hou<10 then hou="0"+hou
    If min<10 then min="0"+min
    If sec<10 then sec="0"+sec
    If hou>11 then ap="PM"

    t=yea+"年"+mon+"月"+dat+"日 "+wee+"  "+hou+":"+min+":"+sec+" "+ap
     tElementById("layer0").innerText=t
     tTimeout "Timer()",1000
  End Sub

  Sub window_onload()
    Timer()
  End Sub
</Script>
</head>
<body bgcolor="#00FFEE">
<div id="layer0"></div>
</body>
</html>

在给t赋值的那行出问题。
如何解决?谢谢。

提交回答

全部答案

    2018-03-30 09:32:33
  •  T= Format(Now, "yyyy年mm月dd日h小时m分钟s秒am/pm") 就这样就可以达到你要的结果了!

    B***

    2018-03-30 09:32:33

  • 2018-03-30 06:32:33
  • 建议不要用vbscript,除了微软的浏览器,其他的浏览器对vbscript的支持都很不好。
    欢迎访问我的论坛:
     
    期待您的支持:)

    y***

    2018-03-30 06:32:33

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):