利用UNIX時間戳來計算ASP的在線時間

時間 2019-12-02

標籤利用 unix 時間戳計算 asp 在線時間欄目 Unix 简体版

原文原文鏈接

<%@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>無標題文檔</title>
</head>
<%Function ToUnixTime(strTime, intTimeZone)
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
ToUnixTime = DateDiff("s","1970-01-01 00:00:00", ToUnixTime)
End Function%>html

<%dim mm1
mm1=ToUnixTime("2016-09-18 16:30:00",+8)ui

dim mm2
mm2=ToUnixTime(now(),+8)
%>
<%=mm1%><br><%=mm2%>
<br>
<%=mm1-mm2%>
<body>
</body>
</html>xml