[ASP] [ActiveX] [DHTML] [Java Script] [Java applets] [VB Script] [VB/Web]

該項程式係摘轉自「HTML輕鬆學」網站 http://netcity3.web.hinet.net/UserData/n7136/

程式碼範例：

<script language="vbscript">
' 日期顯示面板
' http://netcity.hinet.net/n7136

Dim m, str
m = Array("一月", "二月", "三月", "四月", _
"五月", "六月", "七月", "八月", _
"九月", "十月", "十一月", "十二月")

str = "<table border=0 cellspacing=1 width=200 bgcolor=000000>" & _
"<tr><td align=center bgcolor=94a9d6>"& m(Month(Now)-1) &"</td>" & _
"<td align=center bgcolor=bccff0>"& Day(Now) &"日</td>" & _
"<td align=center bgcolor=e7e7e7 id=a></td></tr>" & _
"</table>"
Document.Write str

MyClock

Sub MyClock()
a.InnerHtml = Time
s = SetTimeout("MyClock()", 1000)
End Sub

</script>
http://sunchaoyi.xxking.com/ 電子豬腦