如何修改被表單引用的ASP頁面？

來源：本站原創(chuàng)|時(shí)間：2020-01-11|欄目：編程問答|點(diǎn)擊：次

formhandler.asp
<html>
<body>
<%
Dim RequestMethod

RequestMethod = Request.ServerVariables("REQUEST_ METHOD") <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 獲取REQUEST_METHOD的數(shù)值,并把它存入本地的變量中.當(dāng)Web頁面被表單標(biāo)記的Action參數(shù)調(diào)用時(shí),REQUESTMETHOD的數(shù)值為Post.其他時(shí)候, 用戶直接向?yàn)g覽器中鍵入地址,刷新頁面,或單擊頁面的一個(gè)鏈接而調(diào)用頁面,REQUEST_METHOD的數(shù)值是Get.
If RequestMethod = "GET" Then

' 檢查REQUEST-METHOD的數(shù)值.If結(jié)構(gòu)含有一個(gè)塊代碼，當(dāng)條件為真時(shí)被執(zhí)行,含有一個(gè)Else塊,條件為假時(shí)被執(zhí).刷新頁面.

%>
噢,您現(xiàn)在不能刷新并瀏覽屏幕當(dāng)前內(nèi)容!如果想更改表單數(shù)據(jù),請(qǐng)用后退鍵回到表單,或按提交返回.
<%Else
%>歡迎光臨隨風(fēng)起舞!

' 按下表單提交按鈕顯示.

<%
= Request.Form("Name")
%>.
您最喜歡的國產(chǎn)汽車:

<%DIM favCaramre
favCaramre = Request.Form("Caramre")
If favCaramre = "OLYMPUS " Then
Response.Write("噢,請(qǐng)稍候!")
Response.Write("A OLYMPUS ?")
Else
Response.Write(favCaramre & ".棒極了!")
End If
%>
<%End If%>
</body></html>