如何用asp输出日期和星期

 第一种方法:
<%
    d = date()
 response.write d&"&nbsp;&nbsp;&nbsp;&nbsp;"&WeekdayName(Weekday(d))
    %>
输出样式:2004-5-7    星期五
***********************************************************************************
第二种方法:
<%=FormatDateTime(date, vbLongDate)%><%
    d = date()
 response.write "&nbsp;&nbsp;&nbsp;&nbsp;"&WeekdayName(Weekday(d))
    %>
输出样式:2004年5月7日    星期五
************************************************************************************************************
第三种方法:
第一步:把下面语句放在顶部.
<%
'日期函数
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&"&nbsp;"
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)
    %>