Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 56 Cú pháp: Server.CreateObject (progID) Trong ðó progID là kiểu của ðối týợng cần tạoứ Ví dụ: <% Dim adrot Set adrot = Server.CreateObject(“ỹSWắứĩdRotator”ờ …………………………………. …………………………………. Set adrot = nothing %> Execute Thuộc tính ẫxecute thực thi một trang ĩSP bên trong một trang khácứ Sau khi thực thi xong file ASP ðýợc gọi thì quyền ðiều khiển ðýợc trả về cho file ĩSP ban ðầu ộfile gọiờứ Cú pháp: Server.Execute (path) Với path là ðýờng dẫn tới tập tin ĩSP cần thực thiứ Ví dụ: Tạo ẵ tập tin file1.asp và file2.asp và ðặt trong cùng thý mục với nội dung sau: File1.asp <HTML> <BODY> <% Response.Write “Ðang ở file ử” Server.Execute (“ỳileẵứasp”ờ Response.Write “ Trở về file ử” %> </BODY></HTML> File2.asp <HTML> <BODY> <% Response.Write “Ðang ở file ẵ” %> </BODY> </HTML> Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 57 GetLastError Phýõng thức này trả về một ðối týợng ASPError mô tả lỗi xuất hiệnứ ỹặc ðịnh trang web dùng tập tin \iishelp\common\500-100.asp ðể xử lý các lỗi trong ĩSPứ ẹếu cần thì bạn có thể tạo hoặc thay ðổi tập tin ðể ðýa ra những câu thông báo thân thiện hõnựứứ Chú ý: Phýõng thức này ðýợc dùng trýớc khi tập tin ĩSP gởi bất cứ nội dung gì xuống bowserứ Cú pháp: Server.GetLastError() Ví dụ: Trong ví dụ sau ðây sẽ xuất hiện một lỗi chia cho ớ <HTML> <BODY> <% Dim i, tong, j i = 0 j = 0 tong = 0 for i = 1 to 10 do tong = tong + i next tong = tong/j %> </BODY> </HTML> HTMLEncode Phýõng thức này dùng ðể mã hóa dạng ẳTỹỔ một chuỗi Cú pháp: Server.HTMLEncode(string) Ví dụ: Ðoạn chýõng trình sau ðây cho phép ngýời dùng nhập vào username và password, sau ðó nhấn nút loginứ ẹếu ngýời dùng login sai thì sẽ bắt ngýời dùng nhập lại password. Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 58 <HTML> <BODY> <% Dim uname,upass uname=Request.Form("uname") upass=Request.Form("upass") if (uname="test") and (upass="test") then Response.Redirect("main.asp") elseif (uname<>"") or (upass<>"") then Response.Write("Account nay khong hop le <BR>") end if %> <form name="login" method="POST" action="login.asp"> <TABLE border = "2"> <tr> <TD> Dang nhap </TD></TR> <TR> <TD> <TABLE border = "1"> <TR> <TD> Username: </td> <TD><input type="text" name= "uname" value="<%=server.HTMLEncode(uname)%>"> </TD></TR> <TR> <TD>Password:</TD> <TD><input type="password" name= "upass"></td></tr> </TABLE> </TD> </TR> <TR> <TD><input type="submit" name= "submit" value="Login "></TD> </TR> </TABLE> Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 59 </FORM> </BODY> </HTML> MapPath Phýõng thức này ánh xạ một ðýờng dẫn nào ðó sang một ðýờng dẫn vật lýứ Phýõng thức này không ðýợc dùng trong sự kiện Session_OnEnd và Application_OnEnd. Cú pháp: Server.MapPath (path) Chú ý: Nếu path bắt ðầu bằng ký tự ụ hoặc \ thì các ký tự này ðại diện cho ðýờng dẫn vật lý của thý mục ảo của tập tin ĩSP hiện tạiứ Ví dụ: Giả sử bạn có tập tin testứasp ðặt trong thý mục C:\Inetpub\wwwroot\Script với nột dung sauồ <HTML> <HEAD> <TITLE> Kiểm tra ỹapPathỉụTỡTỔẫặ </HEAD> <BODY> <% Response.Write(Server.MapPath(“testứasp”ờ ạ “ỉbrặ”ờ Response.Write(Server.MapPath(“Scriptụ testứasp”ờ ạ “ỉởRặ”ờ Response.Write(Server.MapPath(“ụScriptụ testứasp”ờ ạ “ỉbrặ”ờ Response.Write(Server.MapPath(“ụ”ờ ạ “ỉbrặ”ờ Response.Write(Server.MapPath(“\”ờ ạ “ỉbrặ”ờ %> </BODY> </HTML> Khi duyệt trang testứasp này ta ðýợc kết quả nhý sauồ Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 60 Transfer Phýõng thức này gởi ộchuyểnờ tất cả các thông tin về trạng thái ộcác biến Session, các biến Application, các dữ liệu trong tập Request ) của tập tin ĩSP hiện tại cho một tập tin ĩSP thứ haiứ ẩhi trang thứ hai thực hiện xong thì quyền ðiều khiển không trả về cho trang trýớc ðó ộxem thêm phýõng thức Execute). Phýõng thức Transfer là một dạng khác của phýõng thức Response.Redirect nhýng lại hiệu quả hõn bởi vì phýõng thức Response.Redirect buộc Server phải giữ lại một Request giả trong khi phýõng thức Server.Transfer thì chuyển quyền ðiều khiển cho một trang ĩSP khác trên serverứ ộxem thêm phýõng thức Response.Redirect) Cú pháp: Server.Transfer (path) Ví dụ: Tạo ẵ tập tin file1.asp và file2.asp và ðặt trong cùng thý mục với nội dung 2 file nhý sauồ File1.asp <HTML> <BODY> <% Response.Write “ừòng ử trên fileửứasp” Server.Transfer(“ỳileẵứasp”ờ Response.Write “ ừòng ẵ trên fileửứasp” %> </BODY> </HTML> File2.asp <HTML> <BODY> <% Response.Write “ừòng ử trên file2.asp” Response.Write “ừòng ẵ trên file2.asp” . øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 57 GetLastError Phýõng thức này trả về một ðối týợng ASPError mô tả lỗi xuất hiệnứ ỹặc ðịnh trang web dùng. Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 56 Cú pháp: Server.CreateObject. dùng login sai thì sẽ bắt ngýời dùng nhập lại password. Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 58 <HTML> <BODY>