asp 显示当明具体时间与日期

在程序中asp教程 日期是0为星期一，以次类推哦，下面我们来看看这款关于日间显示函数哦。

Response.write("今天是：")
Response.write(year(date()))
Response.write("年")
Response.write(month(date()))
Response.write("月")
Response.write(day(date()))
Response.write("日 星期")
Response.write(ad(weekday(date())))

Function ad(id)
 Select case(id)
 case 7:
 ad="六"
 case 6:
 ad="五"
 case 5:
 ad="四"
 case 4:
 ad="三"
 case 3:
 ad="二"
 case 2:
 ad="一"
  case 1:
 ad="日"
 End select 
End function

response.write("今天是"&ad(1))