栏目导航
热点推荐
- ASP下批量删除数据的两种方法
- 关于二级域名共享cookies
- ASP错误代码大全
- ASP代码实现show.asp?id=26变成s
- ASP错误信息解决:IIS启用父路径
- 一些常用的正则表达式大全
- ASP超级链接和HTML函数正则表达
- ASP隐藏下载地址及防盗代码
- 最常用的正则表达式示例
- ASP程序数据库被挂马的处理方法
- ASP生成html的新方法
- 精通ASP错误提示大全
阅览排行
ASP分页和日期格式化为RFC822格式的办法
www.jz123.cn 2008-11-24 来源: 中国建站 袁袁整理 我要投递新闻
计算分页,嘿嘿一次搞定不用判断
以下为引用的内容:
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连接MSSQL的错误: 拒绝访问 下一篇:ASP实例:处理多关键词查询实例代码