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






 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：C# 2.0 Specification(二)   下一篇：如何使用vs.net生成方法的小技巧

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】