<%
Dim objCMFU
Dim strModified
Set objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")
' 創建對象並賦給變量,並且GetProperty類是當前唯一可用的.
strModified = objCMFU.LastModified
' 檢索並返回包含最後修改日期和時間(LastModified function )值.當然了,還要考慮到出錯的可能.
Set objCMFU = Nothing
' 清空.
%>
<% If strModified = "Error!" Then %>
對不起,出錯了!
<% Else %>
這個文件最後修改於:
<%= strModified %>
<%= FormatDateTime(CDate(strModified),1) %>
<%= FormatDateTime(CDate(strModified),3) %>
<% End If %>
[1]