显示当前浏览器头信息（HEADER）

功能：显示当前浏览器头信息（HEADER）
语言：VB
环境：ASP+

<% @ Page Language="vb" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.collections" %>
<%
dim myHEADER as NameValueCollection
dim i as integer
dim cookiesstr as string
myHEADER= request.HEADERs
dim totalnum = myHEADER.count
on error resume next
response.write ("<center>本程序显示所有的HEADER信息<hr size=1 color=red width=300></center>")
for i=0 to totalnum
cookiesstr= myHEADER.getkey(i)
response.write ("<p>名字：" & myHEADER.getkey(i) & " 值：" & myHEADER.get(cookiesstr))
next