如何獲知文件被改動(dòng)的情況?
Function File_GetLastModified( sFile )
Dim objFileObj, objFile
Set objFileObj = CreateObject("Scripting.FileSystemObject")
If sFile = "" Then
sFile = Server.MapPath( Request.ServerVariables
("script_NAME") )
End If
Set objFile = objFileObj.GetFile(sFile)
File_GetLastModified = objFile.DateLastModified
End Function
Response.Write "記錄文件被修改:" & File_GetLastModified
("d:\shenzhaoyang\record.txt")
Response.Write "糟了,這個(gè)文件已被修改過!" & File_GetLastModified("")
[1]
相關(guān)文章
如何讓用戶再次訪問我的網(wǎng)站時(shí)不需再提交相關(guān)信息?
如何讓用戶再次訪問我的網(wǎng)站時(shí)不需再提交相關(guān)信息?...2006-11-11如何在ASP中恰當(dāng)?shù)剡\(yùn)用Cookies?
如何在ASP中恰當(dāng)?shù)剡\(yùn)用Cookies?...2006-11-11如何防止未經(jīng)注冊(cè)的用戶繞過注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)?
如何防止未經(jīng)注冊(cè)的用戶繞過注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)?...2006-11-11如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)?
如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)?...2006-11-11如何做一個(gè)計(jì)數(shù)器并讓人家申請(qǐng)使用?
如何做一個(gè)計(jì)數(shù)器并讓人家申請(qǐng)使用?...2006-11-11何時(shí)將數(shù)據(jù)裝載到Application 或 Session 對(duì)象中去?
何時(shí)將數(shù)據(jù)裝載到Application 或 Session 對(duì)象中去?...2006-11-11