[ASP] 将日期格式化为 RFC822 格式

Code:

Function DateToRFC822(byVal dtaVal)
 Dim strCurLocale : strCurLocale = GetLocale()
 SetLocale("en-gb")
 dtaVal = CDate(dtaVal)
 DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&", "& _
       Right("0"&Day(dtaVal),2)&" "& _
       MonthName(Month(dtaVal),True)&" "& _
       Year(dtaVal)&" "& _
       Right("0"&Hour(dtaVal),2)&":"& _
       Right("0"&Minute(dtaVal),2)&":"& _
       Right("0"&Second(dtaVal),2)&" "& _
       " +0800"
 SetLocale(strCurLocale)
End Function

来源：http://www.i170.com/user/Loveyuki/Article_19015 (loveyuki)