检测函数 asp class(4)


            CheckFolder = True
        End If
    End Function

    Public Function WriteCache(appName, Value)
        Application.Lock
        Application(appName) = Value
        Application.Unlock
    End Function

    Public Function ClearCache(appName)
        Application.Lock
        Application.Contents.Remove(appName)
        Application.UnLock
    End Function

    Public Sub OutputJavaInfo(Message)
        Response.Expires = 0
        Response.ExpiresAbsolute = Now() - 1
        Response.AddHeader "pragma","no-cache"
        Response.AddHeader "cache-control","private"
        Response.CacheControl = "no-cache"
        Response.ContentType = "application/x-javascript"
        Response.Write "document.getElementById(""updateinfo"").innerHTML = """ & Message & """;"
        Response.End
    End Sub

    Public Sub OutputinterHtml(Message, ShowType)
        Response.Write Message
        If ShowType = 1 Then
            Response.Flush
        Else
            Response.End
        End If
    End Sub
End Class
%>