asp中如何根据当天日期自动获取到当前周的其他日期? 100
asp中如何根据当天日期自动获取到当前周的其他日期?比如今天是周四,那么我需要的是本周的周一~周五的日期;因为我要制作一个每周食谱,肯定每天吃的都不一样,但是要能在后台修...
asp中如何根据当天日期自动获取到当前周的其他日期?
比如今天是周四,那么我需要的是本周的周一~周五的日期;
因为我要制作一个每周食谱,肯定每天吃的都不一样,但是要能在后台修改。前台呢只显示这周,从周一~周五的食谱记录。我就是这个怎么确定本周的周一~周五不会弄。
麻烦大侠们,把完整的asp代码写出来啊。谢谢啊。我还会加分的。 展开
比如今天是周四,那么我需要的是本周的周一~周五的日期;
因为我要制作一个每周食谱,肯定每天吃的都不一样,但是要能在后台修改。前台呢只显示这周,从周一~周五的食谱记录。我就是这个怎么确定本周的周一~周五不会弄。
麻烦大侠们,把完整的asp代码写出来啊。谢谢啊。我还会加分的。 展开
2个回答
展开全部
Response.Write Weeklist(Date())
Function Weeklist(TheDay)
Dim WeekNum
WeekNum=WeekDay(TheDay,2)
For i=1 To 7
If i<>1 Then Weeklist=Weeklist & "|"
Weeklist=Weeklist & ConDate(Date()-Weeknum+i)
Next
End Function
Function ConDate(TheDate)
ConDate=month(TheDate)& "月" & day(TheDate)& "日"
End Function
Function Weeklist(TheDay)
Dim WeekNum
WeekNum=WeekDay(TheDay,2)
For i=1 To 7
If i<>1 Then Weeklist=Weeklist & "|"
Weeklist=Weeklist & ConDate(Date()-Weeknum+i)
Next
End Function
Function ConDate(TheDate)
ConDate=month(TheDate)& "月" & day(TheDate)& "日"
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询