网络编程
位置:首页>> 网络编程>> Asp编程>> ASP分页和日期格式化为RFC822格式的办法

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

 来源:网页教学网转载 发布时间:2008-11-21 15:46:00 

标签:

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


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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com