VFPCGI Day9

[[Category:VFPCGI]]
=====VFPCGI的第九天=====
有了 Request class，我們把 cgi05 改寫成 cgi06，不用自己再處理，改由 request class 去處理。

少掉前面的一堆處理，看起來是比較好一點了～
下次來改寫 Request 來讓她可以處理中文。

<pre>
*
* cgi06
*

SET PROCEDURE TO cgilib

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

	* 取得目前的 Request Method
	LOCAL cInput
	cInput = "&lt;p&gt;REQUEST_METHOD=" + oRequest.RequestMethod + "&lt;/p&gt;"

	* 因為要去處理的 collection 不一樣
	DO CASE 
		CASE oRequest.RequestMethod == "POST"
			oCollection = oRequest.FormField
		OTHERWISE 
			oCollection = oRequest.QueryString
	ENDCASE 
	cInput = cInput + "&lt;p&gt;&lt;ul&gt;"
	FOR i=1 TO oCollection.Count
		cInput = cInput + "&lt;li&gt;" + oCollection.GetKey(i) + "=" + oCollection.Item(i) + "&lt;/li&gt;"
	ENDFOR
	cInput = cInput + "&lt;/ul&gt;&lt;/p&gt;"

	* 輸出成 HTML 囉～
	lcHtml = ""
	TEXT TO lcHtml NOSHOW ADDITIVE TEXTMERGE 
	&lt;script language="javascript"&gt;
	function method_change( form )
	{
	 switch ( form.cboMethod.value ) {
	 case "GET": form.method = "GET"; break;
	 case "POST": form.method = "POST"; break;
	 }
	}
	&lt;/script&gt;
	&lt;form method="get" action="vfpcgi.exe"&gt;
	RequestMethod: &lt;select name="cboMethod" ｏnChange="return method_change(this.form);"&gt;
		&lt;option value="GET" &lt;&lt;IIF(oRequest.RequestMethod=="GET", "selected", "")&gt;&gt; &gt;GET&lt;/option&gt;
		&lt;option value="POST" &lt;&lt;IIF(oRequest.RequestMethod=="POST", "selected", "")&gt;&gt; &gt;POST&lt;/option&gt;
	&lt;/select&gt;&lt;br/&gt;
	&lt;input type="text" name="txt" value=""/&gt;
	&lt;select name="cbo"&gt;
	&lt;option value="0" selected&gt;0&lt;/option&gt;
	&lt;option value="1"&gt;1&lt;/option&gt;
	&lt;option value="2"&gt;2&lt;/option&gt;
	&lt;/select&gt;&lt;br/&gt;
	&lt;input type="submit" value="Submit"/&gt;
	&lt;input type="reset" value="Reset"/&gt;
	&lt;/form&gt;
	&lt;&lt;cInput&gt;&gt;
	ENDTEXT 

	oResponse.Write( lcHtml )
CATCH TO oError
	oResponse.Write( oError.Message )
FINALLY 
ENDTRY 
</pre>