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

ASP
获取字符中中文首字字符
系统分配随机密码
MusicGet 类
数据库记录的删除,delete好还是update好?
asp提高首页性能的一个技巧
研究动网得到的一些动网参数
在ASP中连接MySQL数据库,最好的通过ODBC方法
FSO文件对象介绍及常用函数
分享一段代码show.asp?id=26变成show/?26的形式
ASP+XML留言板介绍
忠网广告 系统 用到的几个函数
asp读取xml文件
把无限级分类生成数组
用ASP+FSO生成JS文件
ASP动态生成的javascript表单验证代码
在asp中通过getrows实现数据库记录分页的一段代码
asp错误的几种处理方式
asp数组使用(2)
asp中 select top 问题!~
批量复制数据

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


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