2010ASP初级到精通第173集

瑶瑶

如果遇到视频不能下载或者视频质量的问题，欢迎大家反馈给我们，举报一次奖予10鸿鹄币。

举报地址：http://bbs.hh010.com/thread-23653-1-1.html

游客，如果您要查看本帖隐藏内容请回复

wt198554

一叶知秋

1111111111

skytwen

<script language = "vbs">
        dim data,weekdayname
        data=date()
        weekdaynum=datepart("w",data)
        select case weekdaynum
                case 1
                        weekdayname="星期日"
                case 2
                        weekdayname="星期一"
                case 3
                        weekdayname="星期二"
                case 4
                        weekdayname="星期三"
                case 5
                        weekdayname="星期四"
                case 6
                        weekdayname="星期六"
                case 7
                        weekdayname="星期日"
        end select
       
        msgbox "今天是: "&weekdayname

</script>

ddjz