伊缘网 首页
 设为首页    加入收藏    用户帮助    联系我们 
网站首页 新闻动态 技术文章 Flash整站 精彩网文 资源下载 视频教程
网上商城 Flash动漫 网页特效 酷站欣赏 BBS论坛 在线工具 留言本站
  F-CMS Flash CMS   CXT Flash Cms   SXW Flash CMS   EXW Flash Cms   
  您的位置: 伊缘网 >> 网络学堂 >> 建站技术 >> ASP 编程
 阅读文章

ASP中格式化时间的函数

  文章作者:佚名来源:网络转摘浏览次数:4699字体:
 阅读权限:游客身份阅读花费:0 E币添加时间:2006-12-20 上午 03:04:18提交会员:esing
皮具制造生产企业,专注时尚包包
提示:登陆本站会员系统后,网站系统将不显示任何广告!如果您还不是本站会员请注册本站会员,谢谢您对本站的关注!
<%
' ============================================
' 格式化时间(显示)
' 参数:n_Flag
'    1:"yyyy-mm-dd hh:mm:ss"
'    2:"yyyy-mm-dd"
'    3:"hh:mm:ss"
'    4:"yyyy年mm月dd日"
'    5:"yyyymmdd"
'    6:"mm-dd"
' ============================================
Function Format_Time(s_Time, n_Flag)
    Dim y, m, d, h, mi, s
    Format_Time = ""
    If IsDate(s_Time) = False Then Exit Function
    y = cstr(year(s_Time))
    m = cstr(month(s_Time))
    If len(m) = 1 Then m = "0" & m
    d = cstr(day(s_Time))
    If len(d) = 1 Then d = "0" & d
    h = cstr(hour(s_Time))
    If len(h) = 1 Then h = "0" & h
    mi = cstr(minute(s_Time))
    If len(mi) = 1 Then mi = "0" & mi
    s = cstr(second(s_Time))
    If len(s) = 1 Then s = "0" & s
    Select Case n_Flag
    Case 1
        ' yyyy-mm-dd hh:mm:ss
        Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
    Case 2
        ' yyyy-mm-dd
        Format_Time = y & "-" & m & "-" & d
    Case 3
        ' hh:mm:ss
        Format_Time = h & ":" & mi & ":" & s
    Case 4
        ' yyyy年mm月dd日
        Format_Time = y & "年" & m & "月" & d & "日"
    Case 5
        ' yyyymmdd
        Format_Time = y & m & d
    case 6
        'mm-dd
        Format_Time = m & "-" & d
    case 7
        'hh:mm:ss dd-mm-yyyy
        Format_Time = h & ":" & mi & ":" & s& " " & d & "-" & m & "-" & y 
    End Select
End Function
dim shijian
shijian=Format_Time(Now(),7)
response.write "當前時間爲"&Cstr(shijian)
%>

  Tags:  ASP  
·上篇文章:仿腾讯在网页中加演示FLASH广告
·下篇文章:用非常规手段有效删除怪文件
复制 】 【 打印
 相关文章
·百度资料: ASP中格式化时间的函数
·asp.net 上传图片+自动生成缩略图+图片水印功能 2010-6-13 下午 05:28:41
·动手写个小组件(组件入门)_ASP 2010-5-23 上午 09:02:24
·ASP无组件上传错误 "80004005"解决方法 2010-4-26 下午 03:48:08
·ASP生成UTF-8文件实例 2010-1-8 上午 12:26:34
·在IE8下无组件上传错误"800a0005"的解决方法 2009-6-25 下午 06:27:51
特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们尽快予以更正,谢谢。
 相关评论
【文章评论已关闭】
伊缘网