显示： 年 月 日 【星期】

Question

<script language="JavaScript">
<!-- 
function  visitor() 
{ 
 var Jsay; 
 var Jdayr; 
 var  Jtoday= new Date(); 
 var  Jyear= Jtoday.getYear(); Jmonth=Jtoday.getMonth(); 
      Jday= Jtoday.getDay();  Jdate=Jtoday.getDate(); 
      Jhrs= Jtoday.getHours(); Jmin=Jtoday.getMinutes(); 
      Jsec=Jtoday.getSeconds(); 
document.write("<font color=red>"); 
document.write('\t'+"<font color=white>"+"</font>"); 
document.write("<font color=black>"+"</font>"); 
document.write('<font color=black>'+'</font>'+Jyear+"<font color=black>"+"年"+"</font>" ); 
document.write((Jmonth+1)); 
document.write("<font color=black>"+"月"+"</font>"+Jdate+"<font color=black>"+"日"+"</font>");        
if (Jday==1) 
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"一"+"</font>"); 
else if (Jday==2)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"二"+"</font>"); 
else if (Jday==3)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"三"+"</font>"); 
else if (Jday==4)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"四"+"</font>"); 
else if (Jday==5)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"五"+"</font>"); 
else if (Jday==6)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"六"+"</font>"); 
else if (Jday==7)  
 document.write("<font color=black>"+"星期"+"</font>"+"<font color=red>"+"日"+"</font>"); 
} 
visitor(); 
// --> 
</script>
测试通过

Answer 1

例：<script language="vbs">
<!--
  Function  getweeks()
    Dim strDate,strWeek,strYear,strMonth,DDate
    Dim i,j
    strDate=document.all.Ty.value     If IsDate(strDate) Then
         strDate = Cdate(strDate)
         strYear = Cstr(Year(strDate))
         strMonth = Cstr(Month(strDate))
         Select Case Weekday(strDate)
           Case 1
             strWeek = "星期日"
           Case 2
             strWeek = "星期一"
           Case 3
             strWeek = "星期二"
           Case 4
             strWeek = "星期三"
           Case 5
             strWeek = "星期四"
           Case 6
             strWeek = "星期五"
           Case 7
             strWeek = "星期六"
         End Select       For i = 1 To 31
         DDate = Cdate(strYear & "-" & strMonth & "-" & Cstr(i))
         If Weekday(DDate) = Weekday(strDate) Then
           j = j + 1
           If Cdate(DDate) = strDate Then
             alert(Cstr(strDate) & "是" & strYear & "年" & strMonth & " 月的第" & Cstr(j) & "个" & strWeek)
             Exit For
           End If
         End If
       Next     Else
       alert("请输入日期型数据！")
     End If
  End Function
  -->
</script>
Date:<input name=Ty maxlength=10>
<input type=button name=B1 value=check onclick="getweeks ()">-----------------------------------------Weekday 函数
请参阅
Date 函数 | Day 函数 | Month 函数 | Now 函数 | Year 函数
要求
版本 1
返回代表一星期中某天的整数。Weekday(date, [firstdayofweek])
参数
date 
可以代表日期的任意表达式。如果 date 参数中包含 Null，则返回 Null。 
Firstdayofweek 
指定星期中第一天的常数。如果省略，默认使用 vbSunday。 
设置
firstdayofweek 参数有如下设置：常数 值 描述 
vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 返回值
Weekday 函数返回如下值：常数 值 描述 
vbSundayDayOfWeek 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 说明
下面例子利用 Weekday 函数得到指定日期为星期几：Dim MyDate, MyWeekDay
MyDate = #October 19, 1962#   ' 分派日期。
MyWeekDay = Weekday(MyDate)   ' 由于 MyWeekDay 包含 6,MyDate 代表星期五。

Answer 2

谢谢 zltostem(尘寞) VBS不是太懂！：）