[Resolvido] retorna todos os cabeçalhos enviados à página web

[xanburzum 169]

Esta função retorna todos os cabeçalhos enviados à página web atual por um determinado

navegador do usuário, retorna uma referência a um objeto Scripting.Dictionary.Keys e

Itens da coleção será preenchida com todos os nomes de cabeçalho , e valores de combinações

enviadas pelo navegador.

 

sintaxe:

 

Set object = Cabeçalho()

 

exemplo:

 

<%
'--------------------------------------------------------------
'get all headers
'--------------------------------------------------------------
Dim oHeaders, key

Set oHeaders = Cabeçalho
For Each key in oHeaders.Keys
	Response.write key & "<BR>"
	Response.Write oHeaders.Item(key) & "<BR><BR>"
Next
Set oHeaders = Nothing


'--------------------------------------------------------------
'get the user agent of the browser.
'--------------------------------------------------------------
Set oHeaders = Cabeçalho
key = oHeaders.Item("user-agent")
Set oHeaders = Nothing
%>

code:

 

<%
Private Function Cabeçalho()
	dim item, d, sKey, sItem

	set d = createobject("Scripting.Dictionary")
	d.RemoveAll

	for each item in request.servervariables
		if left(ucase(item), 5) = "HTTP_" then
			sKey = replace(right(UCASE(item), len(item) - 5), "_", "-")
			sItem = request.servervariables(item)
			if not d.Exists(sKey) then d.Add sKey, sItem	 
		end if
	next

	Set Cabeçalho= d
End Function
%>