广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

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