ASP分页和日期格式化为RFC822格式的办法分享

发布时间：2023-07-18 14:22:37 所属栏目：Asp教程来源：

导读：计算分页，嘿嘿一次搞定不用判断

以下为引用的内容：

intNumPage = Abs(Int(-(intNumRecord/intPerPage)))

将日期格式化为RFC822格式，以前的方法麻烦哦，看这个简单的

以下为引用的内容：

Func

计算分页，嘿嘿一次搞定不用判断

以下为引用的内容：

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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!