在asp中使用format的问题

在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")
%>