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


                if UCase(request.Servervariables("Request_Method"))="POST" then
                '当是POST方法,不可使用文件Catch
                        Rev="使用POST方法请求页面,不可以使用文件Catch功能"
                        CatchNow=false
                else
                        if request.Querystring(Mark)<>"" then
                        '如果指定参数不为空,表示请求不可以使用Catch
                                Rev="请求拒绝使用Catch功能"
                                CatchNow=false
                        else
                                CatchNow=GetCatchData(Rev)
                        end if
                end if
        End Function

        Private Function GetCatchData(Rev)        '读取Catch数据
                Dim FSO,IsBuildCatch
                Set FSO=CreateObject("Scripting.FileSystemObject")        '设置FSO对象,访问CatchFile

                If FSO.FileExists(CFolder&CFile) Then
                        Dim File,LastCatch

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3182.html