'***函数名  : GetFileUpdateTime
'***函数说明: 获取文件修改时间
'***参数    : sFilePath: 需获取的文件路径
'***返回值  : 文件修改时间
Function GetFileUpdateTime(sFilePath)
    Dim fso, file, dTime
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(sFilePath) Then
        Set file = fso.GetFile(sFilePath)
        dTime = file.DateLastModified
        Set file = Nothing
    End If
    Set fso = Nothing
    GetFileUpdateTime = dTime
End Function