程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> ASP講座之二：讀取通過表單發送的數據

ASP講座之二：讀取通過表單發送的數據

編輯：ASP入門教程

學習ASP，最重要的就是要掌握ASP內置的六大對象。事實上，在上一講中，我們已經了解了Response對象（是嗎？有沒有搞錯！），及Response對象中最常用的Write方法、Redirect方法和Expires屬性。看到對象、方法、屬性、集合、事件這些概念（俺一個都不識！），如果以前沒接觸過，聰明的您就不要管這些概念了，知道怎麼用就行了，我的觀點是剛開始關鍵在於臨摹。下面我們繼續通過實例學習Request對象，為了加深理解，務請運行這些程序看看輸出結果。

一、使用Request.ServerVariables獲取環境變量，這部分內容很簡單，但獲取的內容卻很重要，如何獲取？請看下例：
<%@ Language=VBScript %>
<Html><BODY>
<%  'wuf8.ASP
Response.Write "運行ASP文件的路徑: " &_
                Request.ServerVariables("Script_Name") & "<Br>"
Response.Write "返回content的數據長度: " &_
                Request.ServerVariables("Content_Length") & "<Br>"
Response.Write "返回客戶的IP地址: " &_
                Request.ServerVariables("Remote_Addr") & "<Br>"
Response.Write "浏覽器名: " &_
                Request.ServerVariables("HTTP_USER_AGENT") & "<Br>"
Response.Write "返回主頁實際物理路徑: " &_
                Request.ServerVariables("APPL_PHYSICAL_PATH") & "<Br>"
%>

<table colspan=8 cellpadding=5 border=0>
  <tr>
    <td align=CENTER bgcolor="#800000" width="109"> <font color="#ffffff" size="2">環境變量名</font></td>
    <td align=CENTER width=459 bgcolor="#800000"> <font color="#ffffff" size="2">內容</font></td>
  </tr>
  <tr>
    <td bgcolor="f7efde" align=CENTER> <font size="2">
      result1
       </font></td>
    <td bgcolor="f7efde" align=CENTER> <font size="2">
      result2
       </font></td></tr>
</table>
</BODY></Html>
    Now，你應該發現上一講中的例程wuf2.ASP原來是多麼的easy！
    注意：該程序的後面一部分Html標記純是為下面的例子作准備的，所以不要覺得奇怪。那麼，還有哪些環境變量呢？運行下面的例子就知道了（本程序刪除了部分代碼，最好去我站點下載源程序便於理解）。
<%@ Language=VBScript %>
<%   ‘wuf9.ASP
Option Explicit
Dim Sv
%>
<Html><BODY>
<table colspan=8 cellpadding=5 border=0>
  <tr>
    <td align=CENTER bgcolor="#800000" width="109"> <font color="#ffffff" size="2">環境變量名</font></td>
    <td align=CENTER width=459 bgcolor="#800000"> <font color="#ffffff" size="2">結果</font></td>
  </tr>
<%
for each Sv In Request.ServerVariables
Response.Write "<tr>"
Response.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
Response.Write Sv
Response.Write "</font></td>"
Response.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
Response.Write Request.ServerVariables(Sv)
Response.Write "</font></td></tr>"
next
%>
</table>
</BODY></Html>
這裡使用了For…Each循環，用來列舉一個集合中的所有元素。如果後半部分看不懂，請對照wuf8.ASP，再瞧瞧運行結果，仔細體會一下（什麼態度？）。

二、通過表單向服務器傳送數據（也可這樣理解，服務器端如何讀取客戶端發送的數據）
做過主頁，應該知道很多主頁通常都使用Form表單讓用戶輸入數據，然後通過“submit（提交）”按鈕發送數據。From表單中的“method”有兩種主要方法：POST和GET，而“action”後一般都是指定一個.CGI、.pl或.asp文件，今天我們要學習的就是如果編寫這個.ASP文件。
（一）如果使用POST方法傳送數據，則用Request.Form來讀取數據。
先編輯如下一個wuf10.htm文件，供用戶輸入數據：
<Html>
<body bgcolor="#FFFFFF">
<form method="post" action="wuf11.ASP">
  姓名： <input type="text" name="yourname"><br>
  性別： <select name="gender">
    <option>男</option>
    <option>女</option>
  </select> <br>
  留言： <textarea name="message">您好！
注意多行文本的處理</textarea>  <br>
  愛好（按住Ctrl鍵可多選）：
  <select name="hobby" multiple size="4">
    <option>電腦</option>
    <option>購物</option>
    <option>電影</option>
    <option>讀書</option>
  </select> <br>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="Reset">
</form>
</body>
</Html>
再編寫一個wuf10.htm需用到的文件wuf11.ASP收集數據：
<%@ Language=VBScript %>
<%   'wuf11.ASP
Option Explicit
Response.Expires=0
Dim StrName, StrGender, StrM, StrMsg

StrName = Trim(Request.Form("yourname"))   'Trim函數用來除首尾空格
StrGender = Trim(Request.Form("gender"))
StrM = Trim(Request.Form("message"))
StrMsg = Replace(StrM,vbcrlf,"<Br>" & vbcrlf)
' vbcrlf相當於回車符和換行符的組合。至於Replace函數,其作用就是將字符串StrM中的vbcrlf替換為"<Br>" & vbcrlf（請思考這個vbcrlf有什麼用？查看輸出文件的Html源碼就明白了），詳細請參考VBScript幫助。
%>
<Html><BODY>
姓名: <%= StrName%><Br><Br>
性別: <%= StrGender%><Br><Br>
留言: <Br><Br>
<%= StrM%><Br><Br>
<%= StrMsg%><Br><Br>
實際上, "提交"按鈕的值也被傳遞: <Br>
<%= Request.Form("Submit")%><Br><Br>

<%  '先把上面看懂, 有興趣再看看如何讀取多個選項
Response.Write "共選擇愛好項數:" & Request.Form("hobby").Count & "<Br>"
Dim I
For I = 1 to Request.Form("hobby").Count
Response.Write Request.Form("hobby")(I) & "<Br>"
Next
%>
</BODY></Html>
在這個的例子中，為了便於理解，我們使用了兩個程序，實際上只使用一個程序也可以，如果有興趣請看下面的例程wuf12.ASP，有助於加深對環境變量的理解。
<%@ Language=VBScript %>
<%   'wuf12.ASP
Option Explicit
Response.Expires=0
Dim StrName, StrGender, StrM, StrMsg

If Request.ServerVariables("Content_Length") <> 0 Then
'提交數據後,這個長度就不會是 0, 因此執行下面的語句, 將結果顯示出來
'下面一部分實際上是照搬 wuf11.ASP

StrName = Trim(Request.Form("yourname"))
StrGender = Trim(Request.Form("gender"))
StrM = Trim(Request.Form("message"))
StrMsg = Replace(StrM,vbcrlf,"<Br>" & vbcrlf)
%>
<Html><BODY>
姓名: <%= StrName%><Br><Br>
性別: <%= StrGender%><Br><Br>
留言: <Br><Br>
<%= StrM%><Br><Br>
<%= StrMsg%><Br><Br>

<%
Response.Write "共選擇愛好項數:" & Request.Form("hobby").Count & "<Br>"
Dim I
For I = 1 to Request.Form("hobby").Count
Response.Write Request.Form("hobby")(I) & "<Br>"
Next
%>
</BODY></Html>

<%
Else
'當第一次加載頁面時,沒有提交任何數據,故前面一部分並不執行,而是從這裡開始
'這也就是為什麼會有兩對 <HTML></Html> 的原因
'下面照搬 wuf10.htm 就行了
'<form method="post" action="wuf11.ASP"> 給用環境變量替換掉了, 其實完全一樣
Response.Write "看看結果: " & Request.ServerVariables("Script_name") & "<Br>"
%>
<Html><BODY>
<form method="post" action="<%= Request.ServerVariables("Script_name")%>">
  姓名： <input type="text" name="yourname"><br>
  性別： <select name="gender">
    <option>男</option>
    <option>女</option>
  </select> <br>
  留言： <textarea name="message">您好！
注意多行文本的處理</textarea>  <br>
  愛好（按住Ctrl鍵可多選）：
  <select name="hobby" multiple size="4">
    <option>電腦</option>
    <option>購物</option>
    <option>電影</option>
    <option>讀書</option>
  </select> <br>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="Reset">
</form>
</BODY></Html>
<%End If%>

    （二）如果使用GET方法傳送數據，則用Request.Querystring來讀取數據。
先編輯如下一個wuf13.htm文件，供用戶輸入數據：
<Html>
<body bgcolor="#FFFFFF">
<form method="get" action="wuf14.ASP">
  英文姓名： <input type="text" name="Ename"> <br>
  中文姓名： <input type="text" name="Cname"><br>
  性別： <select name="gender">
    <option>男</option>
    <option>女</option>
  </select>  <br>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="Reset">
</form>
</body>
</Html>
再編寫一個wuf13.htm需用到的文件wuf14.ASP收集數據：
<%@ Language=VBScript %>
<%   'wuf14.ASP
Option Explicit
Response.Expires=0
Dim StrCname, StrEname, StrGender

StrEname = Trim(Request.QueryString("Ename"))   'Trim函數用來除首尾空格
StrCname = Trim(Request.QueryString("Cname"))
StrGender = Trim(Request.QueryString("gender"))
%>
<Html><BODY>
英文姓名: <%= StrEname%><Br><Br>
中文姓名: <%= StrCname%><Br><Br>
性別: <%= StrGender%><Br><Br>
看看提交的字符串: <Br>
<%= Request.ServerVariables("Query_String")%>
</BODY></Html>
為了更好地理解這個程序，你最好先在浏覽器中試試例程wuf13.htm的效果，看看輸出的結果，你會發現地址欄中長長的字符串似曾相識，如同在Yahoo搜索時看到的差不多。這時，你試著在地址欄中直接輸入“http://localhost/wuf14.ASP?Ename=Rose&Cname=李二&gender=女”，居然也得到了同樣的結果。所以你可以這樣看，wuf13.htm的結果就是得到了類似這樣的一個帶參數的鏈接。而Request.QueryString則是從http:// 地址的附加參數中讀取各個數據。
實際上，當按“提交”按鈕後，查詢字符串（輸入的數據）會以參數的形式附加到URL地址後（各參數間以“&”分隔），達到傳遞數據的目的。同時，注意浏覽器中顯示的查詢字符串中沒有中文，而是不認識的含百分號的亂碼，這是因為進行了編碼的緣故。最後，與前面一樣，這兩個程序也可合並為一個程序（例程wuf15.ASP,需去我站點下載）。

幾點說明：
1．若使用POST方法提交數據，則Request.ServerVariables("Content_Length")>0。
   若使用GET方法提交數據，則Request.ServerVariables("Query_String") <> ""。
2．弄懂原理後，你完全可以在同一個ASP文件中混合使用Request.Form和Request.QueryString。
3．如果在一個Form表單中，有幾個按鈕，你如何確定用戶按了哪個按鈕？如果留意的話，會發現例程wuf11.ASP中有一句，“提交”按鈕的值也被傳送，而wuf13.htm中生成的查詢字符串最後也可以找到類似的值。請注意：只有被按按鈕的值被傳送，而其他按鈕的值為””，這就是判斷依據（《中計報》InfoWeb網站有一篇類似文章）。