CÁC THÀNH PHẦN (COMPONENT) CỦA ASP

Một phần của tài liệu Giáo trình ASP (Trang 27 - 31)

Ngoài các đối tượng cơ bản có sẵn trong môi trường ASP, ASP việc tạo các trang Web động bằng ASP còn được trợ giúp nhờ một số thư viện các đối tượng (Active X Component) của ActiveX Server. Các thành phần được thiết kế để chạy trên Web Server như một ứng dụng Web cơ sở hợp thành các gói nhỏ đặc trưng chung là động. Mỗi thành phần được sử dụng cho một công việc chuyên biệt nhiệm cho là một thư viện các lớp (hay đối tượng), được thiết kế ở dạng Automation Server, thực hiện một nhóm công việc chung nhất cho một thao tác nào đó, chẳng hạn như truy xuất database, truy xuất file… vì thế người phát triển ứng dụng Web bằng ASP khộng cần phải tạo lại các đặc tính này.

Bạn có thể tạo động, tương tác với các trang Web bằng cách sử dụng các thành phần server đã được included với Active Server Pages (ASP) trong các đoạn script của bạn. Thành phần File Access

VI.1. Đối tượng FileSystemObject

Thành phần File Access sử dụng đối tượng FileSystemObject và TextStream để khôi phục lại và sửa đổi thông tin lưu trữ trong file trên server.

Đối tượng FileSystemObject cung cấp thao tác các tập tin văn bản từ bên trong đoạn mã của chúng ta. Chúng ta có thể tạo một thực thể của đối tượng FileSystemObject bằng cách sử dụng đoạn script sau:

Set objFSO=CreateObject(“Scripting.FileSystemObject”)

Mỗi khi chúng ta có một đối tượng FileSystemObject, chúng ta tạo đối tượng TextStream bằng cách sử dụng các phương thức của FileSystemObject

VI 1.1 Phương thức CreateTextFile

Phương thức CreateTextFile tạo một file văn bản mới hoặc viết đè lên một file đã tồn tại. Phương thức này trả về một đối tượng TextStream mà chúng ta có thể sử dụng để đọc file hoặc ghi vào file. Trước tiên chúng ta tạo một đối tượng FileSystemObject, sau đó sử dụng đối tượng này để tạo đối tượng TextStream.

Cú pháp:

[object. ]CreateTextFile(filename[, overwrite]) Các tham số:

Object Tên của một đối tượng FileSystemObject

Overwrite TRUE ghi đè lên một file đã tồn tại, ngược lại là FALSE Ví dụ: tạo một file mới và ghi dữ liệu vào file.txt

<%

Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”) Set objNewFile=obj.CreateTextFile(“C:\MyFile\file.txt”, FALSE) objNewFile.Write(“Hello”)

objNewFile.WriteLine(“Welcom”) objNewFile.Close

%>

VI.1.2. Phương thức OpenTextFile:

Phương thức OpenTextFile mở một file văn bản đã tồn tại. Phương thức này trả về một đối tượng TextStream mà chúng ta có thể sử dụng để đọc file hoặc thêm dữ liệu vào file. Trước tiên, chúng ta tạo một đối tượng FileSystemObject sau đó sử dụng đối tượng này để tạo đối tượng TextStream.

Set objFSO=CreateObject(“Scripting.FileSystemObject”) Set objNewFile=obj.OpenTextFile (“C:\TextFile\Myfile.txt”) Cú pháp:

[object. ]OpenTextFile (filename[, iomode[, create]]) Các tham số:

Object Tên của một đối tượng FileSystemObject. Filename Đường dẫn và tên tập tin muốn mở.

Iomode ForReading hoặc ForAppending. Mặc định là ForReading. Create TRUE tạo một file mới hoặc là FALSE nếu file đã tồn tại rồi. Ví dụ1: đọc một file sử dụng phương thức ReadLine

<HTML> <HEAD> <TITLE>ReadingFile.asp</TITLE> </HEAD> <BODY> <% Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”) Set objTextFile=obj.OpenTextFile(“C:\MyFile\file. txt”, 1, FALSE ) WHILE NOT objTextFile.atEndOfStream

Response.Write objTextFile.ReadLine(“Hello”) WEND objTextFile.Close %> </BODY> </HTML>

Ví dụ 2: thêm dữ liệu vào file.txt <HTML> <HEAD> <TITLE>ReadingFile.asp</TITLE> </HEAD> <BODY> <% Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)

Set objTextFile=obj.OpenTextFile(“C:\MyFile\file.txt”, ForAppending) objTextFile.WriteBlankLines(2)

objTextFile.WriteLine(“This is a new line”) objTextFile.Close

%>

</BODY> </HTML>

VI. 2.. Đối tượng TextStream

Sử dụng các phương thức và property của đối tượng TextStream để đọc hay ghi dữ liệu vào file.

Phương thức

Close Đóng một file.

Read(numchars) Đọc numchars ký tự từ file.

ReadAll Đọc toàn bộ nội dung của file TextStream.

ReadLine Đọc một dòng từ file.

Skip(numchars) Nhảy qua numchars ký tự khi đọc file. SkipLine Nhảy qua dòng kế tiếp khi đọc file. Write(string) Ghi chuỗi lên file.

WriteLine([string]) Ghi chuỗi và thêm ký tự xuống hàng lên file. WriteBlankLine(n) Ghi n dòng lên file.

Properties

AtEndOfLine TRUE nếu con trỏ file ở cuối dòng trong một file. AtEndOfStream TRUE nếu con trỏ file ở cuối file.

Column Trả về số cột hiện hành trong một file, bắt đầu từ 1. Line Trả về số dòng hiện hành trong một file, bắt đầu từ 1. Ví dụ 1: sử dụng FileSystemObject để ghi dữ liệu vào file

<%

Set objFile =Server.CreateObject("Scripting.FileSystemObject") Set objTextFile = objFile.CreateTextFile ("c:\myfile. txt", True) objTextFile.WriteLine("This is a test. ")

objTextFile.Close %>

Ví dụ 2: sử dụng FileSystemObject để đọc file <%

Set objFile =Server.CreateObject("Scripting.FileSystemObject") Set objTextFile = objFile.CreateTextFile("c:\testfile.txt", True) While NOT objTextFile.atEndOfStream

Response.Write(objTextFile.ReadLine) Wend

objTextFile.Close %>

VI. 3. Thành phần Ad Rotator

Thành phần Ad Rotator tạo một đối tượng tự động quay các hình ảnh quảng cáo trên một trang Web. Mỗi khi một user mở hoặc nạp lại trang Web, thành phần Ad Rotator hiển thị một thông báo mới dựa trên thông tin bạn chỉ định trong Rotator Schedule File Cú pháp:

Set AdRotator = Server.CreateObject("MSWC.adRotator") với AdRotator là tên của đối tượng AdRotator.

Properties

Border Chỉ định kích thước đường viền của quảng cáo banner.

Clickable Cho biết quảng cáo banner có chức năng là một siêu liên kết. Nó có 2 giá trị là TRUE và FALSE.

TargetFrame Chỉ định tên của frame để hiển thị thông báo trong đó. Methods

GetAdvertisement Lấy chi tiết thông tin về quảng cáo banner.

Để tạo một thực thể của thành phần Ad Rotator, chúng ta sử dụng phương thức CreateObject của đối tượng Server.

<% Set objAd= Server.CreateObject("MSWC.adRotator") %>

Ví dụ: Hiển thị các thông báo khác nhau mỗi khi user xem trang Web, trong đó tập tin MyAdFile.txt chứa thông tin về các quảng cáo được hiển thị.

<HTML> <HEAD> <TITLE>Adrotator Example</TITLE> </HEAD> <BODY> <%

Set objAd = Server.CreateObject("MSWC.adRotator") %> objAd.Border(0) ‘không có đường viền

objAd.Clickable(TRUE) ‘là một siêu liên kết objAd.TargetFrame(“MyFrame”)

‘nạp vào frame tên MyFrame

strHTML=objAd.GetAdvertisement(“AdFiles\MyAdFile.txt”) Response.Write(strHTML) ‘đưa HTML vào trong trang %>

</BODY> </HTML>

Một phần của tài liệu Giáo trình ASP (Trang 27 - 31)