<%
Function GetD()
N=Now()
Y=Year(N)
MM=month(N)
D=day(N)
GetD=Y&"年"&MM&"月"&D&"日"
End Function
Function GetWeek()
select case Weekday(Date)
case "1"
GetWeek="星期日"
case "2"
GetWeek="星期一"
case "3"
GetWeek="星期二"
case "4"
GetWeek="星期三"
case "5"
GetWeek="星期四"
case "6"
GetWeek="星期五"
case "7"
GetWeek="星期六"
case else
GetWeek="星期日"
end select
End Function
%>
第十三届中国国际水泥技术及装备展览会
