Dim mydate ' 设置日期变量mydate = Date() ' 或者根据自己的需求设置特定的日期值' 使用DatePart函数获取日期对应的星期几（1表示星期天，2表示星期一...）weekdayNum = DatePart("w", mydate)

Dim mydate ' 设置日期变量

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

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

weekdayNum = DatePart("w", mydate)

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

Response.Write "这是周六"

Else

Response.Write "这不是周六"

End If

上一篇：ASP SQL删除分类的同时删除对应的所有记录 下一篇：如何处理网站百度搜索结果点击后跳转到其他网页