计算分页,嘿嘿一次搞定不用判断
以下为引用的内容: intNumPage = Abs(Int(-(intNumRecord/intPerpage))) |
以下为引用的内容: 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 |
关键词标签:格式,办法,化为,日期p
相关阅读
热门文章 Active Server Pages 错误 'ASP 0131'解决方
人气排行 ASP下标越界的解决方法ASP代码中如何屏蔽ip地址 禁止某IP段访问网站“文件共享锁定数溢出” 原因及解决方法无法写入数据库的解决方法如何用ASP来获取客户端真实IP的地址用Asp编程实现QQ的在线情况查询ASP常用函数列表ASP用FSO生成HTML简单实例+详解[原创]
查看所有0条评论>>