繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现本周的一周时间列表的代码
- ASP
- 出现404页面错误的自动发送邮件的代码
- ASP视频教程:建立显示已经添加的新闻页面
- ASP视频教程:使用Eweb编辑器丰富新闻内容的格式
- ASP视频教程:建立修改新闻页面
- ASP视频教程:制作删除新闻的功能
- ASP视频教程:建立产品类别表和添加类别页面
- ASP视频教程:建立管理产品的页面
- ASP视频教程:制作其它栏目管理页面
- ASP实例教程:隐藏下载地址和防盗
- ASP教程:虚拟目录下不能上传图片
- ASP视频教程:制作网站前台顶部导航页面
- ASP视频教程:制作前台导航菜单
- ASP视频教程:对前台导航菜单进行调整美化
- ASP视频教程:制作新闻中心显示页面
- ASP视频教程:制作新闻详细内容显示页面
- ASP视频教程:制作前台产品显示页面（按产品类别显示）
- ASP视频教程:制作前台产品显示页面(横向重复显示图片)
- ASP视频教程:制作在线订购页面
- ASP视频教程:制作关于我们和联系我们页面
- ASP视频教程:后台功能的一些完善
ASP 中的 asp实现本周的一周时间列表的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 188 ::
收藏到网摘: n/a
原理也相对简单，就是利用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
评论 (0) All
