功能：显示当前浏览器头信息（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
%>