ASP的个性化的时间格式化调用函数 例如显示为YY天前

<%
Function FormatDate(myDate)
    Dim dIff
    dIff=DateDIff("s",myDate,now())

    If dIff<=59 Then
        Response.Write(dIff & "秒前")
    End If
    If dIff>=60 And dIff<3600 Then
        Response.Write(DateDIff("n",myDate,now()) & "分钟前")
    End If
    If dIff>=3600 And dIff<86400 Then
        Response.Write(DateDIff("h",myDate,now()) & "小时前")
    End If
    If dIff>=86400 And dIff<604800 Then
        Response.Write(DateDIff("d",myDate,now()) & "天前")
    End If
    If dIff>=604800 And dIff<2592000 Then
        Response.Write(DateDIff("ww",myDate,now()) & "星期前")
    End If
    If dIff>=2592000 And dIff<31536000 Then
        Response.Write(DateDIff("m",myDate,now()) & "个月前")
    End If
    If dIff>=31536000 Then
        Response.Write(DateDIff("yyyy",myDate,now()) & "年前")
    End If
End Function

Call FormatDate("2009-09-08 17:09:56")
%>