date() 获取日期，格式：2004-2-28
time() 获取时间，格式：22:24:59
now() 获取日期和时间 格式： 2005-5-2 22:37:30

d=date()
获取年份：year(d)
获取月份：month(d)
获取日子：day(d)
获取星期几：weekday(d)

t=time()
获取小时：hour(t)
获取分钟：minute(t)
获取秒数：second(t)

========================================

日期相加函数：

DateAdd(interval, number, date)
可用该函数从日期中添加或减去指定时间间隔。

参数说明：

interval－运算的基准间隔
number－加上多少，可为负数
date－基准日期

下面是interval的可选值，注意加上引号：

设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒

举例：
1、计算明天：
tomorrow=DateAdd("d",1,date())
2、2012年12月1日的前一天：
preday=DateAdd("d",-1,"2012-12-1")

更详细用法请搜索。

========================================
日期间隔函数：

DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
计算两个日期之间相差的间隔。
例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。如果date1比date2 晚，则返回负数。

参数说明：

interval－同DateAdd（）函数
Date1,date2 －进行运算的两个日期

可选参数：

firstdayofweek－ 指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
当计算两个日期相差几周时（时间间隔符号 “w” 或 “ww”），该参数会影响结果。具体请搜索。
firstweekofyear－指定一年的第一周怎么确定，如果未予指定，则以包含 1 月 1 日的星期为第一周。具体请搜索。

========================================
其他函数：
DateSerial(year, month, day) －将数值换算为日期变量，返回值类型同date()函数。例如，如果day=35，则自动计算到下个月。再例如，DateSerial(1990 - 10, 8 - 2, 1 - 1) 则计算1990 年8月1日的十年零两个月又一天 之前的日期，也就是1980年5月31日。
DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) －返回指定时间部分的数值。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。参数同上面。
DateValue(date)－将各种日期格式串转化为日期变量，返回值类型同date()函数。例如，除了 12/30/1991 和 12/30/91 之外，DateValue 也识别 December 30, 1991 和 Dec 30, 1991。
TimeValue(time)－将各种时间格式串转化为时间变量。原理同DateValue。
TimeSerial(hour, minute, second) －将数值转化为时间变量，返回值类型和time()函数相同。原理同DateSerial。
Timer()－午夜开始到现在经过的秒数。

以下是使用例子：
now() 获取当前系统日期和时间,asp输出可以这样写：<%=now()%>
Year(now()) 获取年份， ASP输出：<%=Year(now())%>
Month(now()) 获取当前月份，ASP输出：<%=Month(now())%>
day(now()) 获取当天数，ASP输出：<%=day(now())%>
Minute(now()) 获取分钟数，ASP输出：<%=Minute(now())%>
Second(now()) 获取秒钟数，ASP输出：<%=Second(now())%>
date() 获取当前系统日期，格式为：2004-2-28
time() 获取当前系统时间，格式为：22:24:59
DateAdd函数(时间向后)，DateAdd("h",13,Now())其中"h"代表小时，13代表加上13小时，now()是现在的日期时间，也可以"h"可以改变：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒

用时间间隔的方法减去一定的天数，代码如下：

Function Date1()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo)
  response.write(NewTime)
End Function

使用加负天数的方法减去一定的天数，代码如下：

Public Function Date2()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.AddDays(-7)
  Dim s as string = NewTime
  return s
End Function

返回日期名称字符串，代码如下：

Function Date3()
  Dim NewTime as DateTime = now.addDays(-7)
  response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime))
End Function


Function Date4()
  Dim NewTime as DateTime
  NewTime = now.addDays(-7)
  return NewTime.ToString()
End Function

使用长时间模式，代码如下：

Public Function Date5()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toLongTimeString()
End Function

使用短时间模式，代码如下：

Public Function Date6()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toShortTimeString()
End Function

使用长日期模式，代码如下：

Public Function Date7()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toLongDateString()
End Function

使用短日起模式，代码如下：

Public Function Date8()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toShortDatestring()
End Function

格式化日期函数
格式化成通用格式，代码如下：

Function Date9()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 0)
End Function

格式化成长日期格式，代码如下：

Function Date10()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 1)
End Function

格式化成短日期格式，代码如下：

Function Date11()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 2)
End Function

格式化成长时间格式，代码如下：

Function Date12()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 3)
End Function

格式化成短时间格式，代码如下：

Function Date13()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 4)
End Function

单独显示时间的年，月，日等部分
显示日期，代码如下：

Function Date14()
  Dim NewTime as DateTime = now.addDays(-7)
  dim s as string
  s = (System.String.Format("{0:dddd}",NewTime))
  Return s
End Function

返回日期的一周中的第几天，代码如下：

Function Date15()
  Dim MyDate as DateTime
  Dim MyWeekDay as Integer
  MyDate = Now.AddDays(-5)
  MyWeekDay = Weekday(MyDate)
  return MyWeekDay
End Function

返回月份值，代码如下：

Function Date16()
  Dim MyDate as DateTime
  Dim MyMonth as Integer
  MyDate = Now.AddDays(-5)
  MyMonth = Month(MyDate)
  return MyMonth
End Function

返回一个格式化后的字符串，代码如下：

Function Date17()
  Dim MyDate as String
  MyDate = Format(Now(), "yyyy")
  return MyDate
End Function

DateDiff 函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置
interval 参数的设定值如下：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

firstdayofweek 参数的设定值如下：
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常数 值 描述
vbUseSystem 0 用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。
为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。
如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。

<%
'作用：格式化时间(显示)
'参数：一个是时间，一个是格式化的参数
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"yyyymmddhhmmss"
' 7:"yyyymmddhhmm"
' 8:"mm月dd日"
' 9:"dd日"
Function FormatTime(s_Time, n_Flag)
  Dim y, m, d, h, mi, s
  FormatTime = ""
  If IsDate(s_Time) = False Then Exit Function
  y = cstr(year(s_Time))
  m = cstr(month(s_Time))
  If len(m) = 1 Then m = "0" & m
  d = cstr(day(s_Time))
  If len(d) = 1 Then d = "0" & d
  h = cstr(hour(s_Time))
  If len(h) = 1 Then h = "0" & h
  mi = cstr(minute(s_Time))
  If len(mi) = 1 Then mi = "0" & mi
  s = cstr(second(s_Time))
  If len(s) = 1 Then s = "0" & s
  Select Case n_Flag
  Case 1
    'yyyy-mm-dd hh:mm:ss
    FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
  Case 2
    'yyyy-mm-dd
    FormatTime = y & "-" & m & "-" & d
  Case 3
    'hh:mm:ss
    FormatTime = h & ":" & mi & ":" & s
  Case 4
    'yyyy年mm月dd日
    FormatTime = y & "年" & m & "月" & d & "日"
  case 5
    'yyyymmdd
    FormatTime= y&m&d
  case 6
    'yyyymmddhhmmss
    FormatTime=y&m&d&h&mi&s
  case 7
    'yyyymmddhhmm
    FormatTime=y&m&d&h&mi
  case 8
    FormatTime=m & "月" & d & "日"
  case 9
    FormatTime=d & "日"
  case else
    FormatTime = s_Time
  End Select
End Function


response.write FormatTime(rsnews("news_date"),8)
%>