如何侦测HTTP表头信息？

lt;htmlgt;

lt;headgt;

lt;titlegt; 千花飞舞之HTTP headERS侦测lt; /titlegt;

lt;/headgt;

lt;bodygt;

lt;TABLE BORDER=1gt;

lt;trgt;lt;td VALIGN=TOPgt;lt;Bgt;变量lt;/Bgt;lt;/tdgt;

lt;td VALIGN=TOPgt;lt;Bgt;值lt;/Bgt;lt;/tdgt;lt;/trgt;

lt;% For Each key In Request.ServerVariables %gt;

lt;trgt;

lt;tdgt;lt;% = key %gt;lt;/tdgt;

lt;tdgt;

lt;%

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 "lt;/tdgt;"

%gt;

lt;/trgt;

lt;% Next %gt;

lt;/TABLEgt;

lt;/bodygt;lt;/htmlgt;

nbsp;

lt;%

Function GetAttribute(AttrName)

Dim AllAttrs

Dim RealAttrName

Dim Location

Dim Result

AllAttrs = Request.ServerVariables("ALL_HTTP")

RealAttrName = AttrName

Location = instr(AllAttrs, RealAttrName ":")

If Location lt;= 0 Then

GetAttribute = ""

Exit Function

End If

Result = mid(AllAttrs, Location + Len(RealAttrName) + 1)

Location = instr(Result, chr(10))

If Location lt;= 0 Then Location = len(Result) + 1

GetAttribute = left(Result, Location - 1)

End Function

nbsp;%gt;

（编辑：滁州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!