各位大虾帮个忙,解答一下问题!

来源:百度知道 编辑:UC知道 时间:2024/05/17 22:03:18
写出今天是星期几的vbscript代码!要完整地!

Dim Q
Q=Weekday(Date)
Select Case Q
Case 1
Q="周日"
Case 2
Q="周一"
Case 3
Q="周二"
Case 4
Q="周三"
Case 5
Q="周四"
Case 6
Q="周五"
Case 7
Q="周六"
End select
Msgbox Q

<!--将以下代码加入HTML的<Body></Body>之间-->
<script language="JavaScript">
<!---
today=new Date();
var hours = today.getHours();
var minutes = today.getMinutes();
var seconds = today.getSeconds();
var timeValue = "<FONT COLOR=black>" + ((hours >12) ? hours -12 :hours); timeValue += ((minutes < 10) ? "<BLINK><FONT COLOR=black>:</FONT></BLINK>0" : "<BLINK><FONT COLOR=black>:</FONT></BLINK>") + minutes+"</FONT></FONT>";
timeValue += (hours >= 12) ? "<FONT COLOR=b