在asp中使用format的问题

ASP中实现VB格式化日期

最新推荐文章于 2019-08-07 14:44:37 发布

原创最新推荐文章于 2019-08-07 14:44:37 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function #windows #vb #dll #iis

开发语言专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种在ASP环境中模拟VB中的Format函数的方法，通过使用MSSTDFMT.DLL来格式化日期和时间。文章提供了具体的VBScript实现代码，并展示了如何在未安装IIS的Windows环境下成功调用该DLL。

在asp中没有vb中的format函数，但是我在网上找到一个好的方法(http://classicasp.aspfaq.com/date-time-routines-manipulation/can-i-make-vbscript-format-dates-for-me.html)。

经过我的测试是可以的，主要用的是MSSTDFMT.DLL 这个dll,原文说在visual studio 安装完之后才有。但是我在window2000 professional 使用没有问题，而且在没有安装iis的windows professional上我也找到了MSSTDFMT.DLL 文件。

下面是函数原型和用法,用法与format一样。

<%
    Function Format(vExpression, sFormat)

        set fmt = CreateObject("MSSTDFMT.StdDataFormat")
        fmt.Format = sFormat

        set rs = CreateObject("ADODB.Recordset")
        rs.Fields.Append "fldExpression", 12 ' adVariant

        rs.Open
        rs.AddNew

        set rs("fldExpression").DataFormat = fmt
        rs("fldExpression").Value = vExpression

        Format = rs("fldExpression").Value

        rs.close: Set rs = Nothing: Set fmt = Nothing

    End Function

    ' sample usage:
response.write "<br>"
response.write now & "<br>"
response.write "<br>"
    response.write format(now(), "yyyy-mm-dd hh:mm:ss")
    response.write "<br>"
    response.write format(time(), "hh:mm")
%>