asp-classic - 在经典 ASP 中本地化记录集中的日期

Question

为了更好地服务加拿大客户，我们正在尝试本地化一些旧的经典 ASP 页面上显示的日期。我们已经开始使用 SetLocale() vb 脚本函数并取得了一些成功——正确处理用户输入日期。

但是，我希望 ADODB.Recordset 中返回的日期能够尊重页面的区域设置。考虑以下代码:

SetLocale 4105

'''
' Get a list of Employees
SQL = "SELECT Firstname, Lastname, HireDate FROM Employee"
Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open Application("ConnectionString")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = 1
cmd.CommandText = SQL
Set rst = Server.CreateObject("ADODB.Recordset")
rst.CursorLocation = 3
Set rst = cmd.Execute

将HireDate列写入页面时，它会呈现为 MM/DD/YYYY(我们的服务器使用的格式)。

需要注意的几点:

1. 我们需要在同一服务器上为美国和加拿大客户提供服务(因此无法更改服务器的本地化/区域)。这必须是纯代码解决方案。
2. 我注意到 rst("HireDate") 的 TypeName 是“Field”——而不是我预期的日期。

在这种情况下本地化来自 SQL Server 的日期值的正确方法是什么？

Answer 1

我认为您可能仍然需要使用 FormatDateTime 函数才能使其正常显示。

尝试

FormatDateTime(rst("HireDate").Value, vbShortDate)