快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP实现连续显示两周的时间和星期

<% xztime=date
if weekday(xztime)=1 then xztime=DateAdd("d", -6, xztime)
if weekday(xztime)=2 then xztime=xztime
if weekday(xztime)=3 then xztime=DateAdd("d", -1, xztime)
if weekday(xztime)=4 then xztime=DateAdd("d", -2, xztime)
if weekday(xztime)=5 then xztime=DateAdd("d", -3, xztime)
if weekday(xztime)=6 then xztime=DateAdd("d", -4, xztime)
if weekday(xztime)=7 then xztime=DateAdd("d", -5, xztime)

for j=1 to 14
id= weekday(xztime)
select case id
case 2 dd="星期一"
case 3 dd="星期二"
case 4 dd="星期三"
case 5 dd="星期四"
case 6 dd="星期五"
case 7 dd="星期六"
case else dd="星期日"
end select
response.Write(year(xztime)&"年"&month(xztime)&"月"&day(xztime)&"日" &dd&"<br>")
xztime= DateAdd("d", 1, xztime)
next
%>
返回类别: 教程
上一教程: 一个异常好用的发送邮件的组件
下一教程: 全面了解COOKIE的传递流程、编程实现及安全问题

您可以阅读与"ASP实现连续显示两周的时间和星期"相关的教程:
· ASP中实现分页显示的七种武器
· 使用ASP与JAVASCRIPT配合实现多个复选框数据关联显示
· ASP实现在WEB中显示电子表格数据(四)创建文件选择列表
· ASP实现在WEB中显示电子表格数据(三)创建数据表列表和名字范围
· 在ASP中轻松实现记录集分页显示
    微笑服务 优质保证 索取样品