ไฟล์ fDate.asp
<%
'This function generat a MMM DD YYYY format
Function fDate(d)
fDate = Left(MonthName(Month(FormatDateTime(d,2))),3) & "." & Day(FormatDateTime(d,2)) & "." & Year(FormatDateTime(d,2))
End Function
Function fTime(t)
Dim str
Dim localTimeZone 'Your local time
localTimeZone = Request.cookies("timezone")
if localTimeZone = "" Then
localTimeZone = -4 'Default
End If
t = DateAdd("H",localTimeZone-serverTimeZone,t)
if Hour(FormatDateTime(t,4)) > 12 then
str = " pm"
else
str = " am"
end if
fTime = FormatDateTime(t,4) & str
End Function
%>
Load balance : Server 01
