|
<html> <head> <title> 千花飞舞之HTTP headERS侦测< /title> </head> <body> <TABLE BORDER=1> <tr><td VALIGN=TOP><B>变量</B></td> <td VALIGN=TOP><B>值</B></td></tr> <% For Each key In Request.ServerVariables %> <tr> <td><% = key %></td> <td> <% If Request.ServerVariables(key) = "" Then If GetAttribute(key) = "" Then Response.Write " " Else Response.Write GetAttribute(key) End If Else Response.Write Request.ServerVariables(key) End If Response.Write "</td>" %> </tr> <% Next %> </TABLE> </body></html> <% Function GetAttribute(AttrName) Dim AllAttrs Dim RealAttrName Dim Location Dim Result AllAttrs = Request.ServerVariables("ALL_HTTP") RealAttrName = AttrName Location = instr(AllAttrs, RealAttrName & ":") If Location <= 0 Then GetAttribute = "" Exit Function End If Result = mid(AllAttrs, Location + Len(RealAttrName) + 1) Location = instr(Result, chr(10)) If Location <= 0 Then Location = len(Result) + 1 GetAttribute = left(Result, Location - 1) End Function %> | 
发表于 2006-11-16 00:00:00
