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