reduce sizeof page load  using  Content-Encoding: gzip

 Protected Overrides Sub Render(ByVal output As HtmlTextWriter)

Dim tempWriter As StringWriter = New StringWriter

MyBase.Render(New HtmlTextWriter(tempWriter))

Dim encodings As String = ""

encodings = Request.Headers.Get("Accept-Encoding")

If Not encodings Is Nothing AndAlso encodings.ToLower.IndexOf("gzip") >= 0 Then

Response.AppendHeader("Content-Encoding", "gzip")

Dim _cachedOutput As String = tempWriter.ToString()

Response.BinaryWrite(GzipCompress(_cachedOutput))

Else

Response.AppendHeader("Content-Encoding", "text/html; charset=utf-8")

output.Write(tempWriter.ToString())

End If



End Sub

Private Function GzipCompress(ByVal s1 As String) As Byte()

Dim writeData As Byte() = Encoding.UTF8.GetBytes(s1)

Dim ms = New MemoryStream

Dim s As New GZip.GZipOutputStream(ms)

s.Write(writeData, 0, writeData.Length)

s.Flush()

s.Close()

Dim compressedData() As Byte = ms.ToArray()

Return compressedData

End Function