显示某日期所在星期的所有日期asp代码
作者：亮亮 来源：亮亮博客 发布时间：2008-06-01 16:05:00
标签：日期,星期,时间
<％
dim week_ymd(8)
'测出可以手动设定日期,比如this_ymd=#2008-04-12#
this_ymd=date()
'设置周显示模式为：周一开始，周日结束。
i=weekday(this_ymd,vbMonday)
'计算出该周周一的日期
if i=1 then
monday_sign=0
else
monday_sign=1-i
end if
monday_ymd=dateadd("d",monday_sign,this_ymd)
'循环得出该周的所有日期。
j=1
do while (7-j)>=0
week_ymd(j)=dateadd("d",j-1,monday_ymd)
j=j+1
loop
％>
显示该周的所有日期:<br>
<％ for j=1 to 7％>
周<％=j％>:<％=week_ymd(j)％><br>
<％ next ％>
也许您看了题目不是很清楚这代码做什么用，为此本站测试了一下（2008年6月1号）
屏幕显示：
显示该周的所有日期:
周1:2008-5-26
周2:2008-5-27
周3:2008-5-28
周4:2008-5-29
周5:2008-5-30
周6:2008-5-31
周7:2008-6-1
0
投稿猜你喜欢
- MaxDB和MySQL是独立的数据库管理服务器。系统间的协同性是可能的，通过相应的方式，系统能够彼此交换数据。要想在MaxDB和MySQL之
- 问题1：使用.net2005自带的SQL-Express连接不上。解决方法：1.网络防火墙阻止数据库连接；2.默认SQL-Express没有
感谢大家对《 CSS Sprites 样式生成工具 》的喜爱，综合了1.x版本时大家所提出来的意见和建议，2.0版本主要的改变有下面几点：修- 代码如下:Select * from T_Employee select FName,FAge from T_Employee select
- 因客户需求，要把数据库里的索引编号做成五位长度的，且能自动累加编号，我只会在SQL中使用Identity自动编号：Create Table
- 对于SQL的Join，在学习起来可能是比较乱的。我们知道，SQL的Join语法有很多inner的，有outer的，有left的，有时候，对于
- 在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚
- 问题：连续或者单个窗体，如何打印当前显示的记录？当前窗体还有对应的子窗体，也要一起打印出来我在一个窗体里有一个单号,大子窗体里有几组数据,我
- 学习目的： 学习ADO.NET用法，并如何用DataRearder读取数据 今天练习数据库的最基本用法，如何打开数据库。首先在网站设置文件w
- 由于笔者最近在做一个跨数据库操作的测试，开始做IBatisNet （IBatis.DataMapper.1.6.2/IBatis.DataA
- 本文列出了一些asp编程种可能会用到的正则表达式例子，大家可以方便的调用！如果您对asp种的正则表达式不是很了解可以看看这篇文章《ASP中R
- Truncate是SQL中的一个删除数据表内容的语句，用法是：TRUNCATE TABLE [Table Name]。下面是对Truncat
- 1、首先停止正在运行的MySQL进程 Linux下,运行 killall -TERM mysqld Windows下，如果写成服务的 可以运
- 摘要：随着应用领域的不断拓展和多媒体技术, 人们发现关系数据库的许多限制和不足，因而数据库技术进入了“后关系数据库时代”。文件数据库由此应运
- 内容摘要：Cookies的值比ASP其他集合（例如Form和ServerVariables）的值要复杂得多。Cookie是一小块由浏览器存贮
- 在许多用SQL Server实现的新的企业系统设计中，系统设计师需要在给数据结构和管理应用程序逻辑的定位上做出具有关键性意义的决定。SQL
- 本文详细解说了MySQL Order By Rand()效率优化的方案，并给出了优化的思路过程，是篇不可多得的MySQL Order By
- 之前在豆瓣上听到有友邻在抱怨卓越的配送速度慢得跟蜗牛一样，超过配送时间期限几天还没送到，当时不太相信，因为此前在卓越网上购买的物品基本上是在
- 你知道SQL Server这么庞大的企业级数据库服务器产品是如何build出来的吗?这有些相关的数据：每个build 的大小在300GB左右
- 过去一段时间人们似乎又非常热衷于探讨网络文档的印刷格式，涌现了很多与之相关的技术与理论资料，其中相当重要的一个领域就是关于印刷中字号和行高的
