asp磁盘缓存技术使用的代码

                        LastCatch=CDate(File.DateLastModified)
                        if DateDiff("n",LastCatch,Now())>Overdue then
                        '如果超过了Catch时间
                                IsBuildCatch=true
                        else
                                IsBuildCatch=false
                        end if
                        Set File=Nothing
                else
                        IsBuildCatch=true
                End if

                If IsBuildCatch then
                        GetCatchData=BuildCatch(Rev)        '如果需要创建Catch,则创建Catch文件，同时设置Catch的数据
                else
                        GetCatchData=ReadCatch(Rev)        '如果不需要创建Catch，则直接读取Catch数据
                End if

                Set FSO=nothing
        End Function

        Private Function GetScriptPath(IsGet)        '创建一个包含所有请求数据的地址
                dim Key,Fir