Dim mydate ' 設置日期變量
mydate = Date() ' 或者根據自己的(de)需求設置特定的(de)日期值
' 使用(yòng)DatePart函數獲取日期對(duì)應的(de)星期幾(1表示星期天,2表示星期一...)
weekdayNum = DatePart("w", mydate)
If weekdayNum = 7 Then ' 若星期幾等于7,則說明(míng)是周六
Response.Write "這(zhè)是周六"
Else
Response.Write "這(zhè)不是周六"
End If