显示发布时间到现在多久了

'-----------显示发布时间到现在多久了----------
function showdate(strdate)
m=datediff("n",strdate,now())
if m<60 then
msg=m&"分钟前"
elseif m>=60 and m<1440 then
msg=int(m/60)&"小时前"
elseif m>=1440 and m<43200 then
msg=int(int(m/60)/24)&"天前"
elseif m>=43200 and m<518400 then
msg=int(int(int(m/60)/24)/30)&"个月前"
elseif m>=518400 and m<1036800 then
msg="1年以前"
elseif m>=1036800 and m<1555200 then
msg="2年以前"
elseif m>=1555200 then
msg="3年以前"
end if
'response.Write msg
showdate=msg
end function
'call showdate(dateadd("yyyy",-5,now))