当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP分页和日期格式化为RFC822格式的办法

ASP
用ASP实现自动建站.实现虚拟二级目录
ASP关于动态数据显示页面得锚点
adodb.stream对象的方法/属性
在ASP/ASP.NET 中处理客户端数字证书
用ASP实现汉字转拼音的功能
在PPC上实现编译ASP
简单快捷实现ASP在线发邮件功能
javascript在ASP中实现掩码文本框
ASP写的自动生成SELECT表单的函数
全面了解Cookie的传递流程、编程实现及安全问题
ASP生成XBM图可用作验证码
改进的ASP备份SQL Server数据库
关于SELECT的无限级联(省|市|县|乡|村|...)
XML技术上传文件
使用ASP实现文件上载(上传)的各种方法
输出带日期格式的随机数.asp
一个高效的数据分页的存储过程
用ASP实现长文章用分页符来分页显示
一个改进的ASP生成SQL 命令字符串的类
一点ASP问题、差错和个人心得

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 234 ::
收藏到网摘: n/a

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


 
将日期格式化为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