計算分頁，嘿嘿一次搞定不用判斷
以下為引用的內容：
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