如何偵測(cè)HTTP表頭信息？
<html>
<head>
<title> 千花飛舞之HTTP headERS偵測(cè)< /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
%>
相關(guān)文章
如何向前端推送用戶(hù)請(qǐng)求的信息？...2006-11-11
如何實(shí)時(shí)獲知多少人在線(xiàn)？...2006-11-11
如何實(shí)現(xiàn)人民幣的大寫(xiě)轉(zhuǎn)換？
如何實(shí)現(xiàn)人民幣的大寫(xiě)轉(zhuǎn)換？...2006-11-11
可以讓程序告訴我詳細(xì)的頁(yè)面錯(cuò)誤和數(shù)據(jù)庫(kù)連接錯(cuò)誤嗎？
可以讓程序告訴我詳細(xì)的頁(yè)面錯(cuò)誤和數(shù)據(jù)庫(kù)連接錯(cuò)誤嗎？...2006-11-11
如何顯示最后十名來(lái)訪(fǎng)者？...2006-11-11
如何判斷用戶(hù)是否非正常離開(kāi)聊天室？...2006-11-11
如何把一長(zhǎng)串?dāng)?shù)字分位顯示？
如何把一長(zhǎng)串?dāng)?shù)字分位顯示？...2006-11-11
如何驗(yàn)證IP地址？...2006-11-11
如何制作一個(gè)彈出式的調(diào)查窗口？...2006-11-11
如何用下拉列表顯示數(shù)據(jù)庫(kù)里的內(nèi)容？
如何用下拉列表顯示數(shù)據(jù)庫(kù)里的內(nèi)容？...2006-11-11