<html xmlns="
http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>VbScript显示本周日期</title>
<script language=vbscript>
Function Result(i)
if WeekDay(Date)=1 then
daynum=7
else
daynum=WeekDay(Date)
end if
bDate = DateAdd("d",i-daynum,Date)
document.write(bDate)
end function
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<p>
<script language=vbscript>
for i=1 to 7
Result(i)
document.write("<br/>")
next
</script>
</p>
</div>
</form>
</body>
</html>
<head runat="server">
<title>VbScript显示本周日期</title>
<script language=vbscript>
Function Result(i)
if WeekDay(Date)=1 then
daynum=7
else
daynum=WeekDay(Date)
end if
bDate = DateAdd("d",i-daynum,Date)
document.write(bDate)
end function
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<p>
<script language=vbscript>
for i=1 to 7
Result(i)
document.write("<br/>")
next
</script>
</p>
</div>
</form>
</body>
</html>