海南世紀云圖網絡科技有限公司
西部數碼（海南）鉆石分銷合作伙伴
地址：海口市勛亭路154號金鹿花園二期20棟B1706室
銷售熱線：400-822-8458
服務熱線：0898-32183600
傳 真：0898-65228458
發表于：2011-07-04 00:00:00來源：SOUAB.COM人氣：3524
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Asp人性化時間函數(分鐘/小時/天/月前)</title>
</head>
<body>
<%
function ShowDate(Dates)
diff=DateDiff("s",Dates,now())
if diff<=59 then
response.Write(diff)
response.Write("秒前")
end if
if diff>=60 and diff<3600 then
response.Write(DateDiff("n",Dates,now()))
response.Write("分鐘前")
end if
if diff>=3600 and diff<86400 then
response.Write(DateDiff("h",Dates,now()))
response.Write("小時前")
end if
if diff>=86400 and diff<604800 then
response.Write(DateDiff("d",Dates,now()))
response.Write("日前")
end if
if diff>=604800 and diff<2592000 then
response.Write(DateDiff("ww",Dates,now()))
response.Write("星期前")
end if
if diff>=2592000 and diff<31536000 then
response.Write(DateDiff("m",Dates,now()))
response.Write("個月前")
end if
if diff>=31536000 then
response.Write(DateDiff("yyyy",Dates,now()))
response.Write("年前")
end if
end function
ShowDate(""&date()-3&"")
Response.write("<BR><BR>")
ShowDate("2010-5-10")
Response.write("<BR><BR>")
ShowDate(""&now()&"")
%>
</body>
</html>
西部數碼（海南）鉆石分銷合作伙伴
地址：海口市勛亭路154號金鹿花園二期20棟B1706室
銷售熱線：400-822-8458
服務熱線：0898-32183600
傳 真：0898-65228458