检测函数 asp class

    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
%>