ASP分页和日期格式化为RFC822格式的办法
来源:互联网 责任编辑:栏目编辑 发表时间:2013-07-01 08:25 点击:次
计算分页,嘿嘿一次搞定不用判断
以下为引用的内容: intNumPage = Abs(Int(-(intNumRecord/intPerPage))) |
将日期格式化为RFC822格式,以前的方法麻烦哦,看这个简单的
以下为引用的内容: 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 |