<%
Function SenFe_Date(Content)
If IsDate(Content) = False Then Exit Function
Content = CDate(Content)
SenFe_Date = Right(Year(Content),4)&"-"& Right("0"&Month(Content),2)&"-"& Right("0"&Day(Content),2)
End Function
Function GetWeek(ThisDay)
If ThisDay<>"" And IsDate(ThisDay) Then
Dim CharWeek
CharWeek=Weekday(ThisDay)
Select Case CharWeek
Case 1
GetWeek="星期日"
Case 2
GetWeek="星期一"
Case 3
GetWeek="星期二"
Case 4
GetWeek="星期三"
Case 5
GetWeek="星期四"
Case 6
GetWeek="星期五"
Case 7
GetWeek="星期六"
End Select
End If
End Function
sj= Weekday(date)-1
'DataAdd("m",7-sj,date)
%>
<select name="date">
<%
for i=1 to 7
i1=(7+i)
i1=i1-sj
rq= SenFe_Date(DateAdd("d",i1,Date))
response.Write "<option value='"&rq&"'>"&rq &"_"&GetWeek(rq)&"</option>"
next
%>
</select>
