您当前的位置是:首页-ASP教程

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

【发表于】:2010/4/20 13:42:00  已被访问:95次
计算分页,嘿嘿一次搞定不用判断 
以下为引用的内容: 
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  

ASP分页和日期格式化为RFC822格式的办法
 
上下篇: asp函数转换xml中的实体字符[转义符] ASP防止同时登陆的问题

最新推荐信息