ASP获取GMT格式的时间(函数)

闯荡江湖 2008-08-07 07:35:15
【转载自】http://oncecode.cn/Html/Articles/381.htm

【原文如下】

摘要
在网页头Meta中添加Expires,就需要用到GMT格式的时间,以下为ASP获取GMT格式时间的函数
space line
详细内容

函数体如下:

<%
function getGMTTime(addDay) ´参数为往后推移天数
dim iyear,imonth,iday,iweekday
dim nowtime
if addDay then
nowtime = Dateadd("d",addDay,Date())
else
nowtime = Date()
end if

iyear = Year(nowtime)
imonth = Month(nowtime)
iday = Day(nowtime)
iweekday = Weekday(nowtime)

dim arrWeekday,arrMonth
arrWeekday = Array("Sun,","Mon,","Tue,","Wed,","Thu,","Fri,","Sat,")
arrMonth = Array("January","February","March","April","May","June","July","August","September"

,"October","November","December") ´注意将此处换行退格到上面一行
iweekday = arrWeekday(iweekday-1)
imonth = arrMonth(imonth-1)

getGMTTime = iweekday & " " & CStr(iday) & " " & CStr(imonth) & " " & CStr(iyear) & " 23:59 GMT"
end function
%>

调用方法:

1、获取当天的GMT格式时间:response.write(getGMTTime(0))

2、获取2天后的GMT格式时间:response.write(getGMTTime(2))

...全文
411 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
闯荡江湖 2008-08-08
  • 打赏
  • 举报
回复
上面输出的格式主要是用于放在页面头部的meta部分的expires用来控制缓存的时间格式
它的格式如下:

Sun, 10 August 2008 23:59 GMT

而且,通常只用于静态的HTML页面的
---------------------

楼上的几位朋友的回复,
也大大开阔了我的视野
:)
在此谢过了~
wtogether 2008-08-07
  • 打赏
  • 举报
回复
VBS没有FormatGTime,我的博客里有个
http://blog.csdn.net/wtogether/archive/2008/05/22/2469027.aspx
Anlige 2008-08-07
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 wtogether 的回复:]
楼上的是RFC 822协议里的时间吧,格林威治时间比中国时间晚8个小时,要格式成格林威治时间,需要减去8个小时,在JS里的Date对象的toGMTString()方法里可以看到,不过JS5.5里,toGMTString()最后附带的字符是UTC了
<script language="javascript">
alert(new Date().toGMTString());
</script>

而楼主的格式函数里,没有对时/分/秒进行格式,格林威治时间同本地时间的区别就是相差的小时数的区别,中国比格林威治时间早…
[/Quote]

呵呵~真没考虑到~

不过vbs有FormatGTime函数吗??
闯荡江湖 2008-08-07
  • 打赏
  • 举报
回复
:)

不错,不错
wtogether 2008-08-07
  • 打赏
  • 举报
回复
楼上的是RFC 822协议里的时间吧,格林威治时间比中国时间晚8个小时,要格式成格林威治时间,需要减去8个小时,在JS里的Date对象的toGMTString()方法里可以看到,不过JS5.5里,toGMTString()最后附带的字符是UTC了
<script language="javascript">
alert(new Date().toGMTString());
</script>

而楼主的格式函数里,没有对时/分/秒进行格式,格林威治时间同本地时间的区别就是相差的小时数的区别,中国比格林威治时间早8个小时,这个常识要知道

今天既然看到这里,就把FormatTime和FormatGTime函数作了下更新,GMT时间后附带的[GMT]字符放在格式字符串里,并加入了转义字符的支持,这样对GMT和UTC都可以格式了,例如:
Response.Write FormatGTime(Now(), "D, d M Y H:i:s \G\M\T")
Response.Write FormatGTime(Now(), "D, d M Y H:i:s \U\T\C")
Anlige 2008-08-07
  • 打赏
  • 举报
回复
hehe~wo呵呵~我自己也写过




Function GetGMT(dat)
dim y,m,d,h,mm,s,r
week=split("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
mon=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
y=year(dat)
m=mon(month(dat)-1)
d=day(dat):if d<10 then d="0"&d
h=hour(dat):if h<10 then h="0"&h
mm=minute(dat):if mm<10 then mm="0"&mm
s=second(dat):if s<10 then s="0"&s
w=week(weekday(dat)-1)
GetGMT=w&", "&d&" "&m&" "&y&" "&h&":"&mm&":"&s&" +0800"
End Function

wtogether 2008-08-07
  • 打赏
  • 举报
回复
http://blog.csdn.net/wtogether/archive/2008/05/22/2469027.aspx

Response.Write FormatGTime(Now(), "D, d-M-Y H:i:s")

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧