今天是星期幾－喵星人的星球

今天是星期幾

今天重新學習ASP，哈哈
我還是菜鳥(明明就是程式白痴...)

今天是
<%
Week = DatePart("w" , Date())
If Week = 1 Then '星期日
Response.Write ""
Else
If Week = 7 Then '星期六
Response.Write ""
Else
Response.Write ""
End If
End If '書上沒這一行
Response.Write WeekdayName(Week)
Response.Write ""
%>

如果以書上的範例，會出現錯誤
Microsoft VBScript 編譯階段錯誤 (0x800A03F6)
必須要有 'End
所以我加上了End If

判斷的部份就我所理解的...
假如week=1，就印出
如果不是就接著
假如week=7，就印出
如果不是，則印出

我改寫了一下
看起來很像是傳說中的巢狀If敘述
這樣程式就很正常(還沒發現啥不對勁的地方XD)

禮拜天為星期的起頭所以是1
禮拜六是星期的最後一天所以是7(不然週末叫假的啊！)
其餘的禮拜一跟禮拜五為2~5

今天是
<%
Week = DatePart("w" , Date())
If Week = 1 Then '星期日
If Week = 7 Then '星期六
Response.Write ""
End If
Response.Write ""
Else
Response.Write ""
End If
Response.Write WeekdayName(Week)
Response.Write ""
%>

2007/12/24號新增case寫法

<%
Week = DatePart("w" , Date())
Select Case week
case 1
response.write ""
case 7
response.write ""
case 2,3,4,5,6
response.write ""
end Select

Response.Write WeekdayName(Week)
Response.Write ""
%>

這樣子更清楚了吧^_^