计算分页，嘿嘿一次搞定不用判断
以下为引用的内容：
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