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

ASP
用asp怎样编写文档搜索页面(5)
用asp怎样编写文档搜索页面(6)
ASP.NET: XML计数器第二版
ASP.NET: XML留言版第二版
不用图像组件的ASP图像计数器
用ASP实现文档资料管理
用ASP实现号码转换程序实例
如何用SAFileUp上传文件?
jmail4.1用pop3收信的例子
功能非常全面的日期处理函数
一个检查E文拼写错误的Code
简单的加密方法:XOR
ASP连接执行程序
编写“公平”的ASP图形计数器
跟我学做最强功能的网站统计
用asp.net写的论坛程序
用asp.net写的论坛程序--论坛主页
用asp.net写的论坛程序--浏览贴及回复
用asp.net写的论坛程序--上贴保存
利用CDONTS发送邮件的ASP函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 160 ::
收藏到网摘: 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