3个ASP转换函数：ASP时间转GMT格式，ASP时间转时间戳，ASP时间戳转时间

网络 2014/12/17 15:38:09

'**************************************
'功能：Asp转换时间为GMT(RFC822)格式时间函数
'RFC822标准是为“美国国防部高级研究计划署”制定的文本信息（邮件传输）格式标准。
'将2007-09-19 14:50:33这样的格式转换成了GMT时间Wes, 19 Sep 2007 14:50:33 +0800。
'**************************************
Function DateTimeToGMT(sDate)
Dim dWeek,dMonth,strZero,strZone
strZero="00"
strZone="+0800"
dWeek=Array("Sun","Mon","Tue","Wes","Thu","Fri","Sat")
dMonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
DateTimeToGMT = dWeek(WeekDay(sDate)-1)&", "&Right(strZero&Day(sDate),2)&" "&dMonth(Month(sDate)-1)&" "&Year(sDate)&" "&Right(strZero&Hour(sDate),2)&":"&Right(strZero&Minute(sDate),2)&":"&Right(strZero&Second(sDate),2)&" "&strZone
End Function


'ASP日期转换成 时间戳
'参数：日期字符，时差（时区，中国+8）
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) '调整时区 减去8小时
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
End Function


'ASP时间戳转换成 日期
'参数：时间戳，时差（时区，中国+8）
Function UnUnixTime(strTime, intTimeZone)
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
UnUnixTime = DateAdd("s", strTime, "1970-1-1 0:0:0")
UnUnixTime = DateAdd("h", intTimeZone, UnUnixTime) '调整时区 增加8小时
End Function

阅读(1132) 分享(0)

上一篇: JS判断大写键盘是否开启
下一篇: PHP 常见header 状态，301，302转向

◆ 怎么判断银行卡号格式是否正确？

◆ 接口限流算法总结

◆ asp.net中Eval()、Bind()、<%%>、<%=%>比较有什么区别

◆ ASP.NET 获取上个月当前月的1号和月尾

◆ MySQL 百万级分页优化（Mysql千万级分页）

◆ FORM提交表单,数据由gb2312传到utf-8 乱码的解决方案.

◆ 程序员"偷懒"给软件带来安全隐患

◆ 如何防止被人肉？防人肉宝典——平时上网应该注意什么？

◆ Python识别网站验证码