Mega Code Archive

Showing HTTP Headers via the Headers Collection in ASP NET

<%@ Page Language="vb" %> <html> <head> <title>Showing HTTP Headers via the Headers Collection in ASP.NET</title> </head> <body> <% Dim AllHttp As String AllHttp = Request.ServerVariables("ALL_HTTP") AllHttp = Replace(AllHttp, "HTTP", "<br>HTTP") Response.Write(AllHttp & "<br>") Dim Counter1, Counter2 As Integer Dim Keys(), subKeys() As String Dim HeaderColl As NameValueCollection HeaderColl=Request.Headers Keys = HeaderColl.AllKeys For Counter1 = 0 To Keys.GetUpperBound(0) Response.Write("Key: " & Keys(Counter1) & "<br>") subKeys = HeaderColl.GetValues(Counter1) ' Get all values under this key. For Counter2 = 0 To subKeys.GetUpperBound(0) Response.Write("Value " & CStr(Counter2) & ": " & subKeys(Counter2) & "<br>") Next Counter2 Next Counter1 %> </body> </html>