第一种方法:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
输出样式:2004-5-7 星期五
***********************************************************************************
第二种方法:
<%=FormatDateTime(date, vbLongDate)%><%
d = date()
response.write " "&WeekdayName(Weekday(d))
%>
输出样式:2004年5月7日 星期五
************************************************************************************************************
第三种方法:
第一步:把下面语句放在顶部.
<%
'日期函数
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&" "
select case dat
case 0
response.write "星期天"
case 1
response.write "星期一"
case 2
response.write "星期二"
case 3
response.write "星期三"
case 4
response.write "星期四"
case 5
response.write "星期五"
case 6
response.write "星期六"
end select
end sub
%>
/第二步:把下面一句加在要显示的地方即可
<%datetime%>
******************************************************************************************************************88
/产生随机函数1到10之间
<%
Randomize()
response.write Round(RND()*10)
%>