彰化縣政府補助辦理網頁設計資料庫應用班 Response物件介紹 建國技術學院資管系 饒瑞佶
物件 Object 物件是什麼？ 真實世界：桌子，課本，人…等實體看的見的東西 電腦世界：模仿真實世界，將實物轉成電腦可理解 的樣子 物件的兩大法寶：屬性與事件(方法) 例如人有姓名，身份証…(屬性) 人會說話，寫字，打電腦..(方法) 爲什麼要這樣呢？
物件 Object 定義後可以重複使用 例如人(類別，虛幻)都有眼睛，鼻子.. 但是每個人(真實物件)的眼睛大小不同，鼻子高低不同.. 程式設計中的物件也相同 由類別定義可以得到無限多個物件 我只要知道它有什麼特徵(屬性與方法)就好 使用者不需要管程式怎麼寫的(我們就是這類) 當然程式設計師要管，要設計這些屬性與方法
物件 Object 使用者只有使用權 物件A.屬性 物件A.方法 物件B.屬性 物件B.方法 物件C.屬性 物件C.方法 需要公開 類別1 定義屬性與 方法 需要公開 裡面的運作不公開
物件 Object ASP裡共有六大物件： Response物件 Request物件 Application物件 Session物件 Cookie物件 Server物件
Response物件 將資料輸出到瀏覽器 Write：輸出資料 Redirect ：讓網頁轉向 End ：結束資料輸出 Buffer ：設定緩衝區 Clear ：清除緩衝區 Flush ：輸出緩衝區 IsClientConnected ：瀏覽器是否連線
Response.Write 可以與HTML標籤混合使用 可以簡寫成<%=資料%> <% Response.Write "<BODY BGCOLOR=""#FFFFFF"">" Response.Write "我的第一個 ASP 網頁" Response.Write "<HR>現在的時間是：" Response.Write Now Response.Write "</BODY>" Response.Write "</HTML>" %> <HTML> <BODY BGCOLOR="#FFFFFF"> 我的第一個 ASP 網頁 <HR>現在的時間是： <% Response.Write Now %> </BODY> </HTML> 可以簡寫成<%=資料%>
Response.Write Fruit0.asp , p.205 <% weekstr = Array( "日", "一", "二", "三", "四", "五", "六") Nweek = DatePart("w", Date() ) - 1 ' 今天是星期幾 Cweek = weekstr(Nweek) %> <HTML><BODY BGCOLOR="#FFFFFF"> <H2>星期<%=Cweek%>的水果是</FONT> <HR WIDTH="100%"></H2> <CENTER> <IMG SRC="fruit<%=Nweek%>.gif"> </CENTER> </BODY> </HTML>
將HTML標籤融入ASP中 如何改的更簡單？ <% Name = "彭麗莎" Sex = "女" Blood = "AB" Married = "已婚" Tel = "0932054088" Address = "台北市凱達格藍大道一號" DisplayTableData %> Sub DisplayTableData() Response.Write "<TABLE Border=1>" Response.Write "<TR><TD>姓名：" & Name & "</TD></TR>" Response.Write "<TR><TD>性別：" & Sex & "</TD></TR>" Response.Write "<TR><TD>血型：" & Blood & "</TD></TR>" Response.Write "<TR><TD>已婚：" & Married & "</TD></TR>" Response.Write "<TR><TD>電話：" & Tel & "</TD></TR>" Response.Write "<TR><TD>地址：" & Address & "</TD></TR>" Response.Write "</TABLE>" End Sub 如何改的更簡單？
Response.Redirect 讓網頁轉向，要在沒有資料輸出到瀏覽器前才可以 Response.Redirect 目的網址 Response.redirect “01.htm” Response.redirect “../ch02/01.htm” Response.redirect “http://www.ckit.edu.tw” /：根目錄 ../：上一層目錄
Response.Redirect Fruit1.asp, p.211 <% week = DatePart("w", Date() ) - 1 ' 今天是星期幾 WhichPage = "0" & week & ".htm" Response.Redirect WhichPage %> 帳號密碼登入網頁
Response.End 通知Server (IIS) 不管Response.end後面所寫的任何東西 <% data1 = Request("Name") data2 = Request("Love") If Request("Name") = Empty Then Response.Write "對不起, 您沒有輸入 Name 參數!" Response.End End If If Request("Love") = Empty Then Response.Write "對不起, 您沒有輸入 Love 參數!" %> <HTML> <HEAD><TITLE>Welcome!</TITLE></HEAD> <BODY BgColor="#FFFFFF"> <Center><H2> <%=data1%> 歡迎您，您喜歡的電腦學科是 " <%=data2%> <HR></H2></Center> </BODY> </HTML>
Response.Buffer 先將輸出資料放入緩衝區，等到下列情況再輸出： Server解讀完ASP檔案時 呼叫Response.End方法 呼叫Response.Flush方法 設定Response.Buffer需要在沒有資料輸出到瀏覽器之前
Response.Buffer <% Response.Buffer = True %> <HTML> <BODY> <% Response.Write "強制送出緩衝區的資料" Response.Flush Response.Write "接下來要取消緩衝區的資料" Response.Clear %> </BODY> </HTML>
Response.Buffer用於程式測試 <!--#include file="Output.asp" --> <% weekstr = Array( "日", "一", "二", "三", "四", "五", "六") Nweek = DatePart("w", Date() ) - 1 ' 今天是星期幾 Output "Nweek=", Nweek Cweek = weekstr(Nweek) Output "Cweek=", Cweek %> <HTML><BODY BGCOLOR="#FFFFFF"> <H2>星期<%=Cweek%>的水果是<FONT Color=Red>(測試版)</FONT> <HR WIDTH="100%"></H2> <CENTER> <IMG SRC="fruit<%=Nweek%>.gif"> </CENTER> </BODY> </HTML>
Response.IsClientConnected 判斷瀏覽器與伺服器是否還在連線之中 True 表示 有 False 表示 沒有 如果檢查出為False就可以使用Response.End來切斷輸出，以免浪費系統資源
Request物件介紹
Request物件 用來讀取瀏覽器的資料 來源可以是：瀏覽器的網址輸入欄 自行設計的表單 <HTML> <HEAD><TITLE>Welcome!</TITLE></HEAD> <BODY BgColor="#FFFFFF"> <Center><H2> <% data1 = Request("Name") data2 = Request("Love") Response.Write data1 Response.Write " 歡迎您，您喜歡的電腦學科是 " Response.Write data2 %>! <HR></H2></Center> </BODY> </HTML> <HTML> <BODY BgColor=#FFFFFF> <FORM Action=Echo.asp Method=GET> 姓名：<INPUT Type=Text Name=Name Size=20><P> 興趣：<INPUT Type=Text Name=Love Size=20><P> <INPUT Type=Submit Value="傳 送"> </FORM> </BODY> </HTML>
表單設計 <FROM ACTION=伺服器ASP程式 METHOD=GET> 輸入表單設計內容 <Input type=submit value=“傳送”> <Input type=reset value=“取消”> </FORM> <HTML> <BODY BgColor=#FFFFFF> <FORM Action=Echo.asp Method=GET> 姓名：<INPUT Type=Text Name=Name Size=20><P> 興趣：<INPUT Type=Text Name=Love Size=20><P> <INPUT Type=Submit Value="傳 送"> </FORM> </BODY> </HTML>
表單設計－文字輸入 共有三種形式 文字輸入框 Text 密碼輸入框 Password 文字輸入區 TextArea <INPUT Type=“Text” Name=“Name” Size=20> <INPUT Type=“Password” Name=“Name” Size=20> <Textarea Name=“Name” Rows=“4” Cols=“60”> </Textarea>
表單設計－文字輸入 <% Memo = Request("Memo") <HTML> <HEAD><TITLE>文字輸入區(TextArea)展示程式</TITLE></HEAD> <BODY BGCOLOR=#FFFFFF> <H2 ALIGN=CENTER>文字輸入區(TextArea)展示程式<HR></H2> <FORM Action=echo2.asp Method=POST> 留言：<P> <textarea name="Memo" rows="4" cols="60"></textarea><P> <INPUT Type=Submit Value="傳 送"> </FORM> </BODY> </HTML> <% Memo = Request("Memo") Memo = Replace(Memo, vbCrLf, "<BR>") %> <HTML> <BODY BGCOLOR=#FFFFFF> <H2 ALIGN=CENTER>文字輸入區展示程式 - 您輸入的內容是<HR></H2> <%=Memo%> </BODY> </HTML>
表單設計－訪客留言版 <HTML> <BODY BgColor="#FFFFFF"> <FORM Action="gbook.asp" Method="POST"> <TABLE Border=0> <TR> <TD>姓名：</TD> <TD><Input Type="Text" Size="20" Name="Name"></TD> </TR> <TD>Email：</TD> <TD><Input Type="Text" Size="60" Name="Email"></TD> <TR Valign=Top> <TD>留言：</TD> <TD><Textarea Name="Word" Rows="6" Cols="60"></Textarea></TD> </TABLE> <INPUT Type=Submit Value="傳送"> </FORM> </BODY> </HTML>
表單設計－下拉式選單 <Select Name=“city” size=“4” Multiple> <option>台北市</option> <option>台中市</option> <option>台南市</option> </select>
表單設計－下拉式選單 <form action="echo3b.asp" method="POST"> <p><select name="City" size="4" multiple> <option>台北市</option> <option>台中市</option> <option>台南市</option> <option>高雄市</option> </select></p> <p><input type="submit" value=" 傳 送 "></p> <hr> </form> <% City = Request("City") CityList = Replace(City, ", ", "<LI>") %>
表單設計－核取方塊 <input type=“checkbox” checked name=“taipei” value=“on”>台北市 <FORM Action=Echo4.asp Method=GET> <UL> <INPUT Type=CheckBox Name=DB Value=ON>VB 5.0 與資料庫程式設計<BR> <INPUT Type=CheckBox Name=EX5 Value=ON>VB 5.0 實戰講座<BR> <INPUT Type=CheckBox Name=AX Value=ON>VB5 與 ActiveX 程式設計<BR> <INPUT Type=CheckBox Name=LEARN5 Value=ON>新觀念的 VB 教本(5.0 版) <BR> <INPUT Type=CheckBox Name=LEARN4 Value=ON>新觀念的 VB 教本(4.0 版) <BR> <INPUT Type=CheckBox Name=EX4 Value=ON>VB 實例領航手冊(4.0 版) <BR> <INPUT Type=CheckBox Name=HP Value=ON>Homepage 完全起家手冊<BR> </UL> <INPUT Type=Submit Value="送出"> </FORM>
表單設計－選擇鈕 <input type=“radio” name=“city” value=“taipei”>台北市 <input type=“radio” checked name=“city” value=“taichung”>台中市 <FORM Action=echo5.asp Method=GET> 性別: <INPUT Type=Radio Name=sex Value="male" Checked>男 <INPUT Type=Radio Name=sex Value="female">女<P> 血型: <INPUT Type=Radio Name=blood Value="A" Checked>A <INPUT Type=Radio Name=blood Value="B">B <INPUT Type=Radio Name=blood Value="AB">AB <INPUT Type=Radio Name=blood Value="O">O<P> <INPUT Type=Submit Value="送出"> </FORM>
表單設計－其他類型 runpc53.htm 與 runpc52.htm 程式可以自動判別使用者輸入的是哪一期的 資料 <input type=“Hidden” name=“city” value=“taipei”>台北市 runpc53.htm 與 runpc52.htm 程式可以自動判別使用者輸入的是哪一期的 資料
表單與ASP結合 <HTML> <HEAD><TITLE>表單與 ASP 程式的合體</TITLE></HEAD> <BODY BGCOLOR=#FFFFFF> <H2 ALIGN=CENTER>表單與 ASP 程式的合體<HR></H2> <% If Request("Send") = Empty Then %> <FORM Action=Formasp1.asp Method=POST> <INPUT Type=Hidden Name=Send Value="Send"> 姓名：<INPUT Type=Text Name=Name Size=20><P> 興趣：<INPUT Type=Text Name=Love Size=20><P> <INPUT Type=Submit Value="傳 送"> </FORM> <% Else %> <Center><H2> <%=Request("Name")%> 歡迎您，您喜歡的電腦學科是 <%=Request("Love")%> ! <HR></H2></Center> <% End If %> </BODY> </HTML>