有没有自动判断几月几号是星期几程序

[supiori]

有没有自动判断几月几号是星期几程序

[若白师妹]

自己写个好了

[sxsgssgs]

写个最精简的代码：
<SCRIPT LANGUAGE="JavaScript">
var s = "2006/02/28";
alert("今天星期"+"天一二三四五六".charAt(new Date(s).getDay()));
</SCRIPT>

[若白师妹]

<script language=vbs>
str="2006-3-11"
msgbox (str & " "& weekdayname(weekday(str)) )
</script>

[sxsgssgs]

<%
y=weekday(cdate(y))
select case y
case 1
stext="星期日"
case 2
stext="星期一"
case 3
stext="星期二"
case 4
stext="星期三"
case 5
stext="星期四"
case 6
stext="星期五"
case 7
stext="星期六"
end select
stext="今天是："&stext
%>

[sxsgssgs]

<%
Dim MyDate, MyWeekDay
MyDate = date
MyWeekDay = Weekday(Cdate(MyDate))
response.write myweekday



%>

[xiaogu1234]

上面这么多了,呵呵
function xingqi(data)//data是几月几号的标准形式
select case weekday(data,2)
case 1 response.Write "星期一"
case 2 response.Write "星期二"
case 3 response.Write "星期三"
case 4 response.Write "星期四"
case 5 response.Write "星期五"
case 6 response.Write "星期六"
case 7 response.Write "星期日"
end select
end function '用于计算星期几

[xiaogu1234]

更正第一行function xingqi(data) 'data是几月几号的标准形式

[supiori]

这么简单，早知道就不问来

[尚和空四]

WeekdayName(weekday, abbreviate, firstdayofweek)

[尚和空四]

Weekday(date, [firstdayofweek])

[尚和空四]

WeekdayName(Weekday(date))