建站常识

Dim mydate ' 设置日期变量

mydate = Date() ' 或者根据自己的需求设置特定的日期值

' 使用DatePart函数获取日期对应的星期几（1表示星期天，2表示星期一...）

weekdayNum = DatePart("w", mydate)

If weekdayNum = 7 Then ' 若星期几等于7，则说明是周六

Response.Write "这是周六"

Else

Response.Write "这不是周六"

End If