Date()函数来获取当前日期和时间。在 ASP 开发中，获取日期是一个常见的需求，ASP 提供了多种方式来获取当前日期和时间，这些方法可以帮助开发者在各种场景下进行日期相关的操作。
我们可以使用 VBScript 的内置函数来获取日期，VBScript 是 ASP 的默认脚本语言之一，它提供了一些方便的函数用于处理日期和时间。Now() 函数可以返回当前的日期和时间。
<%
Dim currentDate
currentDate = Now()
Response.Write("当前日期和时间为: " & currentDate)
%>
除了Now() 函数，还有其他一些有用的函数，如Date() 只返回日期部分，Time() 只返回时间部分。
| 函数 | 描述 |
| Now() | 返回当前日期和时间 |
| Date() | 返回当前日期 |
| Time() | 返回当前时间 |
我们还可以使用FormatDateTime 函数来格式化日期和时间，这个函数允许我们指定日期和时间的格式，如果我们只想显示日期，可以使用以下代码：
<%
Dim formattedDate
formattedDate = FormatDateTime(Now(), vbShortDate)
Response.Write("格式化后的日期为: " & formattedDate)
%>
vbShortDate 是格式化参数，表示使用短日期格式，还有其他参数可供选择，如vbLongDate、vbShortTime、vbLongTime 等。
| 参数 | 描述 |
| vbShortDate | 短日期格式（如 10/21/93） |
| vbLongDate | 长日期格式（如 October 21, 1993） |
| vbShortTime | 短时间格式（如 1:23 PM） |
| vbLongTime | 长时间格式（如 1:23:45 PM） |
除了使用 VBScript 的内置函数，ASP 还可以利用服务器端对象模型（COM）来获取日期和时间，我们可以使用Server.CreateObject 创建一个DateTime 对象：
<%
Dim dateObj
Set dateObj = Server.CreateObject("MSXML2.DOMDocument.6.0")
dateObj.async = False
dateObj.loadXML "<root><date>" & Now() & "</date></root>"
Dim nodeDate
Set nodeDate = dateObj.selectSingleNode("//date")
Response.Write("通过 COM 对象获取的日期和时间为: " & nodeDate.text)
%>
这种方法虽然不如直接使用 VBScript 函数简洁，但在某些特定场景下可能会有用武之地。
在实际应用中，我们可能需要将日期和时间存储到数据库中，在这种情况下，通常会将日期和时间转换为字符串格式，可以使用FormatDateTime 函数将日期和时间转换为合适的字符串格式，然后将其插入到数据库中。
<%
Dim dbDate
dbDate = FormatDateTime(Now(), vbShortDate)
' 假设已经建立了数据库连接并创建了记录集对象 rs
rs("date_column") = dbDate
rs.Update
%>
当我们从数据库中读取日期和时间数据时，需要将其转换回日期和时间对象，这通常可以通过数据库驱动程序自动完成，但如果需要手动处理，可以使用 VBScript 的CDate 函数：
<%
Dim dbDateStr
dbDateStr = rs("date_column")
Dim dateObj
dateObj = CDate(dbDateStr)
Response.Write("从数据库中读取并转换后的日期为: " & dateObj)
%>
ASP 提供了多种方式来获取和处理日期和时间，开发者可以根据具体的需求选择合适的方法，无论是使用 VBScript 的内置函数，还是利用服务器端对象模型（COM），都可以轻松地实现日期和时间的相关操作，在与数据库交互时，需要注意日期和时间数据的格式转换问题，以确保数据的正确存储和读取。
FAQs
问题 1：如何在 ASP 中获取当前日期但不包含时间？
答：在 ASP 中，可以使用 VBScript 的Date() 函数来获取当前日期但不包含时间。
<%
Dim currentDateOnly
currentDateOnly = Date()
Response.Write("当前日期为: " & currentDateOnly)
%>
这将输出当前日期，如“10/21/2023”，不包含时间部分。
问题 2：如何在 ASP 中将日期格式化为特定的字符串格式？
答：在 ASP 中，可以使用FormatDateTime 函数来将日期格式化为特定的字符串格式，要将当前日期格式化为“年-月-日”的形式，可以这样做：
<%
Dim formattedDate
formattedDate = FormatDateTime(Now(), vbShortDate)
formattedDate = Replace(formattedDate, "/", "-")
Response.Write("格式化后的日期为: " & formattedDate)
%>
这将输出类似“2023-10-21”的日期格式。