Giáo trình lập trình ứng dụng CSDL Web ASP
Bạn đang xem 20 trang mẫu của tài liệu "Giáo trình lập trình ứng dụng CSDL Web ASP", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên
Tài liệu đính kèm:
- giao_trinh_lap_trinh_ung_dung_csdl_web_asp.pdf
Nội dung text: Giáo trình lập trình ứng dụng CSDL Web ASP
- id231265 pdfMachine by Broadgun Software - a great PDF writer! - a great PDF creator! - Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === 1 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Lêi nãi ®Çu Internet ®· ®•a nÒn c«ng nghÖ th«ng tin cña thÕ giíi b•íc vµo mét trang sö míi. C¸c trang Web còng ®· thùc sù lµm r¹ng rì kû nguyªn th«ng tin b»ng søc m¹nh cña nã. Víi HTML lµ ng«n ng÷ c¨n b¶n cña m×nh, Web ®· hiÓn thÞ vµ truyÒn t¶i ®•îc c¸c v¨n b¶n, ©m thanh vµ h×nh ¶nh qua Internet, tuy nhiªn HTML chØ ®¬n gi¶n m« t¶ c¸ch thøc v¨n b¶n, ®å ho¹ vµ nh÷ng d÷ liÖu kh¸c hiÖn thÞ trªn mµn h×nh Web mµ kh«ng m« t¶ b¶n th©n d÷ liÖu vµ còng kh«ng tiÖn dông trong viÖc ®Þnh vÞ, söa ®æi tµi liÖu. B¶n th©n HTML lµ tÜnh v× thÕ khi mét trang Web ®· ®•îc ®•a lªn Internet nã ph¶i ®•îc söa ®æi, bæ sung ngo¹i tuyÕn vµ n¹p l¹i th× míi cã hiÖu lùc. §ã chÝnh lµ nh÷ng mÆt h¹n chÕ cña HTML bëi v× søc m¹nh tèi th•îng cña Web chÝnh kh¶ n¨ng chuyÓn th«ng tin míi cho kh¸ch hµng gÇn nh• theo thêi gian thùc vµ cã kh¶ n¨ng tuú biÕn th«ng tin ®ã cho phï hîp víi tõng ng•êi, trong thÕ giíi cña Web, kh¶ n¨ng ®ã cßn ®•îc gäi lµ kh¶ n¨ng c¸ biÖt ho¸. Víi c¸c trang Web ®éng c¸c nhµ qu¶n trÞ vµ thiÕt kÕ Website chØ cÇn t¹o trang Web mét lÇn , ®ã lµ mét trang mÉu chung, sau ®ã server sÏ ®æ d÷ liÖu chuyªn biÖt vµo trang mÉu chung vµ t¹o c¸c trang chuyªn biÖt theo tõng yªu cÇu. Microsoft ®· ®•a ra mét ng«n ng÷ míi gióp cho viÖc lËp tr×nh m¸y chñ vµ t¹o ra c¸c Web ®éng mét c¸ch hiÖu qu¶ - ®ã lµ ASP ( Active Server Pages). ASP sÏ gióp cho c¸c nhµ thiÕt kÕ vµ nhµ qu¶n trÞ cã thÓ t¹o ra c¸c Website cã c¸c trang Web ®éng ®a n¨ng vµ m¹nh mÏ. Gi¸o tr×nh nµy sÏ gióp b¹n cã nh÷ng hiÓu biÕt kh¸ c¬ b¶n vÒ ASP, b¾t ®Çu tõng b•íc tõ ®¬n gi¶n ®Õn phøc t¹p. Chóng t«i rÊt hy väng nã thùc sù h÷u Ých ®èi víi b¹n. Trong qu¸ tr×nh x©y dùng gi¸o tr×nh nµy, chóng t«i kh«ng tr¸nh khái nhiÒu thiÕu xãt, mong nhËn ®•îc nhiÒu ý kiÕn vµ gãp ý tõ c¸c b¹n. Xin c¶m ¬n. huudq@einfovn.com === St by hoangly85 === 2 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Chýõng 2 - Lập trình CSDL với ASP I. TỔNG QUAN VỀ ASP ầ ẽ ể ổ ề ĩ ứ ắ ạ ẽ ể ðýợ Trong ph ASP là gì? Ta có thể làm ðýợc những gì với ASP? ASP hoạt ðộng thế nào? Làm thế nào ðể thiết kế ðýợc một Website bằng ASP? Sau khi thiết kế ðýợc Website bằng ASP, làm thế nào ðể ðýa (xuất bản - publish) nó lên mạng? Tìm hiểu ASP thông qua một ví dụ ðõn giản 1.1. ASP là gì?. ộ ýờ ậ ủự ASP (Active Server Pages) l ự ộ ðộ ộ ữ ứ ta x b pages) v ụ ẽ ề d eb. ớ ữ ữ ậ ý ự ẳ ự ắ ỳ ự Kh ðề ử ụ ữ ủ ự ĩ ử ụ ữ ð ẵ ổ ế ý ỏ ở ứ Ð ữ ữ ấ ðõ ả ễ ử ph n ng ụ ứ d ý ằ ữ ữ ớ ạ ự ðể ế ýõ L u ðõ ả ứ Ðể ự ệ ữ ệ ứ ạ ý ế ố ắ ừỔự ậ ðồ tr ạự ế ớ ế ị ầ ứ ựứứứ ả ử ụ ộ ầ ờ ho ð ðýợ ạ ýớ ằ ữ ậ ạ ẽ õ ý ắủủự ởựứứứ ắ ủ ĩ ỉ ệ ọ ðế ứ script c ộ ĩ ộ ệ ộ ờ phần mở rộng là .ASP ðýợ ðặ ộ M v ý ụ ủ. Nộ ủ ự ế ợ ủ ẻ ẳ ỹỔự th m tr ữ ị ả ộ ờ ý ầ ộ ng JavaScript, VBscript v - ý ừỔỔ ĩ ứứờ ðýợ ế ữ ằ ạ nh c h ộ ứ ụ ạ ẽ ỉ ả ã ả ậ ứ m ng b ộ ủ ộ ĩ ðýợ ả ồ N Trang.ASP ộ ã ả 1. N n b ẻ ẳ ỹỔặ 2. C -side script 4. === St by hoangly85 === 3 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ý ậ ự ộ ĩ ự ế ợ ủ ấ ầ ồ Nh v ã ả ộ ữ ýờ ử ụ ể ðýợ 1. C n b ệ ờứ duy ẻ ẳ ỹỔ ộ ằ ã ẻ ỉặờ ðể ð ề ể ệ ể ị 2. C p th i ã ả ứ c n b ðýợ ế ằ ỏ ặ ở ờ ðể 3. C -side script ( ã ýờ ả ã ýõ ữ ủ ớ ýờ ử ụ t ng c ng t ng t ử ộ ðộ ủ ạ ệ ạ v t tr ầ ạ ớ ứ ắ ýờ ðýợ ế m -side script th ằ ữ ỏ ả ðýợ ðặ ữ ặ ẻ ỉ ặ b ph . ớ ầ ự ồ ủ ả ðýợ ả ệ V ủ ạ ả ệ ả ể ðýợ ự ử ể c m. Ch ị ộ ýờ ứ ẹ ýờ ể ðýợ ộ th ồ ủ ầ ứ ngu ầ ứ ý ẽ ể ýõ ự 4. Th , m ng n - ữ ð ạ ðýợ ế ằ ữ side Script. Ch o ặ ũ ể ằ ỏ ờự ðể ậ VBScript (ho ủ ộ ờự ĩ ðýợ ị ử ạ ủ ch ằ ị ĩ ộðýợ ðặ ị – b IIS tr ýớ ờứ ắ ðýợ ðặ ặ ẻ “ ”ứ b -side script ể ế ệ ế ố ắ ừỔự ử ữ ệ ự ðọ ụ ệ ự Ta c ấ ả ữ ớ ệ ố ạ ủ ế ầ ứ t ðýợ ị ự ự ẽ ữ ứ th c -side script s ế ả ủ ủ ầ 1., 2., 3. ở ỡỡ ẽ ử ề K ệ ạ ứ cho tr Lýu ý là một trang ASP không bắt buộc phải có ðầy ðủ cả 4 thành phần trên . Nghĩa là, nó có thể chỉ có hoặc chỉ có các mã HTML mà không có . Trong trýờng hợp trong một trang ASP mà không có thì toàn bộ mã nguồn của trang ASP ðó sẽ ðýợc Web Server gửi trực tiếp cho trình duyệt của máy tràm mà không cần phải xử lý gì cả. ðổ ự ử ĩ ỉ ầ ạ ộ ờ Khi thay ứ ữ ầ ĩ ðýợ ọ ự server m ẽ ðýợ ự ðộ ị ạ ứ ASP s === St by hoangly85 === 4 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 1.2. ASP làm việc nhý thế nào? ế ợ ĩ ộ ự ĩ ẽ ệ ế Khi k sau : ồ ở ạ ự ở ệ ộ ờ ụ ý User ng Internet Explorer ặ ẹ ẹ ồ ậ ðị ỉ ớ õ ðặ ệ ĩ ủứ ho i ệ ủ ắ ðầ ầ ĩ ứ Tr duy ậ ðýợ ầ ẽ ể ố ðế Web Server (IIS) nh ị ĩ ầ ị ĩ ị ứĩ ạ bi P bi ầ ứ c ủ ĩ ắ ðầ ðýợ ử ứ C er b ử ðýợ ầ ừ ộ ụ ừ ố ASP x ýớ ộ ự ứ ĩ ồ ế ấ ộ d -down), th trang Web HTML. ừ ðýợ ả ấ ẽ ðýợ ử ớ ệ ủ ạ Trang HTML v duy ạ ứ tr ở ạ ẽ ử ộ ế B ẳ ỹỔ ể ðýợ ả ấ ðýợ ử ớ ệ ủ ứ Ð ề tr i ð ĩ ằ ủ ạ ị ạ ế ạ ữ c ể ấ ứ c ộ ý ð ể ủ ệ ðặ ủ ạ ẽ M u i ể ấ ẫ ủ ạ ðýợ ứ ð ỉ kh user ch ể ðýợ ộ ủ ẳ ỹỔ ð ðýợ ả ấ ứ th 1.3. Giới thiệu về Internet Information Server (IIS): 1.3.1. IIS là gì? I I S ị ụ ấ Microsoft nternet nformation ervices (c ị ụ ủ ạ ề ẳệ ð ề ằ Internet) l i ấ ạ ự ồ ề ị ụ ý cung c n l ể ðýợ ử ụ ðể ấ ả ộ ủ Web Server, FTP Server, N ỡ ụỡ ằ ệ ử ụ “ ýõ ứ ể ã ả “ Web l ng th n b - Hypertext Transport Protocol (HTTP). === St by hoangly85 === 5 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ý ậ ự ạ ế ế ủ ự ế ạ ố ðý Nh v a ạ ðể ọ ýờ ể ậ ạ ả ờ ðế ộ ch ở ð ỡỡ ứ ẹế ủ ạ ỉ ể ðýợ Web Server, ủ ạ ặ ệ ẻ ệ ộ ờ ý ệ ấ ỳ ch a b c ạ ộ ộ ứ trong m 1.3.2. IIS có thể làm ðýợc gì? ệ ụ ủ ỡỡ ế ậ ầ ủ ạ ð ứ ạ ầ ð Nhi ằ ử ề ạ ữ ạ ầ ứ ởạ ể ử ụ b tr ðểồ IIS ấ ả ộ ủ ạ ỡ Xu ạ ị ýõ ạ ð ệ ử ỡ ộ ệ T ng m i ậ ðýợ ðõ ðặ ừ ờ ờ nh n ẻ ữ ệ ứ ỳ ứ Chia s ýờ ở ể ấ ủ ạ ộ ọ ừ Cho ph p ng ấ ề ả ã ứứứ remote access). V ng kh 1.3.3. IIS hoạt ðộng nhý thế nào? ử ụ ứ ạ ổ ế ẳ ộẳ IIS s ỳ ộỳ ộ ố ứ ý ỹ ự Protocol) v l) v ðể ế ậ ầ ề ả ạ ớ ðị ạ POP3, nhau. ộ ữ ị ụ ổ ế ấ ủ ỡỡ M ị ụ ộ ờự ắ ị ụ ứ ừị ụ gi t ử ụ ứ ẳ ðể ế ậ ầ ộ ờ ủ ệ Web s ýớ ạ ộ ðị ỉ Ổ ộ Ổ ờ ủ ộ (Web browser) d ỡỡ ả ồ ạ ầ ằ ử ề ộ ủ Web v r n ýõ ứ ứ trang Web t 1.3.4. Cài ðặt IIS ệ ạ ð ả ếứớự ấứớ ảứửứ ẹ ðặ Hi c ắ ữ ứ kh ý ồ ố ấ ả ộ ừ ðĩ ắừ ặ ừ ỡ ờ ặ L u ả ả tham kh : === St by hoangly85 === 6 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ðặ Version C ĩ ụ C Windows 98 Programs trong Control Panel ỡ ỡ C ặ Window NT server 4.0 Add/Remove Programs trong Control Panel ho trong Windows NT Option Pack ỡ ỡ C Windows 2000 Add/Remove Programs trong Control Panel Ðể ỡỡ ự ðý ðĩ ẵẩụ ọ -> Settings- >Control Panel-> Add/Remove Programs -> Add/Remove Windows components -> ọ ỡ ch t Information Services -> Next. Giao diện màn hình cài IIS 1.3.5. Nạp một ứng dụng Web lên IIS ủ ðể ộ ýớ ả ạ ứ ụ Sau khi c IIS, xem m t trang ASP tr c ti i n p ng d ng ứ ủ IIS ýớ ự ệ ý ồ ch a trang ASP l Web , c c th c hi n nh Býớc 1 ở ủ ỡỡ ằ 1. : M tr -> Sittings -> Control panel -> Administrative Tools -> Internet Services Manager. Býớc 2 ạ ý ụ ả ộ ừ ờ ứ ụ ứ ýờ ỗ ứ 2. : T ụ ðýợ ðặ ộ ý ụ ðýợ ế ðế ðị ỉ d hi URL. Cách tạo thý mục ảo ỡ ỡ : Tr Default Web Site New Virtual Directory v -> -> . === St by hoangly85 === 7 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Tạo thý mục ảo cho ứng dụng ậ ệ ĩ ủ ộ ạ Virtual Directory Creation Trong Wizard ậ ý ụ ả ự ấ ứ ta nh ọ ðýờ ẫ ý ụ ậ ứ ứ ụ ứ Ch ýờ ý ụ ứ ứ ụ ðýợ ðặ C:\Inetpub\wwwroot th , ọ ý ụ ậ ứ ứ ụ ấ ẹ ðể ðế ch ấ ả ệ ðặ ề ý ụ ả ứ c Chọn ðýờng dẫn vật lý cho thý mục ảo Ðặ ề ý ụ ả ý ýớ ứ ắ ấ ả ả ề ồ Read ðọ ộ ờự Runscript ự (cho ph (cho ph ị ả ờự Execute ự ứ ụ ắỗỡờự Write k (th (cho ph ý ụ ả ờự Browse ộ ộ ý ụ th (cho ph === St by hoangly85 === 8 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ặ ðị ờứ ẳ ề Read Run script ầ ế ðể trang Web m v l ể ấ ðýợ ứ ASP c Màn hình cấp quyền truy cập thý mục ảo ðặ ạ ề ả ệ ý ụ ả ế ðộ ả ậ ằ Ch o v ấ ộ ả ý ụ ả ớ ạ ự ồ ứ c Màn hình Properties của thý mục ảo Býớc 3: ế ậ ặ ðị ý ụ ả ứ 3. Thi ộ ðị ỉ Ổ ế ðế ộ ứ ụ Khi m ðý ụ ểự ủ ẽ ử ụ ặ ðị ứ ể kh c ế ậ ộ ặ ðị ự ấ IIS ẽ ứ ự ý ừ thi s ố ýớ ứ xu === St by hoangly85 === 9 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ðể ậ ặ ðị ý ụ ả ứ ừ ự ụ Document ạ ể ặ ộ ặ ðị ằ . B ọ Add Remove ch hay . Màn hình thiết lập trang Web mặc ðịnh cho ứng dụng Býớc 4 Ðể ở ệ Internet Explorer ðị 4. : -> G ỉ Ổ ủ ụ Address ch . ế ð ạ ặ ðị ý ụ ả “ ứ ” ỉ ầ N ðị ỉ ồụụ ụẫ ứ g 1.4. Bắt ðầu với ASP qua một ví dụ nhỏ 1.4.1. Mục ðích của chýõng trình ẽ ự ộ ứ ụ ĩ ứ ã ý Ta s ng nh sau : ệ ự ẽ ể ờ ệ ạ ế ồ Khi user duy ýớ ửẵ ờ ý ẽ ệ “ ắ ổ ” - Tr a s ừ ửẵ ờ ý ớ ễ ờ ề ệ “ ắ ổ ề “ - T a t ờ ề ệ “ ắ ổ ố ” - Sau 6 gi 1.4.2. Các býớc thực hiện === St by hoangly85 === 10 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 1. Xác ðịnh tên máy chủ của bạn và cài ðặt IIS 2. Tạo một thý mục ðể lýu trữ các trang .asp, .htm của bạn 3. Tạo ra một tệp vãn bản thông thýờng (plan text) có phần mở rộng của tệp là .asp và viết các script của ASP, các client-side script (Java Script), các thẻ HTML cần thiết vào ðó. Có thể dùng trình soạn thảo vãn bản ðõn giản nhý notepad ðể soạn nội dung của trang .asp này. 4. Tạo một thý mục ảo (Virtual Directory) bằng IIS Console ðể ðýa (xuất bản) các trang .asp, .htm của bạn lên mạng. 5. Chạy thử bằng trình duyệt Web. ýớ ế ự ả ấ ả ðặ ỡ ỡ Tr ấ ụ ý Services . C sau : Ðặ – ự ấ ðặ ộ ụ ờứ Ðể th ðặ ộ ả ể ýợ ẹ ẹ bi ề ồ ọ ụ ẹ ỡ ứ m ồ ậ K ỉ ầ ấ ộ ầ ðầ C ạ ộ ý ụ ðĩ ủ ự ạ ð ẽ ý ệ ả ử T m y ta s u c ASP, gi C:\ViduASP ở ộ ạ ả ã ả ấ ỳ ộẹ ủ ẳ ạ ờ ðể M n b ạ ả ệ ĩ ứ ẹ ậ ộ ý ụ ắồ ớ so m \ViduASP v vd1.asp. ữ ðýợ bôi ðậm ụ ýớ ð Ch trong v ver-side ủ ĩ Script c === St by hoangly85 === 11 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ụ ề ĩ ỉụ ặ V = #00:00:00# And TG Chao buoi sang #12:00:00# And TG Chao buoi chieu Chao buoi toi ả ệ Gi ả ĩ ủ ệ ýõ ồ Gi ng STT d M ứ ắ ðầ ử ệ ẳ ỹ 1 B L ụ ề ĩ ệ ðề ủ V Hi 2 ” ”ặ Ðặ ề 3 B trong c ẻ ỉề ềặứ ỗ ế ỗ ị th ờ ệ ạ ứ Ổý ằ ð ờ 5 th u y l ệ ạ ứ ả gian hi ờ ạ ạ ộ ờ th ử ụ ứứ ể = #00:00:00# S xem c ả ổ ự ể ả 6 And TG cho trong # # ế ả ð ề ệ ẻ 7 Chao buoi sang N i === St by hoangly85 === 12 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP in ra m ử ụ 8 S ể ả ổ ề ứ #12:00:00 # Ki ph 9 And TG ế ð 10 Chao buoi chieu N ng , in ra c ế ả ýờ ợ ổ N 11 ố t 12 Chao buoi toi Ð ệ 13 ng l Ð ệ 14 ng l ẻ ế ủ ẳ ỹỔ C th 15 ử ụ ỡỡ ðể ấ ả ộ ờ ý ụ ắồ ạ S m \ViduASP l Ðể ể ệ ðế ý ụ ắồ ở ự ả m \ViduASP ạ ộ ộ ý ụ ả ờ ỉ ðế ý ụ ắồ ỗ ộ ý t m m \ViduASP. M ụ ả ộ ộ ờ ỳ ðặ ứ ắ ý m sau ạ ỡỡ Ch ả ộ ụ ừ ừ ọ ứ K ð ệ ðế ý ụ ắồ ẹ ự ð ậ ộ ờ ý ta duy m \ViduASP. K nh ụ ả ụ ỡừ ỳ m ế N ủ ý ụ ắồ ỡừ ủ ự ẽ Alias c m \ViduASP l ậ ðị ỉ nh ể ỏ ồụụ ð ũ ðýợ ự ỉ ầ (c i c /Vidu/vd1.asp) ạ ứ ụ ửứ Ch ộ ạ ấ ỳ ộ ấ ả ạ ế ố ðýợ ớ Tr ủờ ặ ủ ũ ðýợ ự ở ệ ỡẫ ộ ặ ẹ ẹ ờ ch ðị ỉ ðị ỉ ồ v ế ả ýõ ạ ộ ờ ạ ẵớồớớờ K ng tr n tr === St by hoangly85 === 13 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 3. Kết luận : ð ð ấ ằ ệ ế ự ộ ứ ụ ĩ ðõ ả ự Tr y ta th n gi ế ð ớ ýờ ở ồ ẽ ặ ề ã n l n khi ự ử ứ ụ ĩ ứ ý ộ ố ð ể ồ x u i ế ề ệ ĩ ụ ỉ ầ ử ặ ỉềứứứềặ ðủ N ụ ð ạ ệ V o ýõ ðýõ ớ ð ạ ệ th ng ng v o ộờ ở ẽ ả ề ờ ệ ạ ứ ả ờ ệ ạ H ch tr Ðể ế ả ủ ẻ ệ ĩ ồ ầ ặ Response. Write <x ậ ứ ụ ửứ ể ế ắ ọ õ V n th === St by hoangly85 === 14 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ụ ề ĩ ỉụ ặ V = #00:00:00# And TG #12:00:00# And TG else “ỉ ặ ắ ỉụ ặ” Response.Write end if end if %> ầ ế ự ẽ ể ụ ể õ ề ðýợ ử ụ Trong ph ở ðố ýợ ủ ĩ ỗ ợ ậ ứ ASP l === St by hoangly85 === 15 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP II. NGÔN NGỮ VBScript VÀ LẬP TRÌNH VỚI ASP ế ý ở ầ ạ ð ắ ðýợ ệ ã ả ề ĩ ũ ý N ng nh ế ộ ĩ ðõ ả ấ ả ủ ạ c ầ ẽ ể ụ ể ề ữ ậ ở ự ộ ữ ph ðýợ ử ụ ðể ýờ ĩ ự ðố ýợ ẵ ủ ĩ ợ ự ằ ĩ ứ ầ ự ạ ẽ ắ ðýợ ý gi ộ ể ử ụ ý ộ ệ ả ầ ế ồ n ậ ụ ấ ữ ệ ĩ ứ C ể ữ ệ ủ ở ứ C ự ử ụ ế ằ C VBScript. ấ ð ề ể ộ ẽ ự ặ ựứứờ ủ ở ứ C ạ ử ụ ýõ ủ ụ ộ ờ ộ ờứ T ả ữ ụ ự ử ựự ử ự ọ ứứứ Tham kh ả ðố ýợ ẵ ĩ ý Tham kh Request, Response, Server, Session, Application, 2.1. Nhập/xuất dữ liệu Ðể ấ ữ ệ ủ ð ạ ýõ ạ ắ ộðýợ ðặ ặ ýõ ứ document.write ýõ ựự ðể ấ ữ ệ ) d . T ð ạ ýõ ð ạ ệ ðýợ ðặ ỉề ềặờ ýõ trong ASP ( ứ Response.write th . ự ể ấ ữ ệ ằ ử ỉề=giá trị ị ở ð ể Ngo %>. Gi ộ ằ ặ ộ ế ứ l ụ ồ V ấ ỗ ồ ứ “Ổ ĩ ” ặ ỉềọ”Ổ ĩ ”ềặ Xu ấ ằ ể ố ồ ứ ả ặ ỉềọảềặ Xu ấ ị ủ ế x x ặ ỉềọx Xu : Response.write ho %> ệ ứ ýờ ðýợ ộ ố ệ ủ ĩ L ý ố ế ự ử ụ ýõ ẽ ủ ễ ðọ õ ứ ch h ệ ỉềọ ịềặ ýờ ðýợ ý ữ ðõ ẻ ể ð L ýờ ợ ố ộ ẻ ẳ ỹỔ ớ ị ộ ủ ế ụ ằ ờ script, trong tr ĩ ứ c Ðể ậ ữ ệ ýõ ứ Request . ụ ể ýõ ứ ầ ộ ờự ả ờ ộ ờ ẽ ðýợ ðề ậ ụ C c ể ở ụ ứ th === St by hoangly85 === 16 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.2. Các kiểu dữ liệu của VBScript. 2.2.1. Khai báo biến : ằ ĩ ắ ộ ả ế ýớ ử ụ ý Tuy r ng ế ậ ứ ỳ ệ ử ụ ế ẽ ẫ ðế ạ ể n s ổ ắ ỗ ự ử ứ ụ ớ ứ ậ ử ụ ỉề Option n Explicit %> ở ðầ ỗ ệ ĩ ự ệ ĩ ọ ế ả ðýợ ýớ ử ụ ự ế ệ ẽ ỗ khai b i. Ðể ế ệ ồ ừ ế ửự ế ẵ ứứứ ệ ế ỉ ðõ ầ ý ậ ộ ý ý Vi n thu v u trong ừ ỉ ế ặ ỉ ể ặ ụ ừ ẳ ẽ ỗ Visual Basic l Ðể ể ế ả ũ ừ ở ụ ừ ộửớờ g d ẽ ạ ộ ả ỉ ố ừ ớ ứứ ửớ ậ ĩ ửử ầ ử s ậ ệ ự ế ằ ậ ử ụ Trong l ề ố ộ ờ ýớ ế ụ ý ế ứ ọ ể ðặ c bi h ẳ ộ ề ố ế ữ ýờ ờứ ả ế ẩ ả ồ l ạ ữ ệ ề ố ộ ờ D Ti Boolean bln Byte byt Collection object col Currency cur Date-time dtm Double dbl Error err Integer int Long lng Object obj Single sng String str User-defined type udt Variant vnt ADO command cmd ADO connection cnn ADO field fld ADO parameter prm ADO recordset rst === St by hoangly85 === 17 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.2.2.Khai báo hằng số ử ụ ệ ắỨẹ ằ ọ ị S t ụ ắ ỹ ọửớớ V 2.3. Cấu trúc của chýõng trình ASP. ý ð ðề ậ ở ầ ýớ ự ð ạ ủ ĩ ðýợ ðặ ặ Nh ấ “ ” ðýợ ử ộ ầ ự ừ ố ự ắ ðầ ừ d v v ữ ðầ ủ ệ Ðể ử ứ ạ ự ả ðế nh .asp. ấ ẽ ự ặ ũ ý ýõ ứ c 2.3.1. Các cấu trúc ðiều kiện : ấ ð ề ệ ỡỳứứứ ẳẫẹứứứẫỔ ẫứứứẫẹừ ỡỳ a. C i Cú pháp: ELSE ệ ẵặ ế ð ề ệ ả ỉ ệ ửặ ẽ ðýợ ự ế ỉ N i ệ ẵặ ẽ ðýợ ự ứ l ể ấ ỡỳ ồ Ta c THEN ệ ẵặ ặ ể ấ ỡỳứứứ ẳẫẹ ứứứứẫỔ ẫỡỳứứứứ ẫẹừ ỡỳ Ho <% === St by hoangly85 === 18 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ð ề ệ ửặ ẳẫẹ IF ụ ẽ ể ố ế ửẵế ặ ửẵấ Xét ví dụ sau: v ứ kh ụ ề ệ ỡỳỉụ ặ V end if %> b. Cấu trúc chọn Select Case End Select ýờ ợ ề ð ề ệ ọ ể Trong tr i <% ế ặ Select case <t ị ử ặ Case <gi === St by hoangly85 === 19 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ệ ửặ ị ặ Case ẽ ấ ệ ờ ủ ứ ấ Xét ví dụ sau: Ta s ụ ề ệ ắ ỉụ ặ V Th Case 3 “ỉ ặ ứ ỉụ ặ” Response.Write Case 4 “ỉ ặ ứ ý ” Response.Write Case 5 === St by hoangly85 === 20 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP “ỉ ặ ứ ã ” Response.Write m Case 6 “ỉ ặ ứ ỉụ ặ” Response.Write Case 7 “ỉ ặ ứ ả ỉụ ặ” Response.Write End Select %> 2.3.2 Các cấu trúc lặp : ấ ặ ầ ự ỳỨ ứứứứ ẹẫ a. C ðể ặ ớ ố ầ ð ế ự ể ắ ệ ằ ẫ ỡ ỳỨ D bi Cú pháp nhý sau: ýớ ả ặ ỳ ọ ự ầ ðị ử ổ ửủẵủếủứứứủửớớỉụ ặ Tinh t === St by hoangly85 === 21 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ổ ố ẻ ừ ửủếủảủứứứủửớử Xét ví dụ: t ổ ố ẻ ửủếủứứứủửớửỉụ ặ Tinh t ố ế ế ắ ðầ ừ ố ửớớớ ả ầ ðế ử Xét ví dụ in c In b. DO WHILE LOOP Cú pháp <% ð ề ệ ặ DO WHILE < i ệ C === St by hoangly85 === 22 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP LOOP %> ừ ð ề ệ ð ặ ẽ ðýợ ự ệ ứ ỹ ố ắ ạ Ch i u ki ng th ờ ð ể ấ ỳ ệ ẫ ỡ ừỨ th i ố ừ ử ðế ửớ Xét ví dụ: in c Lenh lap c. WHILE WEND Cú pháp ừ ð ề ệ ð ặ ẽ ðýợ ự ệ ứ Ch i ng th ụ ố ừ ử ðế ửớ X Lenh lap <% dim i i=1 === St by hoangly85 === 23 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP while i d. DO LOOP UNTIL Cú pháp ừ ð ề ệ ặ ẽ ðýợ ự ệ ứ Ch i ố ừ ử ðế ửớ Xét ví dụ in c Lenh lap 10 %> 2.3.3. Khai báo thủ tục (sub) và hàm (function) ủ ụ ộ ờ a. Khai b <% ủ ụ ặ Sub <t === St by hoangly85 === 24 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ệ c End Sub %> ụ ồ X ộỳ ờ b. Khai b h ụ ồ X 2.3.4. Một số hàm hữu dụng trong ASP ử ã ả * C n b ỡỹộ ờ ồ a. H ẽ ỏ ế ự ở ủ ự ả ả H Ví dụ : <% === St by hoangly85 === 25 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ” ẳ “ x= y=Trim(x) Response.Write y ‘ ẽ ậ ị ọ”ẳ ” %> Ổẫỳ ộ ự b. H nteger) : ẽ ấ ự H Ví dụ : ỡỗẳ ộ ự ờ ồ c. H ẽ ấ ả ự H Ví dụ : Ổắĩ ẫộ ờ ồ d. H ẽ ể ề ữ ýờ H Ví dụ : ắĩ ẫộ e. H u as string) : ẽ ể ề ữ H === St by hoangly85 === 26 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ví dụ : ỹỡừộ ự ửự ẵờ ồ f. H ẽ ấ ẵ ự ắ ðầ ạ ị ử H Ví dụ : ắ ộ ế ờ ồ g. H ẽ ể ðổ ộ ờ ị ủ ế ở ề ể ýớ H ð ể ð ữ ứ l i n Ví dụ : Ổỡ ộ ự ự ã ờ ồ h. H n c ẽ ắ ề ð ạ ằ ðị ự ã ở H o n c ð ạ ð ầ ýợ ộ ả tr o l Ví dụ : <% ”ẳ ộ ị ẳả ị ẳắỹ“ x= ”ị”ờ y=split(x, === St by hoangly85 === 27 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ‘ Ổý ằ ộ ả ế ầ ử ð ố ớựửựẵ u nh s Response.Write y(0) ‘ ộớờ ẽ ậ ị ọ”ẳ ộ ” %> ỏỨỡẹộ ả ự ự ã ờ ồ i. H n c ýợ ạ ớ ự ẽ ố ộ ầ ử ả Ng ự ã ữ ầ ử ch th n c Ví dụ : 2.3.5. Các hàm xử lý số ộ ờ a.H ã ậ H n b hai Ví dụ : ỡẹ ộ ờ b.H ấ ầ H Ví dụ : === St by hoangly85 === 28 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ử ỹỨừ c. To ử ấ ầ ý ý ấ ầ ý To c sau : a mod b (l khi chia a cho b) Ví dụ : ử d. To \ ử ấ ầ ý ấ ầ To sau : a \ b (l a cho b) Ví dụ : Ứ ẹừ ộ ốự ờ e.H ẽ ố ớ ữ ố ậ H ph Ví dụ : ẹừộờ f.H ả ề ộ ố ẫ ấ ỳ ớựử H Ví dụ : === St by hoangly85 === 29 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.3.6. Các hàm xử lý ngày tháng và thời gian ẹỨ ộờ a.H ả ề ờ ệ ờ H m tr Ví dụ : ỡỹẫộờ b.H ả ề ờ ệ ờ H Ví dụ : ừĩ ẫộờ c.H ả ề ệ ờ H Ví dụ : ẫẫẩừĩ ộ ờ d.H ả ề ứ ầ ứ ớ ð ủ ậ ự ẵ ọ ứ ứứứ H cho : 1 = ch Ví dụ : === St by hoangly85 === 30 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.3.7. Các hàm và toán tử logic ử ĩẹừ a.To ự ệ ữ ẵ ị ể Th Ví dụ : 2) and (5>4) response.write y ‘ ọ %> ử Ứ b.To ự ệ ặ ữ ẵ ị ể Th Ví dụ : 8) or (5>8) response.write y ‘ ọ %> 2.3.8. Các hàm về mảng ỔởỨ ẹừ ộ ả ờ a. H ả ề ỉ ố ỏ ấ ủ ả H Ví dụ : ởỨ ẹừ ộ ả ờ b.H ả ề ỉ ố ớ ấ ủ ả H Ví dụ : === St by hoangly85 === 31 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.4. Các ðối týợng xây dựng sẵn (built–in objects) trong ASP Ðố ýợ ệ ừ ýợ ề ộ ” ậ ể” ộ ộ ờ ả ã ý ữ ữ ệ ữ ệ ðể ụ ụ ộ ệ kh ð ứ ðố ýợ ýờ ọ ữ ệ ộ t ýõ ứ ứ ắ ðố ýợ ĩ ýờ ậ ế ự ýõ ph ớ ả ẫ ứ ĩ ạ ðố ýợ ð ồ v ðố ýợ õ ả ồ ĩ ự C Session, Server, Request, Response, ObjectContext. ầ ộ ờ ự ẵ ồ ừ ự ỳ Ứ ự C AdRotator, Browser Capabilities, 2.4.1 Ðối týợng Request ýờ ầ ộ ðệ ộ ờ ộ ể ẫ ộ ờ Khi ng , ðố ýợ Request ẽ ý ữ ấ ấ ả ừ ệ s (tr ử ðế ự ðố ýợ ðýợ ý ðố ýợ ậ ữ ệ ứ ắ ậ Web) g ợ ộ ), ộ ộ ờ ýõ ứ ộ ờ ủ ðố ýợ h thu ðýợ ả ý ồ 2.4.1.1. Các tập hợp (Collection) của ðối týợng Request Ðố ýợ Request ấ ả collection ấ ấ ả cung c cho ph ạ ề ầ ủ ðố ớ ứ ắ collection ủ ðố ýợ lo c Request ồ ồ bao g Client Cirtificate ộ ậ ị ủ ấ ả ýờ ụ Client M t t p c c a t t c c ng (field) hay c c (entry) trong certificate ể ð ðể ấ ộ m n tr t m t trang hay t ứ ắ ầ ủ ậ ðề ị ỉ ðọ nguy n c a t p u l ch c (read-only). Cookies Cookies ộ ã ả ýớ ỏ ðýợ ý ữ ứ ỹỗ l t file v n c c nh c l tr i ýờ ã ộ ể ậ ắ ộ ậ ứ khi ng i d t Website, ta c b t g n m t t p tin ch a c ố ðĩ ứ ủ ọ ẳ ạ ý ề ề ố m n l ng c a h , ch ng h n nh user, th s ầ ậ Cookies ả ðýợ ậ ẫ l n truy c p website, Tuy nhi kh i c truy c p ng u nhi ở ðýợ ậ ở ạ ứ b i c c truy c p b i c o ra ch cookies ðố ýợ Request ðề ộ ỉ ðọ ð C trong i t ng u l c t c (read-only) do ỉ ể ị cookies ể ử ðổ ị ủ ứ Ðể ấ ch c xem c m s a i gi c a ch l y gi ị ủ cookies ử ụ ồ tr c a ta s d ng c name key .attribute Request.Cookies( )[( )| ] ð ồ Trong name ủ ể ỗ : t a cookie (ki u chu i) === St by hoangly85 === 32 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP key ủ ầ ấ ị ể ỗ : kh a cookie c n l y gi (ki u chu i) attribute ủ ộ ố : th in c a cookie, l t trong c sau: Domain ỉ ðọ – ỉ ðýợ ở ðố ýợ ủ + : (ch c read only) cookie ch c g i cho i t ng Request c a ứ domain n Expires ỉ ỉ ðị Cookies ế ệ ự + : (ch ghi - write only) ch nh ng h t hi u l c ế ỉ ðị ẽ ế (expires), n u kh nh ng expires khi k t th ệ vi c. HasKeys ỉ ðọ – ðị ủ ồ ạ ứ + : (ch c read only) x nh kh a cookie c n t i kh Path ỉ ế ộ ðýợ ậ ỉ ỉ + : (ch ghi- write only) n u thu c t c x p th cookie ch ðýợ ở ữ ủ ðýờ ẫ ự ế ỉ ðýợ c g i cho nh ng Request c a ng d n n u kh ookie ch c ở ữ ộ ðýờ ẫ ủ ứ ụ g i cho nh ng Request thu c ng d n c a ng d ng. Secure ỉ ðị ả ậ ứ + (ch ghi-write only) x nh cookie c o m t hay kh ộ cookie ể ứ ðự ộ ậ ợ ị ð ề M t c ch a ng m t t p h p c . Ta n u ứ kh Ví dụ : ") If Request.Cookies(x).HasKeys Then For each y in Request.Cookies(x) Response.write(x & ":" & y & "=" & Request.Cookies(x)(y)) Response.write(" ") Next Else Response.Write(x & "=" & Request.Cookies(x) & " ") End If Response.write " " Next %> Form Form ýờ ậ ữ ệ ẳ ỹỔ ý C cho ph i d p v li u th ýờ ộ ể ẫ ấ ả edit, radio button, check box, Khi ng i d t bi u m u th t c c ị ủ ð ạ FORM ẽ ðýợ ở ðặ tr c a c n s c g i l t gi ị ủ ộ FORM POST ầ ủ ðố tr c a thu c t nh METHOD trong tag l . C n c a i ýợ ðề ị ỉ ðọ t ng n u l ch c (read only). === St by hoangly85 === 33 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ðể ấ ị ủ ẳ ỹỔ ýờ submit ằ truy xu t c c a c i d b ng ýõ ứ POST ử ụ ồ ph c ta s d ng c controlname Request.Form( ) ð controlname ủ ầ ấ ị Trong l a control m n l y gi . Ví dụ : Chao ban: QueryString ýờ ầ ðệ ộ ể ẫ ớ ýõ Khi ng i d u 1 trang hay tr nh (submit) m t bi u m u v i ph ứ GET ấ ả ẳ ỹỔ ð ạ FORM ủ ể ẫ ẽ th c th t c c n c a bi u m u s ðýợ ắ Ổ ừ ặ ụ ị c Browser g n v ng c p t . QueryString ðýợ ðể ấ ề ị ộ ể ẫ ớ ýõ c d l y v c trong m t bi u m u v i ph ứ GET ấ ả ðýợ ở ừ ể ẫ ớ ýõ ứ GET ẽ th c l . T t c c c g i t bi u m u v i ph c s ðýợ ắ Ổ ủ ð ọ ýờ ể ấ c g n v a browser v i ng i c th y ðýợ ự ýợ ðýợ ở ớ ạ c c ng th c g i n i h n. C ầ ủ ậ ðề ị ỉ ðọ ph n c a t p u l ch c (read-only). Ðể ấ ị ủ ẳ ỹỔ ýờ ằ ýõ truy xu t c c a c i d ng ph ứ GET ử ụ ồ th c ta s d ng c controlname Request.QueryString ( ) Ví dụ : ạ Ch n: Response.Write ”ẳ Ổ ”ờờ (Request.QueryString( ” ” ạ Response.Write ( ” ”ờờ Request.QueryString( ServerVariables ầ ấ ị ế ýờ ủ ậ ServerVariables Khi c n l y gi c n m ng c a Server ta d p . Cú pháp : variable Request.ServerVariables ( ) === St by hoangly85 === 34 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ớ variable ỉ ðị ị ầ ấ ð ộ ố ị ể ủ v i ch nh gi g n l y. Sau t s gi ti u c a variable Biến Mô tả ả ề ấ ả ALL_HTTP Tr v t t c c ð ở m i, lu ẳ lu ế vi t hoa ả ề ấ ả ở AL_RAW Tr v t t c c ạ d ng th ả ề ðýờ ẫ ứ APPL_MD_PATH Tr v ng d n cho ng ụ ừỔỔ d ng d ISAPI ả ề ðýờ ẫ ậ APPL_PHYSICAL_PATH Tr v ng d n v t l ýõ ứ ủ ðýờ ẫ t ng c a ng d n ả ề ị ð ậ AUTH_PASSWORD Tr v gi p v ộ ạ ậ tr p tho i x n ủ c a client ứ AUTH_TYPE C c m ðể ể ậ ki m tra x n ýờ ng i d ả ề ủ ýờ AUTH_USER Tr v t a ng i d (username) ả ề ấ ủ CERT_COOKIE Tr v ID duy nh t c a client ả ề ýớ ủ ữ CONTENT_LENGTH Tr v k c c a d ệ ở li u m i ả ề ể ữ ệ CONTENT_TYPE Tr v ki u d li u GATEWAY_INTERFACE headername ả ề ị ứ HTTP_ Tr v gi ch a trong headername header ả ề ộ ỗ ả HTTP_USER_AGENT Tr v m t chu i m ở ầ browser g i y u ả ề ðị ỉ ủ LOCAL_ADDR Tr v a ch c a server ở ầ m i y u ớ t i Ví dụ ạ ể ặ ðể ấ ả ế ủ ý ồ : B n c d p xem t t c c n c a server nh 2.4.1.2. Thuộc tính (Property) của ðối týợng Request === St by hoangly85 === 35 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ðố ýợ Request ỉ ộ ộ ấ ð TotalBytes ộ i t ng ch c t thu c t t . Thu c t TotalBytes ộ ỉ ðọ ả ề ố ữ ệ ýờ l c t c (read-only), n v s byte d li u m i d ể ứứ chuy n l 2.4.1.3.Phýõng thức (Method) của ðối týợng Request Ðố ýợ Request ũ ỉ ộ ýõ ứ ð ở ứ ýõ ứ i t ng c c t ph c c BinaryRead ðýợ ðể ấ ữ ệ ð ðýợ POST ứ ýõ ứ c d l y d li u c client l c ả ề ộ ả ị n v m t m ng c . Cú pháp : count Request.BinaryRead ( ) ð count ộ ố ỉ ố ầ ðọ trong l t con s nguy r byte c n c. ýõ ứ ẽ ậ ðýợ ữ ệ ế ýớ ð ð ấ ðế Ph c n kh n c d li u n u tr c t n ậ Request.Form ýợ ạ ế ð ọ ýõ ứ ẽ ậ t p . Ng c l i n u ta i ph c n kh n ðýợ ữ ệ ủ ấ ậ Request.Form c d li u c a c rol HTML khi truy xu t t p . Ví dụ ýõ ứ BinaryRead ðể ðọ ữ ệ POST ðý : D c c d li u m l ộ ả m t m ng. 2.4.2. Ðối týợng Response ầ ộ ừ ệ ụ ự Khi client c c u m t trang t server th m v th c thi c ð ạ ðể ạ ậ ồ ð ở Ðố n VBScript trong trang ASP t o ra t p tin HTML r i sau i cho client. i ýợ Response ẽ ðả ệ ệ ể ế ả ừ ề t ng s m nhi m vi c chuy n k t qu t server v cho client. 2.4.2.1. Các tập hợp (Collection) của ðối týợng Response ậ ợ ủ ðố ýợ Response ỉ cookies Ðố ýợ Response ể T p h p c a i t ng ch c . i t ng c ậ ị ủ ấ ỳ cookies ố ðặ ệ ố ủ ế x p gi c a b t k n n t tr th ng c a client. N u cookies ồ ạ ẽ ðýợ ạ kh n t i tr c t o ra. 2.4.2.2. Thuộc tính (Property) của ðối týợng Response Buffer ðể ðị ế ả ðýợ ạ ở ðýợ ữ : D x nh xem k t qu c t o ra b i trang ASP c c gi ạ ðệ ứ ộ ở ậ ộ ị l i trong v m hay kh c t n m t trong 2 gi l ặ ế ậ ế ả ðýợ ạ ở ẽ ðýợ ho c false. N u nh n gi t qu c t o ra b i trang ASP s c server ữ ðệ ðế ấ ả ủ ðýợ ử ự gi trong v m cho n khi t t c c a trang c x l ðế ýõ ứ Flush ặ ýõ ẫ ðýợ ọ ị ầ ðýợ n khi ph c ho c ph c g i. Gi n n c ậ ýớ ậ ế ộ ở ậ x p tr c tag trong t p tin .asp. C u thu c t n gi ị ế ả ẽ ðýợ ở ð ðýợ ử ứ tr False th t qu s c g i c x l === St by hoangly85 === 36 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Cú pháp : Response.Buffer [= true | false] IIS ả ừ ở ề ýớ ị ặ ðị ừ ả Trong phi n t 4.0 tr v tr c false l m c nh, c phi n ở ề ị ặ ðị 5.0 tr v sau th m c nh. Ví dụ 1 ế ả ẽ ðýợ ở ớ ðế ế ặ : K t qu s kh c g i t i browser cho n khi k t th p. Ví dụ 2 ế ả ẽ ðýợ ở ớ ỗ ầ ặ : K t qu s c g i t i browser m i l n l p. CacheControl ộ ðể ðị ể ấ ữ ế ả ðýợ ạ Thu c t x nh xem proxy server c c t gi k t qu c t o ở ứ ỹặ ðị ẽ ấ ữ CacheControl ỉ ể ra b i ASP hay kh c nh th kh t gi . ch c ậ ộ ị ð ” ặ ” ”ứ ẹế ðặ ộ nh n m t trong hai gi c u t thu c t “ ” ỉ ữ cache ớ ể ữ ẽ ý private nh ng v ri i c gi c kh ữ ữ ứ ắ ế ðặ ộ “ ” ẽ ấ ữ ữ tr nh ng trang n u t thu c t l public c t gi nh ng ứ trang n Ví dụ : ” ”ềặ <% Response.CacheControl = ặ ho c ” ”ềặ <% Response.CacheControl = === St by hoangly85 === 37 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Charset Ð ộ ể ỗ ộ ủ ậ ự c t u chu i, thu c t a t p k v context-type ủ ðố ýợ Response ộ ấ ậ ấ ứ ỗ ự c a i t ng . Thu c t p nh n b t c chu i k ấ ấ ỗ ð ð ứ ỗ ị ặ ðị ISO-LATIN-1 n t ch p chu i m c nh l Cú pháp : charsetname Response.Charset ( ) Ví dụ : ””ỡ Ứ ”ềặ 1 2 3 4 5 6 7 8 === St by hoangly85 === 38 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Expires ộ Expires ðặ ờ ộ ờ ộ ẽ ðýợ ấ ữ ở Thu c t t th i gian bao l t trang s c c t gi ýớ ế ạ ế ýờ ạ ð ýớ browser tr c khi n t h n (expire). N u ng i d i trang c khi n ế ạ ð ấ ữ ýớ ð ẽ ðýợ ể ị ứ ẹế ố ộ h t h n th t gi tr c c hi n th l u ta mu n m t trang ờ ế ạ ðặ ộ Expire kh h t h n th t thu c t l -1. Cú pháp : number Response.Expires [= ] Ví dụ ế ố ộ ẽ ế ạ ờ ờ ðặ ý : N u ta mu n cho m t trang s h t h n sau 24 gi (= 1400 ph t nh au: ExpiresAbsolute : ýõ ự ý ộ Expires ộ ExpiresAbsolute ðặ ộ ờ T nh c t , thu c t t m t ng ðị ộ ðýợ ấ ữ ẽ ế ạ x nh m t trang c c t gi tr h t h n. ế ỉ ðị ờ ỉ ðị ụ ể ẽ ế ạ ạ ờ N u ta ch nh th i gian m nh ng th th h t h n t i gi ỉ ðị ðýợ ự ế ỉ ðị ỉ ch nh v c th c thi. C u ta ch nh ng ðị ờ ðýợ ấ ữ ẽ ị ế ạ ử ð ủ nh th i gian th c browser c t gi s b h t h n v a a ng ỉ ðị ch nh. Cú pháp : date time Response.ExpiresAbsolute [= [ ][ ] ] Ví dụ Ð ạ ð ỉ ðị ằ ẽ ế ạ ấ ớớ ề ửử : n m nh r ng trang s h t h n v u ng ửớ ã ẵớớếồ th IsClientConnected ộ ðị ố ế : Thu c t nh xem client c i k t ớ ứ ộ ử ẵ ị ð ặ (connect) v i server hay kh c t c ị ế ế ố ớ ị false. Mang gi true n u client c t n i t i server v false trong ýờ ợ ýợ ạ tr ng h p ng c l i. Cú pháp : Response.IsClientConnected Ví dụ Ð ạ ð ể ýờ ế ố ẻ : n code sau m tra ng i d n k t n i hay kh === St by hoangly85 === 39 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Pics ộ ộ ị PICS ở ầ header ủ ðố ýợ Thu c t t gi v ph n c a i t ng Response . Ví dụ : by " & chr(34) & "xyz@yahoo.com" & chr(34) & " for " & chr(34) & " " & chr(34) & " on " & chr(34) & "2002.10.05T02:15-0800" & chr(34) & " r (n 2 s 0 v 1 l 2))") %> Status ộ ỉ ðị ị ủ ạ ả ề Thu c t nh gi c a d ng th v cho client v ể ộ ðể ỉ ử ạ ð ứ ỗ ị ủ ạ c d c t ch nh s a d ng th c a d ng th ồ ố ầ ạ ả ế ủ ạ ð bao g m: ba con s d u ti ng th chi ti t c a m ng th ẳ ạ ýồ ấớấ Not Found (ch ng h n nh ). Cú pháp : statusdescription Response.Status = ớ statusdescription ả ạ ứ v i l tr ng th Ví dụ Ð ạ ð ẽ ể ề ủ ự ðị ỉ ủ ọ : n code sau ki m tra quy n c a user d a v a ch c a h === St by hoangly85 === 40 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 172.16.20.99 ”ấớử ” Response.Status = Response.Write (Response.Status) Response.End End If %> 2.4.2.3. Phýõng thức (Method) của ðối týợng Response AddHeader ýõ ứ AddHeader ộ ớ ộ ị Ph c th t header HTTP m i v t gi cho HTTP response ộ ộ ðýợ ể ở ỏ ứ . M t khi m t header c th g b n IIS ạ ả ọ ýõ ứ ýớ ấ ỳ ế ả ở ớ Trong 4.0, b n ph i g i ph c n c b t k k t qu n i t i IIS ạ ể ọ ýõ ứ AddHeader ạ ấ ứ õ browser. Trong 5.0 b n c g i ph th c t i b t c n ý ả ðứ ýớ ấ ứ ờ ọ Response Flush trong script nh i ng tr c b t c l i g i h . n trang. Cú pháp : name value Response.AddHeader , ð name ủ value ị ủ Trong l a header c l c a header Ví dụ : Chú ý ủ ðýợ ứ ấ ạ ýớ : T a header kh c ch a d u g ch d i. AppendToLog ýõ ứ ộ ộ ỗ ố ụ log ủ ủ ạ ể Ph c n t m t chu i v i m c c a tr . B n c ọ ýõ ứ ề ầ ộ ỗ ầ ọ ẽ ắ ộ ỗ g i ph c n u l n trong m t script, m i l n g i s g n th t chu i ụ log ủ ủ v m c c a tr . Cú pháp : Response.AppendToLog string ( ) Ví dụ : Chú ý ỗ ầ ụ log ðýợ ứ ấ ỳ ấ ẩ ứ : Chu i c n ghi v m c kh c ch a b t k d u ph y (,) n === St by hoangly85 === 41 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP BinaryWrite ýõ ứ ữ ệ ự ế ố ả ể ðổ ấ Ph c n li u tr c ti p xu ng browser m i chuy n i b t ỳ ự ứ ýõ ứ ýờ ðýợ ðể ữ ệ ả ừ õ ở k k n c n ng c d ghi d li u nh (BLOB) t c ữ ệ ố d li u xu ng browser. Cú pháp : data Response.BinaryWrite ( ) Clear ýõ ứ ấ ả ế ấ ðýợ ủ ðý ðệ Ph c n t c c t xu t HTML c tr o v m. ý ýõ ứ ầ header ủ ðố ýợ Response ỉ Nh c n n c a i t ng m x ầ ộ ủ ðố ýợ Response ế ộ Buffer ủ ðố ýợ ph n n i dung c a i t ng . N u thu c t c a i t ng Response ðýợ ðặ ýõ ứ ẽ ỗ ộ c t l c n g i l ấ ầầầờứ v buffer th y g Cú pháp : Response.Clear Ví dụ : ể ýõ ứ Ki m tra ph c Clear Ð ầ ộ ủ ộ n n i dung c a trang Web. N i dung n ẽ ðýợ ở ớ ýờ ỉụ ặ s c g i t i ng i d ắ ðầ ở ỉụ ặ B t u x ế ả ệ ýờ ấ ả ẳ ỹỔ K t qu khi duy t trang web n i d y g (v ðý ðệ ý ị ở ð ị ở ệ ọ ýõ ứ m m ch p g i x i vi c g i ph c clear.) End ýõ ứ ðể ừ ệ ử ộ ả ề ế ả ệ ạ ế Ph c n d ng vi c x l t script v v k t qu hi n t i. N u ộ ở ðýợ ðặ ọ ýõ ứ ẽ ở ế thu c t c t l i ph c n g i c t ấ ðýợ ý ðệ ố ế ố ðý ế ả xu t HTML c l m xu ng browser. N u ta kh n t qu ố ọ ýõ ứ ýớ ọ ýõ ứ ứ xu ng cho browser th i ph c clear tr c khi g i ph c n === St by hoangly85 === 42 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Cú pháp : Response.End Ví dụ : Ð ạ ã ả ẽ ðýợ ở ớ ýờ n v n n c g i t i browser v i ể ðọ ðýợ d c c Ð ạ ã ả ẽ ðýợ ở ð ọ n v n n kh c g i v i ýõ ứ ồ ph c End r i Flush ọ ýõ ứ ðể ể ế ấ ý ữ ạ G i ph c n chuy n c t xu t HTML m l i trong ðệ ố ậ ứ ế ộ ở ðýợ ðặ v m xu ng browser ngay l p t c. N u thu c t c t l ộ ẽ ỗ ứ thu c t g i l Cú pháp : Response.End Ví dụ : Ð ạ ã ả ẽ ðýợ ở ớ ýờ n v n n c g i t i ng i d ọ ýõ ứ khi g i ph c Flush. ộ ố ð ạ ã ả ẽ ðýợ ở ộ M t s n v n kh c g i sau m t l ữ n a!!! === St by hoangly85 === 43 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Redirect ýõ ứ ðể ể ýờ ðế ộ ðýợ ỉ ðị Ph c n chuy n ng i d n m t trang kh c ch nh ðýờ ẫ trong ng d n URL. Cú pháp : URL Response.Redirect ( ) ụ ð ọ ệ ðã ậ ủ ýờ ứ V sau a vi c p c a ng i d ạ ậ login.asp ớ ộ T o t p tin v i n i dung sau: ỉụ ỡ Ổẫặ Login to Login “ ” ọ “ ứ ”ặ “ ” ọ “Ổ ” ọ “ ”ặ ạ ậ validate.asp ớ ộ T o t p tin v i n i dung sau: <% Dim User, Pass “ ẹ ”ờ User = Request.Form( “ ”ờ Pass = Request.Form( “ ”ờ ộ ọ “ửẵếấ”ờ If (User = “ ứ ” Response.Redirect Else “ ứ ” Response.Redirect === St by hoangly85 === 44 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP End If %> ạ ậ success.asp ớ ộ T o t p tin v i n i dung sau: ạ ð ðã ậ ầ ỉụ ặ B n p th Write ýõ ứ ðể ữ ệ ậ ế ấ ạ ðể ở Ph c n ghi d li u ra t p tin k t xu t d ng HTML g i cho ữ ệ ể ố ỗ ự ứứứ browser. D li u n l , chu i, ng Cú pháp : text Response.Write ( ) Ví dụ : 2.4.3. Ðối týợng Session ạ ởự ð ứ ụ ặ ð ệ ớ ộ ứ ụ ð ự Khi b y ẽ ế ạ ứ ẹ ý ệ ð ộ ấ ồ t ế ạ ạ ð ở ðị ỉ ồụụ ấ Server kh ạ ủ ạ ứ tr ả ế ấ ðề ằ ạ ộ cookies ấ ỗ ýờ ASP gi i quy duy nh ho m ự cookies ðýợ ở ứ ðự ðể ậ ệ ạ ứ d n ế ðýợ ọ ðố ýợ Session Giao ti . Ðố ýợ Session ðýợ ðể ý ữ ề ữ ðổ ðố ớ ộ ýờ ứ ắ ế ðýợ ứ ðố ýợ Session ứ ề ộ ýờ ng ng ch ðýợ ấ ả ộ ứ ụ ứ ẩ ộ ýờ d === St by hoangly85 === 45 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ớ ự ạ ộ ðố ýợ Session ớ ẽ ủ session ð ýờ d m ố ế ữ ặ ế ạ ứ d h 2.4.3.1. Tập hợp của ðối týợng Session Contents ậ ợ Contents ứ ấ ả ầ ử ð ðýợ ắ ðố ýợ T ch Session ự ứ trong qu Cú pháp : key Session.Contents ( ) ð key ủ ầ ử ầ ấ ứ Trong l ụ ð ệ ấ ả session ð ðýợ ứ ụ ứ V ậ ắ ỉụắẫẹ ẫ ặ C StaticObjects ậ StaticObjects ứ ấ ả ðố ýợ ắ session ớ ẳ ỹỔ T ch v object Cú pháp : key Session.StaticObjects( ) Ví dụ Ð ạ ýõ ð ể ị ấ ả ðố ýợ ậ : StaticObjects ðố ýợ ậ Ứ ỉụ ặ C t === St by hoangly85 === 46 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.4.3.2. Các thuộc tính của ðối týợng Session CodePage ộ CodePage ế ậ ự ẽ ðýợ ðể ể ị ộ ủ Thu cho bi d ð ộ ị CodePage ả ủ trang. Sau v – 1251 American English and most European languages – 932 Japanese Kanji Cú pháp : codepage Session.CodePage( = ) Ví dụ Ð ạ ýõ ð ể ị ủ ộ ứ : e c ủ ồ CodePage c LCID ộ LCID ðể ế ậ ậ ề ộ ố Ta d ðị ộ ð ứ ừữ ệ ự ờ ề ệ ẽ ðýợ ể ị ự ð ứ g Cú pháp : Session.LCID( = LCID) Ví dụ : <% “Ổắỡừ ặ ðị ồ ” ạ ứỔắỡừ ạ “ỉ ặ”ờ Response.Write ( “ừạ ồ ” ạ ộờ ạ “ỉ ặ”ờ Response.Write ( “ừạ ề ệồ ” ạ ỳ ắ ộảấớờạ “ỉở ặ”ờ Response.Write ( ti Session.LCID = 1036 === St by hoangly85 === 47 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP “ỉ ặ”ờ Response.Write ( “Ổắỡừ ệ ạ ồ ” ạ ứỔắỡừ ạ “ỉở ặ”ờ Response.Write ( “ừạ ồ ” ạ ộờ ạ “ỉ ặ”ờ Response.Write ( “ừạ ề ệồ ” ạ ỳ ắ “ỉở ặ”ờ Response.Write ( rrency(540)& “ỉụ ặ”ờ Response.Write ( Session.LCID = 3079 “ỉ ặ”ờ Response.Write ( “Ổắỡừ ệ ạ ồ ” ạ ứỔắỡừ ạ “ỉở ặ”ờ Response.Write ( “ừạ ồ ” ạ ộờ ạ “ỉ ặ”ờ Response.Write ( “ừạ ề ệồ ” ạ “ỉở ặ”ờ Response.Write ( FormatCurrency(540)& “ỉụ ặ”ờ Response.Write ( %> ð ế ả ủ ệ ẽ ồ Khi SessionID ộ SessionID ả ề ộ ố ấ ðể ậ ệ ỗ Thu tr ýờ ứ ắ ố ðýợ ạ ạ ể ðổ ị ðýợ ứ ng ng th Cú pháp : Session.SessionID Ví dụ Ð ạ ýõ ð ể ị ố ỡừứ : ố ỡừ ủ ạ ồ S <% === St by hoangly85 === 48 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Response.Write (Session.SessionID) %> TimeOut ộ ðể ế ậ ậ ề ả ờ ệ ự Thu ðố ýợ Session ứ ụ ộ ờứ ẹế ýờ trong ặ ầ ộ ả ờ ệ ự ð session ẽ ế ứ ỹặ ho s ðị ờ ệ ự ộ ẵớ ứ an c Cú pháp : number Session.TimeOut [= ] Ví dụ : ờ ệ ự ặ ðị ồ Th ờ ệ ự ờ ồ Th 2.4.3.3. Các phýõng thức của ðối týợng Session Abandon ýõ ứ Abandon ðể ế session ủ ýờ ứ ẩ ýõ ứ Ph d c ðýợ ọ ự ðố ýợ Session ệ ý ị ẽ ồ ạ ớ n hi t ấ ả ủ ệ ðýợ ử ứ Ð ề ĩ ạ ể t ậ ế session ặ ạ ð ọ ýõ ứ Abandon truy c trong c ýớ ð ự ý ậ ế session ừ ữ ðýợ ứ tr t Cú pháp : Session.Abandon === St by hoangly85 === 49 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ví dụ ạ ẵ ậ file1.asp ậ file2.asp ộ ứ ụ ớ : T v trong c ộ ồ n file1.asp file2.asp ýờ ầ file1.asp ế ả “ở ỗ ” Khi ng th ý ýờ ầ ế file2.asp ế ả ể ị ở nh th Gate ý ố ở Session “ ”ờ ð ị ế ở file1.asp ọ ýõ ứ nh ( do g Abandon . Contents.Remove ýõ ứ ðể ộ ầ ử ỏ ậ ắ ủ ðố ýợ Ph Session . Cú pháp : name index Session.Contents.Remove ( | ) ọ ýõ ứ ể ề ủ ầ ử ầ ặ ị Khi g ủ ầ ử ậ Contents c . Ví dụ : === St by hoangly85 === 50 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ế ả ự ệ ý ồ K === St by hoangly85 === 51 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Contents.RemoveAll() ỉ ộ ầ ử ýõ ứ Remove ýõ ứ Thay v th ấ ả ầ ử ỏ ậ Contents x Cú pháp : Session.Contents.RemoveAll() 2.4.3.4. Các sự kiện của ðối týợng Session Session_OnStart ự ệ ấ ệ ủ ạ ộ session ớ ứ ắ ðặ ủ ự ệ S m ðýợ ðặ ậ global.asa . Session_OnEnd ự ệ ấ ệ session ế ứ ắ ðặ ủ ự ệ ũ ðýợ ðặ S k n ậ global.asa trong t . Chú ý ðặ ủ ự ệ Session OnEnd ử ụ ðýợ : Trong c _ ta kh ýõ ứ MapPath ở ở ð ýõ ứ ệ ự ứ ph b 2.4.4. Ðối týợng Application ộ ứ ụ ồ ộ ậ ợ ế ợ ớ ðể ử ặ ụ M ụ ộ ụ ð ð ứ ĩ ấ ộ ðố ýợ ðể ế ợ ð v ạ ớ ự ð ðố ýợ Application l . Ðố ýợ Application ðýợ ðể ý ữ ế ự ð ể ậ ðế ế ứ ẩ ố ý ðố ýợ Session ỉ ộ ố ế c i ch ỗ ýờ ự ðố ýợ Application ðýợ ấ ả ýờ cho m ứ ừ ð ðố ýợ Application ứ ể ðýợ ậ d n === St by hoangly85 === 52 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ở ề ứ ụ ý ố ế õ ở ữ ệ ự ề ố b ng (nh ýờ ậ ự ứứứờ ĩ ạ ể ậ ừ ấ ứ ng ứ ụ ự ý ðổ ẽ ả ýở ðế n ấ ả ứ ụ ứ t 2.4.4.1. Tập hợp của ðối týợng Application Contents ậ ợ Contents ứ ấ ả ầ ử ð ðýợ ắ ðố ýợ T ch Application ự ứ trong qu Cú pháp : Key Application.Contents ( ) ð key ủ ầ ử ầ ấ Trong l . ụ ð ệ ấ ả ĩ ð ðýợ ứ ụ ứ V ế ĩ ậ ắ C StaticObjects ậ ợ StaticObjects ứ ấ ả ðố ýợ ðýợ ắ ứ ụ ớ T ch object HTML Cú pháp : Key Application.StaticObjects( ) Ví dụ Ð ạ ð ệ ấ ả object : . === St by hoangly85 === 53 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.4.4.2. Các phýõng thức của ðối týợng Application Contents.Remove ýõ ứ ðể ộ ầ ử ỏ ậ ắ ủ ðố ýợ Ph Application . Cú pháp : name index Application.Contents.Remove ( | ) ọ ýõ ứ ể ề ủ ầ ử ầ ặ ị Khi g ủ ầ ử ậ ắ ứ c Ví dụ : Contents.RemoveAll ỉ ộ ầ ử ýõ ứ Remove ýõ ứ Thay v th ấ ả ầ ử ỏ ậ Contents x Cú pháp : Application.Contents.RemoveAll() Lock và Unlock ở ấ ả ýờ ðề ể ậ ðế ế Application B n ể ẵ ề ýờ ðổ ị ủ ế ð ề ẫ ðế th ệ ị ủ ế ứ Ðể ắ ụ ð ề ðố ýợ Application ấ sai l cung c ai ýõ ứ Lock Unlock ýõ ứ Lock ã ả ýờ ðổ ph v . Ph ng ế ðố ýợ Application ðể ðả ả ằ ạ ộ ờ ð ể ỉ ộ bi (d ýờ ðổ ế ðố ýợ ĩ ờứ ýõ ứ Unlock ng cho ýờ ðổ ị ế ðố ýợ Application ph . Cú pháp : Application.Lock Application.Unlock Lýu ý ọ ýõ ứ Lock ả ớ ọ ýõ ứ Unlock : Khi g th ự ệ ứ ngay khi th Ví dụ : === St by hoangly85 === 54 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ðýợ ậ ồ Trang n “ ”ờ ềặ ầ ầ trong file ho hay Application . === St by hoangly85 === 55 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Cú pháp : progID Server.CreateObject ( ) ð progID ể ủ ðố ýợ ầ ạ ứ Trong l Ví dụ : Execute ộ ẫ ự ộ ĩ ộ ứ ự Thu P b ðýợ ọ ề ð ề ể ðýợ ả ề ĩ ðầ ộ thi xong file ASP ọ ờứ g Cú pháp : path Server.Execute ( ) ớ path ðýờ ẫ ớ ậ ĩ ầ ự ứ V l Ví dụ ạ ẵ ậ file1.asp file2.asp ðặ ý ụ ớ ộ : T v v dung sau: File1.asp File2.asp === St by hoangly85 === 56 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP GetLastError ýõ ứ ả ề ộ ðố ýợ ASPError ả ỗ ấ ệ ứ ỹặ ðị Ph m ậ iishelp\common\500-100.asp ðể ử ỗ ĩ ứ ẹế trang web d \ ầ ạ ể ạ ặ ðổ ậ ðể ðý ữ ệ c t õ ựứứ h Chú ý ýõ ứ ðýợ ýớ ậ ĩ ở ấ ứ ộ : Ph ố ứ g Cú pháp : Server.GetLastError() Ví dụ ụ ð ẽ ấ ệ ộ ỗ ớ : Trong v HTMLEncode ýõ ứ ðể ạ ẳ ỹỔ ộ ỗ Ph Cú pháp : string Server.HTMLEncode( ) Ví dụ Ð ạ ýõ ð ýờ ậ username : p ng v password ð ấ ứ ẹế ýờ login ẽ ắ ýờ ậ , sau sai th ạ password l . === St by hoangly85 === 57 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP "") or (upass ") end if %> Dang nhap Username: "> Password: === St by hoangly85 === 58 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP MapPath ýõ ứ ạ ộ ðýờ ẫ ð ộ ðýờ ẫ ậ ứ ýõ Ph n ứ ðýợ ự ệ Session_OnEnd Application_OnEnd th v . Cú pháp : path Server.MapPath ( ) Chú ý ế path ắ ðầ ằ ự ụ ặ ự ðạ ệ : N b \ th ðýờ ẫ ậ ủ ý ụ ả ủ ậ ĩ ệ ạ ứ c P hi Ví dụ ả ử ạ ậ ứ ðặ ý ụ : Gi C:\Inetpub\wwwroot\Script ớ ộ ồ v ể ỹ ỉụ ỡ Ổẫặ Ki ệ ứ ðýợ ế ả ý ồ Khi duy k === St by hoangly85 === 59 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Transfer ýõ ứ ở ộ ể ờ ấ ả ề ạ ộ ế Session Ph , ế Application ữ ệ ậ Request ủ ậ ĩ ệ ạ c , c ) c ộ ậ ĩ ứ ứ ẩ ứ ự ệ ề ð ề ể m h ả ề ýớ ð ộ ýõ ứ Execute tr ). ýõ ứ Transfer ộ ạ ủ ýõ ứ Response.Redirect Ph l ý ạ ệ ả õ ở ýõ ứ Response.Redirect ộ ả ữ nh bu ạ ộ Request ả ýõ ứ Server.Transfer ể ề ð ề l gi trong khi ph th ể ộ ĩ ứ ộ ýõ ứ khi Response.Redirect ) Cú pháp : path Server.Transfer ( ) Ví dụ ạ ẵ ậ file1.asp file2.asp ðặ ý ụ ớ ộ : T v v ý ồ dung 2 file nh File1.asp File2.asp <% “ừ ử file2.asp” Response.Write “ừ ẵ file2.asp” Response.Write === St by hoangly85 === 60 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP %> ở ệ ự file1.asp ế ả ớ ế ả ở ụ M . So s ủ ýõ ứ ứẫ ứ c URLEncode ýõ ứ ðể ộ ỗ Ổứ Ph Cú pháp : stringURL Server.URLEncode ( ) 2.4.6. Ðối týợng ASP Error Ðố ýợ ASPError ðýợ ðể ể ị ế ủ ấ ứ ỗ ấ ệ ị ả ủ ĩ ứ Ðố ýợ ASPError ðýợ ạ xu ýõ ứ Server.GetLastError ðýợ ọ ự ế ề ỗ ỉ ể ph c l ðýợ ậ ằ ệ ọ ýõ ứ Server.GetLastError . Ðố ýợ ASPError ðýợ ổ ĩ ừ ả ếứớ ở ð ỉ ẵ ch IIS trong 5. Ðố ýợ ASPError ýõ ứ ỉ ộ ðể kh ấ ề ỗ ấ ệ ứ ừýớ ð ộ ủ ðố ýợ c ASPError : ASPCode ộ ế ỗ ðýợ ạ ở IIS Thu Cú pháp : ASPError.ASPCode ASPDescription ộ ả ề ộ ỗ ả ế ỗ ấ ệ ứ Thu Cú pháp : ASPError.ASPDescription Category ộ ế õ ðý ỗ ộ ỡỡ ữ ị ả Thu ộ ầ ụ ð ờứ m Cú pháp : ASPError.Category Column ộ ế ị ộ ứ ấ ậ ð ỗ Thu c t t v tr t th m y trong t p tin ASP i. === St by hoangly85 === 61 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Cú pháp : ASPError.Column Description ộ ả ắ ọ ỗ Thu c t ng n g n l i. Cú pháp : ASPError.Description File ộ ả ề ậ ð ỗ Thu c t v t p tin ASP i. ASPError.File Line ộ ế ứ ấ ậ ð ỗ Thu c t t d m y trong t p tin ASP i. Cú pháp : ASPError.Line Number ộ ả ề ỗ ẩ ủ ỗ ạ Thu c t v m i COM chu n c a l i t o ra. Cú pháp : ASPError.Number Source ộ ả ề ð ạ ủ ỗ Thu c t v n m a d i. Cú pháp : ASPError.Source Ví dụ : <% Dim objErr Set objErr = Server.GetLastError() “ĩ ắ ọ “ ạ ẫ ứĩ ắ ờ Response.Write ( “ỉ ặ”ờ Response.Write ( “ĩ ừ ọ “ạ ẫ ứ ĩ ừ ờ Response.Write( “ỉở ặ”ờ Response.Write ( “ắ ọ “ ạ ẫ ứắ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( “ắ “ ạ ẫ ứắ ờ Response.Write ( = “ỉở ặ”ờ Response.Write ( === St by hoangly85 === 62 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP “ừ ọ “ ạ ẫ ứ ừ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( “ỳ ọ “ ạ ẫ ứỳ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( “Ổ ọ “ ạ ẫ ứỔ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( “ẹ ọ “ ạ ẫ ứẹ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( “ ọ “ ạ ẫ ứ ờ Response.Write ( “ỉở ặ”ờ Response.Write ( %> 2.4.7. Ðối týợng DICTIONARY Ðố ýợ Dictionary ðýợ ðể ý ữ ặ ụ ịứ Ðố r ýợ dictionary ể ýõ ự ý ả ự ðố ýợ Dictionary t c ðýợ ạ ðể ớ ữ ệ ộ ệ ả õ ứ ðố ýợ Dictionary ớ ả ấ ồ So s v Ðố ýợ Dictionary ừ ộ ờ ðể ậ ệ ầ ử ộ ờ + d h ả ử ụ ỉ ốứ m ạ ể ReDim ðể ðổ ýớ ủ ðố ýợ Dictionary + B ả ðýợ ứ c ộ ầ ử ỏ ðố ýợ Dictionary ầ ử ạ ẽ ự ðộ + Khi xo th ếự ả ứ thay th ả ể ề ề ðố ýợ Dictionary ứ + M th Ðố ýợ Dictionary ðýợ ự ớ ề ứ ã õ ứ + Ðố ýợ Dictionary ậ ýờ ầ ử ộ ẫ + truy c ệ ả õ ả ứ hi Ðố ýợ Dictionary ðị ị ầ ử ự ộ ệ ả õ ứ + ph 2.4.7.1. Tạo ðối týợng Dictionary Ðố ýợ Dictionary ðýợ ạ ở ðố ýợ ằ ệ ọ ýõ ứ CreateObject ý ồ nh === St by hoangly85 === 63 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ở CreateObject ủ ðố ýợ ả ề ộ ðố ýợ ðể B v c ðố ýợ ế Dic ệ Set ta d . ử ụ ự ể ủ ðố ýợ Dictionary ả ủ ỏ ự ể ð Khi s d ta ph y b ằ ồ b Set Dic = nothing 2.4.7.2. Các thuộc tính của ðối týợng Dictionary CompareMode ộ CompareMode ðể ế ậ ặ ậ ề ế ðộ ðể Ta d ðố ýợ Dictionary s . Cú pháp : mode Dictionary.CompareMode [= ] ð mode ể ậ ộ ị ồ Trong c – ị 0 = vbBinaryCompare So s – ạ ã ả 1 = vbTextCompare So s – õ ở ữ ệ 2 = vbDatabaseCompare So s Ví dụ : === St by hoangly85 === 64 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Count ộ ả ề ố ặ ụ ị ộ ố ầ ửờ ðố ýợ Dictionary Thu . Cú pháp : Dictionary.Count Ví dụ : Item ộ ðể ặ ấ ề ị ủ ộ ầ ử ðố ýợ D Dictionary . Cú pháp : key newitem Dictionary.Item ( )[ = ] Ví dụ : <% Dim Dic “ ứừ ”ờ Set Dic = Server.CreateObject( “ẳẹ”ự “ẳ ẹộ ” Dic.Add “ẳắỹ”ự “ẳồ ắ ỹ ” Dic.Add “ẳ ”ự “ẳả ” Dic.Add “ỗ ị ủ ẳẹ ồ “ ạ ừ ứỡ ộ“ẳẹ”ờờ Response.Write ( kho l Set Dic = nothing === St by hoangly85 === 65 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP %> Key Ðể ðổ ủ ộ ð ðố ýợ Dictionary ộ thay i t a m t kho i t ng ta d c t key newkey Dictionary.Key ( )[ = ] Ví dụ : 7.3. Các phýõng thức của ðối týợng Dictionary Add ýõ ứ Add ðể ộ ặ ụ ị ớ ðố ýợ Ph d ho Dictionary ế ð Dictionary ýõ ứ ẽ ị ứ . N th Cú pháp : key value Dictionary.Add ( , ) Ví dụ : === St by hoangly85 === 66 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Exists Ðể ể ộ ð ðố ýợ Dictionary ý ýõ hay ch ứ Exists ýõ ứ ả ề ế ð Dictionary ả ề th . Ph v false ế ồ ạ ứ n Cú pháp : key value Dictionary.Exists ( , ) Ví dụ : === St by hoangly85 === 67 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Items ả ũ ủ ðố ýợ Dictionary Kh o t m ð ũ ả ữ ệ ủ ýồ ế ộ ị ð ự ử ðổ ịựứứứ ẹế ệ ầ ýợ ấ ị ủ ðể ắ ẳ ẽ ấ ề ờ ứ Ðố ýợ Dictionary ấ ýõ s cung c ứ Items ðể ấ ộ ả ị ủ ự ờ ả ẽ th ữ ệ ễ õ ứ ắ ủ ýõ ứ Items ý ồ t nh Dictionary.Items Ví dụ : Keys ả ề ộ ả ị ý ýõ ứ Items ýõ ứ Keys Thay v th ạ ả ề ộ ả ðố ýợ Dictionary l . Cú pháp : Dictionary.Keys === St by hoangly85 === 68 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ví dụ : Remove ýõ ứ ộ ầ ử ộ ộ ặ ụ ịờ ỏ ðố ýợ Ph Dictionary ủ ýõ ứ ý ồ . C ph key Dictionary.Remove ( ) Ví dụ : === St by hoangly85 === 69 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP RemoveAll ýõ ứ ðể ấ ả ầ ử ủ ðố ýợ Dictionary Ph . Cú pháp : Dictionary.RemoveAll 2.4.8. Ðối týợng FILESYSTEMOBJECT Ðố ýợ FileSystemObject ấ ề ệ ố ậ ự ý ụ cung c ủ ể ử ðố ýợ ðể ớ ậ ự ý ụ ựứ tr 2.4.8.1. Tạo ðối týợng filesystemobject ở ðố ýợ FileSystemObject ệ ố ậ ủ ủ B thao t ðố ýợ ðố ýợ ðýợ ạ ở ồ (server) n Lýu ý ự ể ủ ðố ýợ ả ủ ự : Khi d FileSystemObject ta ph ể ð ð ằ ồ th Set fso = nothing 2.4.8.2. Các thuộc tính của ðối týợng filesystemobject Ðố ýợ FileSystemObject ỉ ộ ộ ấ ð ồ ch Drives: ộ ế ộ ậ ấ ả ổ ĩ ứ Thu Cú pháp : [drivecoll = ] FileSystemObject.Drives 2.4.8.3. Các phýõng thức của ðối týợng FileSystemObject BuildPath ýõ ứ ắ ộ ỗ ộ ðýờ ẫ ð ðể ạ ộ ðýờ ẫ ớ Ph c n n m t chu i v t ng d n t o ra m t ng d n m i. Cú pháp : ewpath ath ame [n = ]FileSystemObject.BuildPath(p , n ) ð ồ Trong path ðýờ ẫ ð ồ ạ + : l ame ầ ắ + n : l ewpath ðýờ ẫ ớ ð ắ + n : l === St by hoangly85 === 70 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ví dụ : ụ ự ọ ýõ ứ BuildPath ế NewPath ẽ ị Trong v tr i ph c th n s c l “C:\My Documents\BT” CopyFile ýõ ứ ộ ặ ộ ố ậ ừ ý ụ ớ ý ụ ứ Ph c n t ho c m t s t p tin t th c n i th c kh Cú pháp : rc des ovr FileSystemObject.Copy s , [, ] ð ồ Trong src ðýờ ẫ ớ ậ ầ ự ậ ầ ể ứ ự : l ng d n t i t p tin c n sao ch p tin c n ch ch a c thay ế ý ộậự ẻờứ th nh des ðýờ ẫ ủ ý ụ ầ ớ ðýờ ẫ ðýợ ứ ự : L ng d n c a th c c n ch i, ng d n n c ch a k thay ế th (*, ?). ovr: ậ ị ặ ứ ẹế ovr ĩ ð nh l ậ ð des ế ð ứ ỗ ị ặ ðị ủ ovr c . N cho ch ứ l Ví dụ Ð ạ ýõ ð ấ ả ậ ð ứ : ý ụ C:\Web ý ụ D:\ASP th sang th === St by hoangly85 === 71 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP CopyFolder ýõ ứ ộ ặ ề ý ụ Ph c n t ho c nhi u th c. Cú pháp : rc es vr FileSystemObject.CopyFolder s , d [,o ] Ví dụ ấ ả ý ụ ủ ý ụ C:\Web ý ụ : Sao ch v D:\ASP CreateFolder ýõ ứ ạ ộ ý ụ ớ ứ Ph Cú pháp : FileSystemObject.CreateFolder Foldername ( ) Ví dụ ạ ý ụ C:\ASP : T === St by hoangly85 === 72 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP CreateTextFile ýõ ứ ạ ộ ậ ã ả ý ụ ệ ả ề ộ ðố Ph h ýợ TextStream ðể ðọ ặ ữ ệ ứ t d Cú pháp : filename Ovr Uni FileSystemObject.CreateTextFile( [, [, ]]) DeleteFile ýõ ứ ộ ặ ề ậ ứ ẹế ậ ồ ạ ẽ ấ Ph ệ ỗ ứ hi Cú pháp : filename bReadOnly FileSystemObject.DeleteFile( [, ]) ð bReadOnly ậ ộ ịứ ẹế ậ ị ậ Trong nh ộ ỉ ðọ ộ ũ ẽ ị ứ ẹế ậ ị ậ mang thu -only) c ộ ẽ ị ứ tin mang thu -only s kh DeleteFolder ýõ ứ ộ ặ ề ý ụ ứ ẹế ý ụ ồ ạ Ph ýõ ứ ẽ ỗ ứ ph Cú pháp : oldername bReadOnly FileSystemObject.DeleteFolder(f [, ]) DriveExists ýõ ứ DriveExists ể ệ ố ậ ủ ồ ạ ộ ổ Ph ki t ĩ ð ẻ ẹế ýõ ứ ả ề true ế ẽ d , c ả ề false tr . Cú pháp : drive FileSystemObject.DriveExists( ) ð drive ủ ổ ĩ ầ ể Trong l === St by hoangly85 === 73 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Ví dụ : GetAbsolutePathName ýõ ứ ả ề ðýờ ẫ ạ ðầ ðủ ủ ộ ðýờ ẫ ýõ ðố ứ Ph ng th Cú pháp : path FileSystemObject.GetAbsolutePathName( ) Ví dụ ả ử ðýờ ẫ ệ C:\ASP Ð ạ ýõ ð ẽ : Gi . C:\ASP\Data\list.txt ra m GetBaseName === St by hoangly85 === 74 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ýõ ứ ả ề ầ ủ ộ ậ ặ ủ ý ụ ở ố ộ Ph t ðýờ ẫ ứ Cú pháp : path FileSystemObject.GetBaseName( ) Ví dụ ế path “ắồ ” ẽ ả ề ” ” : N = \ASP\Data\list.txt GetDrive ýõ ứ ả ề ộ ðố ýợ Drive ả ộ ổ ĩ ứ ắ ðýợ ðố ýợ Ph m Drive ể ổ ĩ Drive ả ằ ử ụ ýõ ứ ta c m ủ ðố ýõ Drive c . Cú pháp : Drive FileSystemObject.GetDrive( ) Ví dụ Ð ạ ýõ ð ả ề ðố ýợ Drive ả ổ ĩ ắứ : m GetDriveName ýõ ứ ả ề ộ ỗ ủ ổ ĩ ộ ðýờ ẫ ứ Ph Cú pháp : path FileSystemObject.GetDriveName( ) Ví dụ ế path “ắồ ” ọ ỗ ừ ẹ ộpath : N = \ASP\Data\list.txt g ) ta ẽ ậ ðýợ ỗ ”ắồ” s GetExtensionName ýõ ứ ả ề ầ ở ộ ủ ộ ậ ộ ồ ấ ấ Ph ữ ầ ầ ở ộ ờứ ph Cú pháp : path FileSystemObject.GetExtensionName( ) Ví dụ ế path “ắồ ” ọ : N = \ASP\Data\list.txt path ẽ ậ ðýợ ỗ “ ” GetExtensionName( ) ta s GetFile ýõ ứ GetFile ả ề ðố ýợ ỳ ả ộ ậ ð ðýợ ỉ ðị Ph tr ðýờ ẫ ề ứ Cú pháp : path FileSystemObject.GetFile( ) === St by hoangly85 === 75 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP GetFileName ýõ ứ ỉ ả ề ầ ủ ộ ậ ộ ý ụ ứ Ph Cú pháp : path FileSystemObject.GetFileName( ) Ví dụ ế path “ắồ ” ọ ỗ ỳ ẹ ộpath ẽ : N = \ASP\Data ) ta s ậ ðýợ ỗ ”ừ ”ứ ẹế path “ắồ ” ọ nh = \ASP\Data\list.txt path ẽ ậ ðýợ ỗ ” ”ứ GetFileName( ) ta s t GetFolder ýõ ứ GetFolder ả ề ðố ýợ Folder ủ ộ ý ụ ứ Ph tr c Cú pháp : path FileSystemObject.GetFolder( ) GetParentFolderName ýõ ứ ả ề ý ụ ủ ộ ý ụ ứ Ph Cú pháp : path FileSystemObject.GetParentFolderName( ) Ví dụ ế path “C:\ASP\Data” ọ : N = GetParentFolderName path ẽ ậ ðýợ ỗ ĩ ”ứ Ð ý ụ ủ ( ) ta s y l ý ụ ừ th GetSpecialFolder ýõ ứ ả ề ðýờ ẫ ớ ộ ố ý ụ ðặ ệ ủ ệ ð ề ứ Ph c Cú pháp : foldername FileSystemObject.GetSpecialFolder( ) ð foldername ậ ộ ị ồ Trong nh WindowsFolde ế ố ậ ề ý ụ ủ ệ ð ề ộ ặ ðị + r hay 0: N ð ý ụ ự ðố ớ ẵớớớ ð ý ụ Windows 98 th Winnt). SystemFolder ế ố ậ ề ðýờ ẫ ớ ý ụ ủ ệ + hay 1: N ð ề ứ TemporaryFolder ế ố ậ ề ðýờ ẫ ớ ý ụ ạ ờ + hay 2: N ủ ệ ð ề ứ (TEMP) c Ví dụ Ð ạ ýõ ð ấ ý ụ ệ ố ủ ệ ð ề ứ ẹế : ẵớớớ ẽ ấ ệ d “C:\WINNT\System32” === St by hoangly85 === 76 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP GetTempName ýõ ứ ả ề ộ ậ ặ ý ụ ạ ờ ðýợ ẫ Ph ứ nhi Cú pháp : FileSystemObject.GetTempName Ví dụ : MoveFile ýõ ứ ể ộ ặ ề ậ ừ õ õ ứ Ph t === St by hoangly85 === 77 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Cú pháp : src des FileSystemObject.MoveFile ( , ) ð src õ ứ ậ ầ ể ự des õ ậ ầ Trong l l ðế ứ ch MoveFolder ýõ ứ ể ộ ặ ề ý ụ ừ õ õ ứ Ph Cú pháp : src des FileSystemObject.MoveFile ( , ) ð src õ ứ ậ ầ ể ự des õ ậ ầ Trong l l ðế ứ ch OpenTextFile ýõ ứ ở ộ ậ ả ề ộ ðố ýợ ðýợ ðể Ph ậ ðố ýợ ứ truy c Cú pháp : fname mode, creat, format FileSystemObject.OpenTextFile( , ) ð ồ Trong fname ủ ậ ầ ở + : l mode ðể ỉ ứ ởứ + : d create ðể ỉ ðị ằ ế ậ ồ ạ ạ ậ ớ + : d ứ kh format ðể ỉ ằ ở ậ ẩ ĩ ắỡỡ ứ + : d 2.4.8.4. Ví dụ minh họa ð ộ ụ ể ị ộ ử ổ ðã ậ ộ ờ ýờ Sau ậ ộ ờ ậ ẩ ộ ờứ ắ ýõ ẽ ể d ặ ồ ạ ậ password.txt ý ụ tra c password n trong th ệ ạ ủ ứ ụ ẻ ẹế ýõ ẽ ðý ýờ ðế hi ế ýõ ẽ ắ ýờ ðã ậ ạ ứ main.asp. N ậ common.asp ứ ýờ ðị ĩ ð T ch h ðể ể ề ồ ạ CheckAccount d ậ ứ ẻ ế ả ề true ế trong t N . N ẽ ả ề false ộ ủ common.asp ý n . N nh sau: <% Function CheckAccount(uname,upass) Dim fso ' Bien chua doi tuong FileSystem Dim ftxt ' Bien chua doi tuong File Dim stLine Dim path === St by hoangly85 === 78 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Dim uname_pass uname=CStr(uname) upass=CStr(upass) uname_pass = uname & ":" & upass CheckAccount=false ' Mac dinh ban dau path = Server.MapPath(".") & "\Password.txt" Set fso = Server.CreateObject("Scripting.FileSystemObject") Set ftxt = fso.OpenTextFile(path) While (ftxt.AtEndOfStream ậ login.asp ậ ả ệ ớ ýờ ứ ẹộ ủ login.asp T l ý ồ nh ỉụ ặ Login to Login "") and (upass <> "") then === St by hoangly85 === 79 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP if CheckAccount(uname, upass) = true then response.redirect ("main.asp") else response.write (" Please check username and password! ") end if elseif uname Please enter password! ") elseif upass Please enter username! ") end if %> form method="POST" action = "login.asp" Username '> Password === St by hoangly85 === 80 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ạ ậ ứ ứ ẩ ạ ế ộ ứ ụ ự ự ứ T ủ ứ ụ ứ ỗ ả ử ậ ứ ớ ộ ồ ch ỉụ ặ Trang Web ch ạ ậ ðặ ý ụ ớ ậ ớ ộ ồ T tin Password.txt v abc:abc cobe:becon nvlong:long1280 hung1254:meocon Ð ứ ụ ðã ậ ứ ẹế ố ýờ ự ạ ậ ýõ ứ ứ nh in n Ðặ ấ ậ ừ ạ ộ ý ụ ạ ộ ý ụ ả ớ ỉ ðể ý ụ ứ ấ ậ ứ MyWeb ch ở ệ ồụụ ụỹ ụ ứ ứ ẩế ả ẽ ể ị M ý ồ m ýờ ð ậ ứ Khi ng ấ login ýờ ẽ ðýợ ể ứ ý ồ th ng === St by hoangly85 === 81 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP ý ộ ẽ ðýợ ệ Nh ssword th t c c hi n ắ ýờ ðã ậ ạ ý ồ l t ng i d p l i nh 2.4.9. Ðối týợng ADROTATOR Ðố ýợ AdRotator ðýợ ðể ể ị ả ỗ ýờ i t ng c d hi n th c nh kh i khi ng i ầ ặ refresh ộ ề ả ể ị ðýợ ðặ d u ho c m t trang. C c nh hi n th c t trong ậ ã ả t p tin v n. 2.4.9.1. Cách tạo ðối týợng AdRotator Ðể ạ ðố ýợ AdRotator ồ ta d “ỹ ắứĩ ”ờ Set ad = Server.CreateObject( “ ứ ”ờ ad.GetAdvertisement( === St by hoangly85 === 82 hoangly85@updatesofts.com
- Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP 2.4.9.2 Ðịnh dạng tập tin vãn bản REDIRECT URL WIDTH 480 HEIGHT 100 BORDER 0 * CITD.gif Ðế ớ ỡỨỡ v 80 Microsoft.gif Ðế ớ ỹ 20 ở ýớ ấ ậ ỉ ả ự ðị ỉ ự ã C ả ðể ể ị ế ể ị ðýợ ả ự ỉ ệ ầ ã ố ýờ ậ b n tr ðể ể ị ả ứ 2.4.9.3. Các thuộc tính của ðối týợng AdRotator Border ỉ ðị ýớ ủ ðýờ ề ầ ả ứ : ch Clickable ỉ ðị ầ ả hyperlink ứ : Ch kh TargetFrame ủ ðể ể ị ả ả ứ : t n th Ví dụ : 2.4.9.4. Các phýõng thức của ðối týợng AdRotator GetAdvertisement ýõ ứ ả ề ð ạ ẳ ỹỔ ể ị ụ ả : Ph ứ c === St by hoangly85 === 83 hoangly85@updatesofts.com