要实现这样的提示,ASP代码怎么写???

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:23:20
在一个页面中如何实现这样的提示:
比如
星期一访问则提示: 后天是星期三 2009-xx-xx
星期二访问则提示: 明天是星期三 2009-xx-xx
星期三访问则提示: 今天是星期三 2009-xx-xx
星期四访问则提示: 下周星期三 2009-xx-xx
星期五访问则提示: 下周星期三 2009-xx-xx
星期六访问则提示: 下周星期三 2009-xx-xx
星期日访问则提示: 下周星期三 2009-xx-xx

<%
Select Case Weekday(date)
Case 1
tishi="下周星期三 "&dateAdd("d",date,3)
Case 2
tishi="后天是星期三 "&dateAdd("d",date,2)
Case 3
tishi="明天是星期三 "&dateAdd("d",date,1)
Case 4
tishi="今天是星期三 "&Date
Case 5
tishi="下周星期三 "&DateAdd("d",date,6)
Case 6
tishi="下周星期三 "&DateAdd("d",date,5)
Case else
tishi="下周星期三 "&DateAdd("d",date,4)
End Select
Response.write tishi
%>

<%
dim theDate,iCount
for iCount=1 to 7
if WeekDay(DateAdd("d",iCount,Date))=4 then
theDate=DateAdd("d",iCount,Date)
end if
next

select Case WeekDay(Date)
Case 1%>下周星期三 <%response.Write(FormatDateTime(theDate,1))
Case 2%>后天是星期三 <%response.Write(Fo