海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com
【字体设置:大 中 小】
这里为大家提供两种代码,一种是直接输出的方式,一种是调用代码的方式:
<%
Dim MyDate,MyWeekDay
MyDate=date()
n = Weekday(MyDate)
select case n
case "1" response.write"今天是星期天"
case "2" response.write"今天是星期一"
case "3" response.write"今天是星期二"
case "4" response.write"今天是星期三"
case "5" response.write"今天是星期四"
case "6" response.write"今天是星期五"
case "7" response.write"今天是星期六"
end select
%>
上面的代码是直接输出星期几的,使用起来不是非常的方便,下面再提供一个代码给大家:
<%
function getweek()
week=WeekDay(date())-1
select case week
case 1 backfile="星期一"
case 2 backfile="星期二"
case 3 backfile="星期三"
case 4 backfile="星期四"
case 5 backfile="星期五"
case 6 backfile="星期六"
case 0 backfile="星期天"
end select
getweek=backfile
end function
%>
在需要调用的地方用:<%=getweek()%>方式即可获取星期几了,非常的方便!
发表评论 - 不要忘了输入验证码哦!