Vbscript ASP FormatDateTime-删除;“工作日”;

Vbscript ASP FormatDateTime-删除;“工作日”;,vbscript,asp-classic,Vbscript,Asp Classic,我相信这将是一个简单的答案,但如果我能在任何地方找到它,我将被诅咒。我有一个简单的ASP脚本,显示上次修改的ASP页面日期。代码如下: <% Dim strFileName Dim dtmLastModified Dim dtmLastModifiedDate strFileName = Request.ServerVariables("SCRIPT_NAME") strFileName = Replace(strFileName, "/", "\") strFileName = Se

我相信这将是一个简单的答案,但如果我能在任何地方找到它,我将被诅咒。我有一个简单的ASP脚本,显示上次修改的ASP页面日期。代码如下:

<%

Dim strFileName
Dim dtmLastModified
Dim dtmLastModifiedDate

strFileName = Request.ServerVariables("SCRIPT_NAME")
strFileName = Replace(strFileName, "/", "\")
strFileName = Server.MapPath(strFileName)

Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFileSystemObject.GetFile(strFileName)
dtmLastModified = objFile.DateLastModified
Set objFile = Nothing

Set objFileSystemObject = Nothing

dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1)

Response.Write("Last Updated: " & dtmLastModifiedDate)
%>

显示如下:

Last Updated: Friday, April 10, 2015 最后更新:2015年4月10日,星期五 我们需要做的就是删除
星期五,
,但似乎不知道如何删除。

根据上的此链接,没有格式可以只以您想要的格式输出月、日、年。以下是一种方法,您可以从datetime以该格式返回
月-日,年

dtmLastModifiedDate = MonthName(Month(dtmLastModified)) & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified)
您必须用此行替换
FormatDateTime
行,它才能工作


此信息在中的备忘单上找到。希望这有帮助

不幸的是,对我工作的人来说,最重要的是它显示为“2015年4月10日”。不多也不少。而且,Javascript是不可能的。在他们允许我们添加任何JS之前,我们必须与之进行一场全面的斗争。我更新了我的答案,在VBScript中包含了一个格式化它的方法。
Response.Write(“上次更新:”&Replace(dtmLastModifiedDate,WeekDayName(WeekDay(dtmLastModified))&“,”,”)
删除它吗?