台灣最大程式設計社群網站
線上人數
385
 
會員總數:245468
討論主題:189226
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 取得網頁伺服端的環境變數
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
取得網頁伺服端的環境變數
價值 : 0 QP  點閱數:689 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
ServerVariables

ServerVariables這一個資料集合可以取得網頁伺服端的環境變數

Example:

Request.ServerVariables ("環境變數的名稱")

 

環境變數名稱:

ALL_HTTP:傳送到客戶端的所有HTTP header資料

ALL_RAW:傳送到客戶端的所有資料(以raw的資料格式)

APPL_MD_PATH:傳回伺服端的metabase路徑

APPL_PHYSICAL_PATH:將APPL_MD_PATH轉換成為實際的路徑傳回

AUTH_PASSWORD:傳回客戶端使用者在確認對話框中所輸入的密碼

AUTH_TYPE:傳回客戶端認證的方法

AUTH_USER:傳回客戶端確認在確認對話框中所輸入的使用者名稱

CONTENT_LENGTH:傳回content的資料長度

CONTENT_TYPE:傳回客戶端文件傳送的型態,如GET或POST等...

GATEWAY_INTERFACE:傳回伺服端的CGI版本

HTTP_<HeaderName>:傳回使用者自建的HTTP Header資料

LOCAL_ADDR:傳回伺服端電腦的IP位址

LOGON_USER:傳回登錄Windows NT的使用者資訊

PATH_INFO:取得目前網頁的虛擬路徑

PATH_TRANSLATED: 目前執行的ASP程式,位於伺服端的真實路徑

QUERY_STRING:傳回在HTTP://後以?所傳遞的參數資料

REMOTE_ADDR:遠端主機的IP位址

REMOTE_HOST:遠端主機的名稱

REMOTE_USER:遠端的使用者名稱

REQUEST_METHOD:傳回HTTP的請求方式,如GET或POST等...

SCRIPT_NAME:被執行的ASP檔案完整的虛擬路徑

SERVER_NAME:傳回網頁伺服端的電腦名稱,DNS或IP位址

SERVER_PORT:伺服端HTTP的埠(Port)

SERVER_PORT_SECURE:傳回客戶端是否指定安全的埠,是則為1,否為0

SERVER_PROTOCOL:取得HTTP的版本

SERVER_SOFTWARE:取得網頁伺服器的名稱與版本

URL:取得目前網頁虛擬路徑的儲存位址


--------------------------------------------------------------------------------

Example:

Response.Write Request.ServerVariables ("PATH_INFO")

=======================================================================

回應者: 李宗翰 etin2000@pchome.com.tw

偵測並且顯示所有的HTTP headers


<HTML>
<HEAD><TITLE> Test Web Agent Headers </TITLE></HEAD>
<BODY BGCOLOR=#ffffff>
<TABLE BORDER=1>
<TR><TD VALIGN=TOP>Variable</TD><TD VALIGN=TOP>Value</TD></TR>
<% For Each key In Request.ServerVariables %>
<TR>
<TD><% = key %></TD>
<TD>
<%
If Request.ServerVariables(key) = "" Then
If GetAttribute(key) = "" Then
Response.Write " " ' To force border around table cell
Else
Response.Write GetAttribute(key)
End If
Else
Response.Write Request.ServerVariables(key)
End If
Response.Write "</TD>"
%>
</TR>
<% Next %>
</TABLE>
<% 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 %>

本篇文章發表於2002-03-25 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.