来源：自学PHP网 时间：2015-02-03 17:41 作者： 阅读:次
[导读] 如何侦测HTTP表头信息？...
|
NEWSZW_HZH_BEGIN-->
<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 %> NEWSZW_HZH_END--> |
自学PHP网专注网站建设学习,PHP程序学习,平面设计学习，以及操作系统学习
京ICP备14009008号-1@版权所有www.zixuephp.com
网站声明：本站所有视频，教程都由网友上传，站长收集和分享给大家学习使用，如由牵扯版权问题请联系站长邮箱904561283@qq.com
