asp成功实现本周的一周时间列表的代码
发布时间:2023-05-30 14:42:31 所属栏目:教程 来源:
导读:原理也相对简单,就是利用date函数获取日期,然后通过固定的字符串数组进行替换。
复制代码代码如下:
td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一
复制代码代码如下:
td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一
原理也相对简单,就是利用date函数获取日期,然后通过固定的字符串数组进行替换。 复制代码代码如下: td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday(td)+1+x=td then '这个判断是要让当前日期显示红色,没什么特别的价值.. response.write "<font color=red>周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"</font><br>" else response.write "周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"<br>" end if next (编辑:聊城站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
站长推荐