请帮忙检查这段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赋值的那行出问题。 如何解决?谢谢。
T= Format(Now, "yyyy年mm月dd日h小时m分钟s秒am/pm") 就这样就可以达到你要的结果了!
建议不要用vbscript,除了微软的浏览器,其他的浏览器对vbscript的支持都很不好。 欢迎访问我的论坛: 期待您的支持:)
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>