VFPCGI Day10

[[Category:VFPCGI]]
=====VFPCGI的第十天=====
其實 CGI 介面除了前面提過的那幾個環境變數之外，還有提供如下變數：
*SERVER_SOFTWARE
*SERVER_NAME
*GATEWAY_INTERFACE
*SERVER_PROTOCOL
*SERVER_PORT
*REQUEST_METHOD
*PATH_INFO
*PATH_TRANSLATED
*SCRIPT_NAME
*QUERY_STRING
*REMOTE_HOST
*REMOTE_ADDR
*AUTH_TYPE
*REMOTE_USER
*REMOTE_IDENT
*CONTENT_TYPE
*CONTENT_LENGTH
*HTTP_ACCEPT
*HTTP_USER_AGENT

讓我們都印出來看看～請把以下程式存為 cgi07.prg，並設為主程式進行編譯。
<pre>
*
* cgi07
*
* Reference:
*   CGI Environment Variables http://hoohoo.ncsa.uiuc.edu/cgi/env.html
*

SET PROCEDURE TO cgilib

LOCAL oResponse
oResponse = CREATEOBJECT( "RESPONSE" )

LOCAL lcHtml
TEXT TO lcHtml TEXTMERGE NOSHOW 
CGI Environment variables:
&lt;ul&gt;
&lt;li&gt;SERVER_SOFTWARE=&lt;&lt;GETENV("SERVER_SOFTWARE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_NAME=&lt;&lt;GETENV("SERVER_NAME")&gt;&gt;&lt;/li&gt;
&lt;li&gt;GATEWAY_INTERFACE=&lt;&lt;GETENV("GATEWAY_INTERFACE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_PROTOCOL=&lt;&lt;GETENV("SERVER_PROTOCOL")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_PORT=&lt;&lt;GETENV("SERVER_PORT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REQUEST_METHOD=&lt;&lt;GETENV("REQUEST_METHOD")&gt;&gt;&lt;/li&gt;
&lt;li&gt;PATH_INFO=&lt;&lt;GETENV("PATH_INFO")&gt;&gt;&lt;/li&gt;
&lt;li&gt;PATH_TRANSLATED=&lt;&lt;GETENV("PATH_TRANSLATED")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SCRIPT_NAME=&lt;&lt;GETENV("SCRIPT_NAME")&gt;&gt;&lt;/li&gt;
&lt;li&gt;QUERY_STRING=&lt;&lt;GETENV("QUERY_STRING")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_HOST=&lt;&lt;GETENV("REMOTE_HOST")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_ADDR=&lt;&lt;GETENV("REMOTE_ADDR")&gt;&gt;&lt;/li&gt;
&lt;li&gt;AUTH_TYPE=&lt;&lt;GETENV("AUTH_TYPE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_USER=&lt;&lt;GETENV("REMOTE_USER")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_IDENT=&lt;&lt;GETENV("REMOTE_IDENT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;CONTENT_TYPE=&lt;&lt;GETENV("CONTENT_TYPE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;CONTENT_LENGTH=&lt;&lt;GETENV("CONTENT_LENGTH")&gt;&gt;&lt;/li&gt;
&lt;li&gt;HTTP_ACCEPT=&lt;&lt;GETENV("HTTP_ACCEPT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;HTTP_USER_AGENT=&lt;&lt;GETENV("HTTP_USER_AGENT")&gt;&gt;&lt;/li&gt;
&lt;/ul&gt;
ENDTEXT 
oResponse.Write( lcHtml )
</pre>

你會看到許多有趣的資訊。
在 ASP 裡面，你可以用 Request.ServerVariables() 來取得這些資訊。
所以我們為 Request 添加一個 Method，命名為 ServerVariables
<pre>
	PROCEDURE ServerVariables
		LPARAMETERS strVarName
		RETURN GETENV( strVarName )
	ENDPROC
</pre>

再一次改寫 cgi07 為 cgi08 如下，並將 cgi08 設為主程式：
<pre>
*
* cgi08
*
* Reference:
*   CGI Environment Variables http://hoohoo.ncsa.uiuc.edu/cgi/env.html
*

SET PROCEDURE TO cgilib

LOCAL oResponse, oRequest
oResponse = CREATEOBJECT( "RESPONSE" )
oRequest = CREATEOBJECT( "REQUEST" )

LOCAL lcHtml
TEXT TO lcHtml TEXTMERGE NOSHOW 
CGI Environment variables:
&lt;ul&gt;
&lt;li&gt;SERVER_SOFTWARE=&lt;&lt;oRequest.ServerVariables("SERVER_SOFTWARE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_NAME=&lt;&lt;oRequest.ServerVariables("SERVER_NAME")&gt;&gt;&lt;/li&gt;
&lt;li&gt;GATEWAY_INTERFACE=&lt;&lt;oRequest.ServerVariables("GATEWAY_INTERFACE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_PROTOCOL=&lt;&lt;oRequest.ServerVariables("SERVER_PROTOCOL")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SERVER_PORT=&lt;&lt;oRequest.ServerVariables("SERVER_PORT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REQUEST_METHOD=&lt;&lt;oRequest.ServerVariables("REQUEST_METHOD")&gt;&gt;&lt;/li&gt;
&lt;li&gt;PATH_INFO=&lt;&lt;oRequest.ServerVariables("PATH_INFO")&gt;&gt;&lt;/li&gt;
&lt;li&gt;PATH_TRANSLATED=&lt;&lt;oRequest.ServerVariables("PATH_TRANSLATED")&gt;&gt;&lt;/li&gt;
&lt;li&gt;SCRIPT_NAME=&lt;&lt;oRequest.ServerVariables("SCRIPT_NAME")&gt;&gt;&lt;/li&gt;
&lt;li&gt;QUERY_STRING=&lt;&lt;oRequest.ServerVariables("QUERY_STRING")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_HOST=&lt;&lt;oRequest.ServerVariables("REMOTE_HOST")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_ADDR=&lt;&lt;oRequest.ServerVariables("REMOTE_ADDR")&gt;&gt;&lt;/li&gt;
&lt;li&gt;AUTH_TYPE=&lt;&lt;oRequest.ServerVariables("AUTH_TYPE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_USER=&lt;&lt;oRequest.ServerVariables("REMOTE_USER")&gt;&gt;&lt;/li&gt;
&lt;li&gt;REMOTE_IDENT=&lt;&lt;oRequest.ServerVariables("REMOTE_IDENT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;CONTENT_TYPE=&lt;&lt;oRequest.ServerVariables("CONTENT_TYPE")&gt;&gt;&lt;/li&gt;
&lt;li&gt;CONTENT_LENGTH=&lt;&lt;oRequest.ServerVariables("CONTENT_LENGTH")&gt;&gt;&lt;/li&gt;
&lt;li&gt;HTTP_ACCEPT=&lt;&lt;oRequest.ServerVariables("HTTP_ACCEPT")&gt;&gt;&lt;/li&gt;
&lt;li&gt;HTTP_USER_AGENT=&lt;&lt;oRequest.ServerVariables("HTTP_USER_AGENT")&gt;&gt;&lt;/li&gt;
&lt;/ul&gt;
ENDTEXT 
oResponse.Write( lcHtml )
</pre>

這次主要是實做 Request.ServerVariables 方法。

參考資料：
*[http://hoohoo.ncsa.uiuc.edu/cgi/env.html CGI Environment Variables]
*[http://www.w3schools.com/asp/asp_ref_request.asp ASP Request Object]