如何獲知文件最后的修改日期和時(shí)間?
<%
Dim objCMFU
Dim strModified
Set objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")
' 創(chuàng)建對(duì)象并賦給變量,并且GetProperty類(lèi)是當(dāng)前唯一可用的.
strModified = objCMFU.LastModified
' 檢索并返回包含最后修改日期和時(shí)間(LastModified function )值.當(dāng)然了,還要考慮到出錯(cuò)的可能.
Set objCMFU = Nothing
' 清空.
%>
<% If strModified = "Error!" Then %>
對(duì)不起,出錯(cuò)了!
<% Else %>
這個(gè)文件最后修改于:
<%= strModified %>
<%= FormatDateTime(CDate(strModified),1) %>
<%= FormatDateTime(CDate(strModified),3) %>
<% End If %>
[1]
相關(guān)文章
如何計(jì)算出當(dāng)前日期屬于定義時(shí)間段內(nèi)的第幾星期?
如何計(jì)算出當(dāng)前日期屬于定義時(shí)間段內(nèi)的第幾星期?...2006-11-11如何把URL和郵件地址轉(zhuǎn)換為超級(jí)鏈接?
如何把URL和郵件地址轉(zhuǎn)換為超級(jí)鏈接?...2006-11-11如何在讀取Excel文件時(shí)創(chuàng)建列表的下拉菜單?
如何在讀取Excel文件時(shí)創(chuàng)建列表的下拉菜單?...2006-11-11如何防止未經(jīng)注冊(cè)的用戶繞過(guò)注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)?
如何防止未經(jīng)注冊(cè)的用戶繞過(guò)注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)?...2006-11-11如何處理包含javascript語(yǔ)句時(shí)的間隔符?
如何處理包含javascript語(yǔ)句時(shí)的間隔符?...2006-11-11問(wèn)題解析:為什么數(shù)組下標(biāo)從0?開(kāi)始而不是?1??
這篇文章主要為大家介紹了為什么數(shù)組下標(biāo)是從0?開(kāi)始而不是?1?呢的問(wèn)題解析,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步,早日升職加薪2023-04-04