Các thuộc tính của ð ối týợng Server

Một phần của tài liệu Giáo trình lập trình ứng dụng CSDL Web ASP pptx (Trang 55 - 61)

Đối týợng Server chỉ có duy nhất một thuộc tắnh đó là ScriptTimeOut. Thuộc tắnh này quy định thời gian lớn nhất mà các lệnh kịch bản còn đýợc thực hiệnứ ỗiá trị mặc định là ốớ giâyứ

Lýu ý là giá trịtimeout sẽ không hiệu lực khi server thực hiện các lệnh kịch bảnứ Cú pháp: Server.ScriptTimeOut = [number] 2.4.5.2. Các phýõng thức của đối týợng Server CreateObject Phýõng thức CreateObject dùng để tạo một thực thể của một đối týợngứ ắác đối týợng do phýõng thức này tạo ra chỉ có hiệu lực trong phạm vi một trangự do đó chúng sẽ bị hủy khi server xử lý xong trang ĩSP hiện hànhứ

Để tạo một đối týợng mà phạm vi của nó nhý Session hay Application, bạn có thể dùng tag ỉobject> trong file Global.asa hoặc lýu trữ đối týợng trong biến Session hay

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>

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.

<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>

</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>

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Ợ

%>

</BODY> </HTML>

Mở trình duyệt lên và thực thi file1.asp. So sánh kết quả này với kết quả ở vắ dụ của phýõng thức Serverứẫxecuteứ

URLEncode

Phýõng thức này dùng để mã hóa một chuỗi URỔứ

Cú pháp:

Server.URLEncode (stringURL)

Một phần của tài liệu Giáo trình lập trình ứng dụng CSDL Web ASP pptx (Trang 55 - 61)

Tải bản đầy đủ (PDF)

(140 trang)