Đang tải... (xem toàn văn)
Truêng ®¹i häc th¸i nguyªnKhoa c«ng nghÖ th«ng tinB¸o c¸o thùc tËp tèt nghiÖp§Ò tµi : X©y dùng Web Site Híng dÉn sö dông phÇn mÒm ®å ho¹ 3DGi¸o viªn híng dÉn : ThÇy Lª Hång LinhSinh viªn : NguyÔn L¬ng T©mH¶i Phßng, ngµy 04 th¸ng 08 n¨m 2008 Môc lôcTrang1§Ò tµi thùc tËp tèt nghiÖp32§¸nh gi¸ kÕt qu¶ thùc tËp cña thÇy gi¸o híng dÉn43§¸nh gi¸ kÕt qu¶ b¶o vÖ thùc tËp cña Khoa CNTT64B¸o c¸o kÕt qu¶85 Lêi nãi ®Çu96 M« t¶ bµi to¸n cÇn gi¶i quyÕt do ®Ò tµi ®Æt ra107PhÇn I : C¬ së lý thuyÕt cho viÖc gi¶i quyÕt bµi to¸n1181.1.DÞch vô WWW trªn Internet1291.2.C¬ b¶n vÒ HTML13101.3.C«ng nghÖ Web ®éng cña Microsoft ASP (Active server page)21111.4.CSS2312PhÇn II : Ph©n tÝch thiÕt kÕ hÖ thèng26132.1.M« t¶ ho¹t ®éng cña hÖ thèng27142.2.BiÓu ®å28152.3.C¸c thùc thÓ vµ thuéc tÝnh31162.4.BiÓu ®å luång d÷ liÖu33172.5.C¬ së d÷ liÖu vËt lý37182.6.S¬ ®å Site42192.7.ThiÕt kÕ giao diÖn web site4320PhÇn III : ViÕt lÖnh xö lý c¸c ho¹t ®éng diÔn ra trong web site59213.1.M· lÖnh xö lý giao diÖn60223.2.M· lÖnh xö lý ng«n ng÷ dïng trong site62233.3.M· lÖnh xö lý kÕt nèi tíi CSDL Access64243.4.M· lÖnh xö lý c¸c ho¹t ®éng cña Admin67253.5.M· lÖnh xö lý c¸c ho¹t ®éng cña thµnh viªn70263.6.Mét sè hµm72273.7.S¶n phÈm “Web site HDSD phÇn mÒm 3D”7728PhÇn IV : KÕt luËn vµ ®Þnh híng phÊt triÓn7929Phô lôc81§Ò tµi thùc tËp tèt nghiÖp :“X©y dùng mét web site híng dÉn sö dôngphÇn mÒm ®å ho¹ 3D”Yªu cÇu ®Ò tµi thùc tËp :1.Ph©n tÝch thiÕt kÕ mét hÖ thèng th«ng tin trùc tuyÕn, lµ mét web site2.ThiÕt kÕ giao diÖn web site t¬ng t¸c víi ngêi dïng3.ViÕt m· lÖnh ®Ó thùc hiÖn viÖc qu¶n lý th«ng tin trong web site b»ng c¸c ng«n ng÷ lËp tr×nh ®· häc.§¸nh gi¸ kÕt qu¶ thùc tËp cñathÇy gi¸o híng dÉn ……………………………………………………………………………………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………§¸nh gi¸ kÕt qu¶ b¶o vÖ thùc tËp cñaKhoa C«ng NghÖ Th«ng Tin ……………………………………………………………………………………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………………………………………….………………………………………………B¸o c¸o kÕt qu¶Lêi nãi ®Çu Khi nh¾c tíi ®å ho¹ 3D ë níc ta mäi ngêi thêng nghÜ ®Õn mét c¸i g× ®ã cao xa vµ ®¼ng cÊp, chØ dµnh cho nh÷ng ngêi chuyªn nghiÖp, nh÷ng ngêi tèt nghiÖp chÝnh quy c¸c trêng Mü ThuËt C«ng nghiÖp hay KiÕn Tróc. Kh«ng, 3D rÊt gÇn gòi víi mäi ngêi, nã kh«ng dµnh riªng cho ai c¶ mµ dµnh cho tÊt c¶ nh÷ng ai yªu thÝch nã. Chóng ta ®ang sèng trong kh«ng gian 3 chiÒu vµ 1 chiÒu thêi gian (c¸c nhµ khoa häc thêng nãi gän l¹i lµ kh«ng thêi gian 4 chiÒu). Trong m¸y tÝnh, ®Ó m« pháng l¹i c¸c vËt thÓ cña thÕ giíi thËt ngêi ta nghÜ ra kh«ng gian ¶o, ®©y chÝnh lµ cèt lâi cña c«ng nghÖ 3D trªn m¸y tÝnh. §Ó cã ®îc kh«ng gian ¶o ®ã c¸c nhµ ph©n tÝch, thiÕt kÕ, ph¸t triÓn, lËp tr×nh viªn … ®· t¹o ra rÊt nhiÒu c¸c phÇn mÒm 3D chuyªn nghiÖp hiÖnn cã trªn thÞ trêng nh : 3D Max, Maya, Rhino, Poser, Blen®er, … Víi 1 ch¬ng tr×nh ®å häa 3D c«ng viÖc chóng ta cã thÓ lµm lµ v« h¹n. Nhng ®Ó b¾t ®Çu tõ ®©u, dïng phÇn mÒm g×, bíc ®Çu sö dông nh thÕ nµo, khi th¾c m¾c biÕt hái ai … TÊt c¶ nh÷ng ai míi bíc vµo thÕ giíi ®å ho¹ 3D dêng nh ®Òu cã chung nh÷ng th¾c m¾c, b¨n kho¨n ®ã. ChÝnh v× lÏ ®ã mµ t«i – mét ngêi còng yªu thÝch ®å ho¹ 3D muèn t¹o ra mét “kh«ng gian ¶o” trªn Internet ®Ó kÕt nèi tíi mäi ngêi quan t©m, yªu thÝch ®å ho¹ 3D nhng cßn bì ngì v× thÕ giíi 3D qu¸ réng lín vµ tr¸ng lÖ. Tõ ®ã ý tëng thiÕt kÕ mét trang web chuyªn vÒ ®å ho¹ 3D nhen nhãm trong t«i. Lóc ®Çu, em vÉn rôt rÌ vµ e ng¹i v× nhiÒu lý do nhng tíi khi ®îc thÇy Lª Hång Linh vµ c¸c thÇy trong Bé m«n C«ng nghÖ §iÒu khiÓn tù ®éng ®éng viªn khÝch lÖ th× em ®· quyÕt t©m nhËn ®Ò tµi nµy. Díi sù híng dÉn trùc tiÕp cña ThÇy Lª Hång Linh em ®· ®îc tiÕp xóc víi nhiÒu tµi liÖu chuyªn nghµnh liªn quan tíi ®Ò tµi khiÕn em vì v¹c ra nhiÒu ®iÒu bæ Ých. Cïng víi ThÇy Linh, c¸c thÇy trong Bé m«n CN §iÒu khiÓn tù ®éng còng ®· nhiÖt t×nh híng dÉn em thùc hiÖn ®Ò tµi nµy. Em xin göi lêi c¶m ¬n ch©n thµnh tíi ThÇy Lª Hång Linh, c¸c thÇy trong Bé m«n CN §iÒu khiÓn tù ®éng ®· tËn t×nh chØ d¹y cho em. Em còng göi lêi biÕt ¬n tíi c¸c thÇy c« trong Khoa CNTT trêng §H Th¸i Nguyªn ®· gi¶ng d¹y tËn t×nh t¹o cho em mét nÒn t¶ng kiÕn thøc v÷ng vµng ®Ó em hoµn thµnh ®Ò tµi nµy. Em ch©n thµnh c¶m ¬n HP, ngµy 04 th¸ng 08 n¨m 2008Sinh viªnNguyÔn L¬ng T©mM« t¶ bµi to¸n cÇn gi¶i quyÕt do ®Ò tµi ®Æt ra Bµi to¸n ®Æt ra lµ : x©y dùng web site ®Ó lµm n¬i trao ®æi cho nh÷ng ngêi yªu thÝch ®å ho¹ 3D (träng t©m vµo nh÷ng ngêi míi b¾t ®Çu). Nh vËy cÇn gi¶i quyÕt c¸c bµi to¸n chøc n¨ng cña web site : lu th«ng tin cña thµnh viªn sau khi ®¨ng ký, ®a c¸c th«ng tin híng dÉn lªn cho thµnh viªn ®äc, t¶i vÒ m¸y c¸ nh©n, t×m kiÕm th«ng tin trong web site. Chøc n¨ng qu¶n lý site cña qu¶n trÞ viªn : qu¶n lý th«ng tin thµnh viªn, thªm xo¸ söa th«ng tin thµnh viªn vµ c¸c bµi híng dÉn, gi¶i quyÕt c¸c th¾c m¾c cña thµnh viªn, thiÕt lËp cÊu h×nh qu¶n trÞ.
Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Truờng đại học thái nguyên Khoa công nghệ thông tin Báo cáo thực tập tốt nghiệp Đề tài : Xây dựng Web Site H-ớng dẫn sử dụng phần mềm đồ hoạ 3D Giáo viên h-ớng dẫn : Thầy Lê Hồng Linh Sinh viên : Nguyễn L-ơng Tâm Hải Phòng, ngày 04 tháng 08 năm 2008 Xây dựng web site h-íng dÉn sư dơng phÇn mỊm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyªn Mơc lơc 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Đề tài thực tập tốt nghiệp Đánh giá kết thực tập thầy giáo h-ớng dẫn Đánh giá kết bảo vệ thực tập Khoa CNTT Báo cáo kết Lời nói đầu Mô tả toán cần giải đề tài đặt Phần I : Cơ sở lý thuyết cho việc giải toán 1.1.Dịch vụ WWW Internet 1.2.Cơ HTML 1.3.Công nghệ Web động Microsoft ASP (Active server page) 1.4.CSS Phần II : Phân tích thiết kế hệ thống 2.1.Mô tả hoạt động hệ thống 2.2.Biểu đồ 2.3.Các thực thể thuộc tính 2.4.Biểu đồ luồng liệu 2.5.Cơ sở liệu vật lý 2.6.Sơ đồ Site 2.7.ThiÕt kÕ giao diƯn web site PhÇn III : ViÕt lệnh xử lý hoạt động diễn web site 3.1.M· lƯnh xư lý giao diƯn 3.2.M· lƯnh xư lý ngôn ngữ dùng site 3.3.Mã lệnh xử lý kÕt nèi tíi CSDL Access 3.4.M· lƯnh xư lý c¸c hoạt động Admin 3.5.Mã lệnh xử lý hoạt động thành viên 3.6.Một số hàm 3.7.Sản phẩm Web site HDSD phÇn mỊm 3D” PhÇn IV : KÕt ln định h-ớng phất triển Phụ lục Xây dựng web site h-íng dÉn sư dơng phÇn mỊm 3D Trang 10 11 12 13 21 23 26 27 28 31 33 37 42 43 59 60 62 64 67 70 72 77 79 81 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Đề tài thực tập tốt nghiệp : Xây dựng web site h-ớng dẫn sử dụng phần mềm đồ hoạ 3D Yêu cầu đề tài thực tập : Phân tích thiết kế hệ thống thông tin trực tun, lµ mét web site ThiÕt kÕ giao diƯn web site t-ơng tác với ng-ời dùng Viết mã lệnh để thực việc quản lý thông tin web site ngôn ngữ lập trình học Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Đánh giá kết thực tập thầy giáo h-ớng dẫn ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… X©y dùng web site h-íng dÉn sư dơng phần mềm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ……………………………………………… X©y dùng web site h-íng dÉn sư dụng phần mềm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Đánh giá kết bảo vệ thực tập Khoa Công Nghệ Thông Tin …………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… X©y dùng web site h-íng dÉn sư dơng phÇn mỊm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ……………………………………………… X©y dùng web site h-íng dÉn sư dơng phÇn mỊm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Báo cáo kết Xây dựng web site h-íng dÉn sư dơng phÇn mỊm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Lời nói đầu Khi nhắc tới đồ hoạ 3D n-ớc ta ng-ời th-ờng nghĩ đến cao xa đẳng cấp, dành cho ng-ời chuyên nghiệp, ng-ời tốt nghiệp quy tr-ờng Mỹ Thuật Công nghiệp hay Kiến Trúc Không, 3D gần gũi với ng-ời, không dành riêng cho mà dành cho tất yêu thích Chúng ta sống không gian chiều chiều thời gian (các nhà khoa học th-ờng nói gọn lại không thời gian chiều) Trong máy tính, để mô lại vËt thĨ cđa thÕ giíi thËt ng-êi ta nghÜ không gian ảo, cốt lõi công nghệ 3D máy tính Để có đ-ợc không gian ảo nhà phân tích, thiết kế, phát triển, lập trình viên tạo nhiều phần mềm 3D chuyên nghiệp hiệnn có thị tr-ờng nh- : 3D Max, Maya, Rhino, Poser, Blen®er, … Víi ch-ơng trình đồ họa 3D công việc làm vô hạn Nh-ng để đâu, dùng phần mềm gì, b-ớc đầu sử dụng nh- nào, thắc mắc biết hỏi Tất b-ớc vào giới đồ hoạ 3D d-ờng nh- có chung thắc mắc, băn khoăn Chính lẽ mà ng-ời yêu thích đồ hoạ 3D muốn tạo không gian ảo Internet để kết nối tới ng-ời quan tâm, yêu thích đồ hoạ 3D nh-ng bỡ ngỡ giới 3D rộng lớn tráng lệ Từ ý t-ởng thiết kế trang web chuyên đồ hoạ 3D nhen nhóm Lúc đầu, em rụt rè e ngại nhiều lý nh-ng tới đ-ợc thầy Lê Hồng Linh thầy Bộ môn Công nghệ Điều khiển tự động động viên khích lệ em tâm nhận đề tài D-ới h-ớng dẫn trực tiếp Thầy Lê Hồng Linh em đ-ợc tiếp xúc với nhiều tài liệu chuyên nghành liên quan tới đề tài khiến em vỡ vạc nhiều điều bổ ích Cùng với Thầy Linh, thầy Bộ môn CN Điều khiển tự động nhiệt tình h-ớng dẫn em thực đề tài Em xin gửi lời cảm ơn chân thành tới Thầy Lê Hồng Linh, thầy Bộ môn CN Điều khiển tự động tận tình dạy cho em Em gửi lời biết ơn tới thầy cô Khoa CNTT tr-ờng ĐH Thái Nguyên giảng dạy tận tình tạo cho em tảng kiến thức vững vàng để em hoàn thành đề tài Em chân thành cảm ơn ! HP, ngày 04 tháng 08 năm 2008 Sinh viên Nguyễn L-ơng Tâm Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Mô tả toán cần giải đề tài đặt Bài toán đặt : xây dựng web site để làm nơi trao đổi cho ng-ời yêu thích đồ hoạ 3D (trọng tâm vào ng-ời bắt đầu) Nh- cần giải toán chức web site : l-u thông tin thành viên sau đăng ký, đ-a thông tin h-ớng dẫn lên cho thành viên đọc, tải máy cá nhân, tìm kiếm thông tin web site Chức quản lý site quản trị viên : quản lý thông tin thành viên, thêm - xoá - sửa thông tin thành viên h-ớng dẫn, giải thắc mắc thành viên, thiết lập cấu hình quản trị Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D 10 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên 'Close recordset If isObject(rsCommon) Then Set rsCommon = Nothing End If 'Close Database Connection If isObject(adoCon) Then adoCon.Close Set adoCon = Nothing End If End Sub %> 3.4.M· lƯnh xư lý c¸c hoạt động Admin File admin.asp xử lý đăng nhập vào Control Panel Admin nhập tên mật : File admin_delete_newsletter.asp xử lý xoá thành viên web site : 3.5.M· lƯnh xư lý hoạt động thành viên File logout.asp xử lý hoạt động đăng xuất thành viên : X©y dùng web site h-íng dÉn sư dụng phần mềm 3D 70 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên File delete_account.asp xử lý thao tác xoá tài khoản cá nhân thành viªn : 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Declare variables Dim strUserID 'Holds the users ID code Dim strUserName 'Holds the users name Dim strEmail 'Holds the users email address Dim strSubject 'Holds the subject of te email Dim strEmailBody 'Holds the email body Dim blnActivated 'Set to true if the accountis activated 'Initialise variables blnActivated = false 'Read in the users ID code strUserID = Trim(Mid(Request.Cookies(strCookieName)("UID"), 1, 33)) 'Clean up the USER ID address getting rid of unwanted characters strUserID = IDcharacterStrip(strUserID) 'Get the users details from the database and activate account If NOT strUserID = "" Then 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT TOP " & strDbTable & "Members.* " & _ "FROM " & strDbTable & "Members " & _ "WHERE " & strDbTable & "Members.ID_Code = '" & strUserID & "';" With rsCommon 'Set the cursor type property of the record set to Dynamic so we can navigate through the record set CursorType = 'Set the Lock Type for the records so that the record set is only locked when it is updated LockType = 'Query the database Open strSQL, adoCon If NOT EOF Then 'Get the email address strUserName = Fields("Name") strEmail = Fields("Email") 'SQL query to delete category data from db strSQL = "DELETE FROM " & strDbTable & "MemCat WHERE " & strDbTable & "MemCat.Mail_ID=" & CLng(.Fields("Mail_ID")) & ";" 'Write to database adoCon.Execute(strSQL) 'Delete the db record Delete End If 'Clean up X©y dùng web site h-íng dÉn sư dơng phÇn mỊm 3D 71 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên close End With 'Set the subject of the email strSubject = strWebsiteName & ": Subscription Removed" 'set the message body of the activation email strEmailBody = strTxtDear & " " & strUserName & "," & _ vbCrLf & vbCrLf & strTxtGreetingsFrom & " " & strWebsiteName & "." & _ vbCrLf & vbCrLf & strTxtThisIsToConfirmThatYouHaveUnsubscribed & " " & strWebsiteName & "." & _ vbCrLf & vbCrLf & strSignature 'Send the e-mail using the Send Mail function created on the send_mail_function.inc file Call SendMail(strEmailBody, decodeString(strUserName), decodeString(strEmail), strWebsiteName, decodeString(strWebsiteEmailAddress), strSubject, strMailComponent, true) 'If the mailing list admin wants to be notified of people leaving then send an email If blnRemoveNotify Then 'Set the subject of the email strSubject = strWebsiteName & ": Subscription Removed" 'set the message body of the activation email strEmailBody = strTxtDear & " " & strWebsiteName & " " & strTxtAdmin & "," & _ vbCrLf & vbCrLf & strTxtThisIsToNotifyThatTheFollowingHasUnsubscribed & " " & strWebsiteName & "." & _ vbCrLf & vbCrLf & strTxtName & ":- " & strUserName & _ vbCrLf & strTxtEmail & ":- " & strEmail 'Send the email Call SendMail(strEmailBody, strWebsiteName, decodeString(strWebsiteEmailAddress), strWebsiteName, decodeString(strWebsiteEmailAddress), strSubject, strMailComponent, false) End If End If 3.6.Một số hàm Hàm cắt bỏ chữ vừa có ký tự chữ cái, vừa có ký tự chữ số : Private Function characterStrip(ByVal strTextInput) 'Dimension variable Dim intLoopCounter 'Holds the loop counter 'Loop through the ASCII characters For intLoopCounter = to 37 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters For intLoopCounter = 39 to 44 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters numeric characters to lower-case characters For intLoopCounter = 65 to 94 X©y dùng web site h-íng dÉn sư dơng phÇn mỊm 3D 72 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 123 to 125 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 127 to 255 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Strip individul ASCII characters left out from above strTextInput = Replace(strTextInput, CHR(59), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(60), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(62), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(96), "", 1, -1, 0) 'Return the string characterStrip = strTextInput End Function Hàm bỏ tag HTML để văn : Private Function removeAllTags(ByVal strInputEntry) 'Remove all HTML scripting tags etc for plain text output strInputEntry = Replace(strInputEntry, "", ">", 1, -1, 1) strInputEntry = Replace(strInputEntry, "'", "’", 1, -1, 1) strInputEntry = Replace(strInputEntry, """", """, 1, -1, 1) 'Return removeAllTags = strInputEntry End Function Hàm giải mã chuỗi ký tự : Private Function decodeString(ByVal strInputEntry) 'Prevent errors If isNull(strInputEntry) Then strInputEntry = "" 'Remove malisous charcters from links and images strInputEntry = Replace(strInputEntry, "=", "=", 1, -1, 0) strInputEntry = Replace(strInputEntry, "a", "a", 1, -1, 0) strInputEntry = Replace(strInputEntry, "b", "b", 1, -1, 0) strInputEntry = Replace(strInputEntry, "c", "c", 1, -1, 0) strInputEntry = Replace(strInputEntry, "d", "d", 1, -1, 0) strInputEntry = Replace(strInputEntry, "e", "e", 1, -1, 0) strInputEntry = Replace(strInputEntry, "f", "f", 1, -1, 0) strInputEntry = Replace(strInputEntry, "g", "g", 1, -1, 0) strInputEntry = Replace(strInputEntry, "h", "h", 1, -1, 0) strInputEntry = Replace(strInputEntry, "i", "i", 1, -1, 0) strInputEntry = Replace(strInputEntry, "j", "j", 1, -1, 0) strInputEntry = Replace(strInputEntry, "k", "k", 1, -1, 0) strInputEntry = Replace(strInputEntry, "l", "l", 1, -1, 0) strInputEntry = Replace(strInputEntry, "m", "m", 1, -1, 0) X©y dùng web site h-íng dẫn sử dụng phần mềm 3D 73 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên strInputEntry = Replace(strInputEntry, "n", "n", 1, -1, 0) strInputEntry = Replace(strInputEntry, "o", "o", 1, -1, 0) strInputEntry = Replace(strInputEntry, "p", "p", 1, -1, 0) strInputEntry = Replace(strInputEntry, "q", "q", 1, -1, 0) strInputEntry = Replace(strInputEntry, "r", "r", 1, -1, 0) strInputEntry = Replace(strInputEntry, "s", "s", 1, -1, 0) strInputEntry = Replace(strInputEntry, "t", "t", 1, -1, 0) strInputEntry = Replace(strInputEntry, "u", "u", 1, -1, 0) strInputEntry = Replace(strInputEntry, "v", "v", 1, -1, 0) strInputEntry = Replace(strInputEntry, "w", "w", 1, -1, 0) strInputEntry = Replace(strInputEntry, "x", "x", 1, -1, 0) strInputEntry = Replace(strInputEntry, "y", "y", 1, -1, 0) strInputEntry = Replace(strInputEntry, "z", "z", 1, -1, 0) strInputEntry = Replace(strInputEntry, "A", "A", 1, -1, 0) strInputEntry = Replace(strInputEntry, "B", "B", 1, -1, 0) strInputEntry = Replace(strInputEntry, "C", "C", 1, -1, 0) strInputEntry = Replace(strInputEntry, "D", "D", 1, -1, 0) strInputEntry = Replace(strInputEntry, "E", "E", 1, -1, 0) strInputEntry = Replace(strInputEntry, "F", "F", 1, -1, 0) strInputEntry = Replace(strInputEntry, "G", "G", 1, -1, 0) strInputEntry = Replace(strInputEntry, "H", "H", 1, -1, 0) strInputEntry = Replace(strInputEntry, "I", "I", 1, -1, 0) strInputEntry = Replace(strInputEntry, "J", "J", 1, -1, 0) strInputEntry = Replace(strInputEntry, "K", "K", 1, -1, 0) strInputEntry = Replace(strInputEntry, "L", "L", 1, -1, 0) strInputEntry = Replace(strInputEntry, "M", "M", 1, -1, 0) strInputEntry = Replace(strInputEntry, "N", "N", 1, -1, 0) strInputEntry = Replace(strInputEntry, "O", "O", 1, -1, 0) strInputEntry = Replace(strInputEntry, "P", "P", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Q", "Q", 1, -1, 0) strInputEntry = Replace(strInputEntry, "R", "R", 1, -1, 0) strInputEntry = Replace(strInputEntry, "S", "S", 1, -1, 0) strInputEntry = Replace(strInputEntry, "T", "T", 1, -1, 0) strInputEntry = Replace(strInputEntry, "U", "U", 1, -1, 0) strInputEntry = Replace(strInputEntry, "V", "V", 1, -1, 0) strInputEntry = Replace(strInputEntry, "W", "W", 1, -1, 0) strInputEntry = Replace(strInputEntry, "X", "X", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Y", "Y", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Z", "Z", 1, -1, 0) strInputEntry = Replace(strInputEntry, "0", "0", 1, -1, 0) strInputEntry = Replace(strInputEntry, "1", "1", 1, -1, 0) strInputEntry = Replace(strInputEntry, "2", "2", 1, -1, 0) strInputEntry = Replace(strInputEntry, "3", "3", 1, -1, 0) strInputEntry = Replace(strInputEntry, "4", "4", 1, -1, 0) strInputEntry = Replace(strInputEntry, "5", "5", 1, -1, 0) strInputEntry = Replace(strInputEntry, "6", "6", 1, -1, 0) strInputEntry = Replace(strInputEntry, "7", "7", 1, -1, 0) strInputEntry = Replace(strInputEntry, "8", "8", 1, -1, 0) strInputEntry = Replace(strInputEntry, "9", "9", 1, -1, 0) 'Return decodeString = strInputEntry End Function X©y dùng web site h-íng dÉn sư dơng phÇn mỊm 3D 74 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Hàm định dạng lại ngày tháng theo định dạng chuẩn quốc tế để ngăn chặn hệ thống bị đụng ë server n-íc ngoµi : Private Function internationalDateTime(dtmDate) Dim strYear Dim strMonth Dim strDay Dim strHour Dim strMinute Dim strSecound strYear = Year(dtmDate) strMonth = Month(dtmDate) strDay = Day(dtmDate) strHour = Hour(dtmDate) strMinute = Minute(dtmDate) strSecound = Second(dtmDate) 'Place infront of minutes under 10 If strMonth < 10 then strMonth = "0" & strMonth If strDay < 10 then strDay = "0" & strDay If strHour < 10 then strHour = "0" & strHour If strMinute < 10 then strMinute = "0" & strMinute If strSecound < 10 then strSecound = "0" & strSecound 'This function returns the ISO internation date and time formats:- yyyy-mm-dd hh:mm:ss 'Dashes prevent systems that use periods etc from crashing internationalDateTime = strYear & "-" & strMonth & "-" & strDay & " " & strHour & ":" & strMinute& ":" & strSecound End Function Hµm Upload file : Private Function fileUpload(ByVal strFileUploadPath, ByVal saryFileUploadTypes, ByVal intMaxFileSize, ByVal strUploadComponent, ByRef lngErrorFileSize, ByRef blnExtensionOK) 'Dimension variables Dim objUpload 'Upload component Dim strNewFileName 'Holds the file name Dim strOriginalFileName 'Holds the original file name for those components that need to save the file first Dim objFSO 'Holds the file system object 'If we are in demo mode we don't want to send emails so exit function If blnDemoMode Then fileUpload = "Not available in demo version" Exit Function End If 'Select which upload component to use Select Case strUploadComponent 'Persits AspUpload upload component - tested with version 3.0 Case "AspUpload" X©y dùng web site h-íng dẫn sử dụng phần mềm 3D 75 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên 'Create upload object Set objUpload = Server.CreateObject("Persits.Upload.1") With objUpload 'make sure files arn't over written OverwriteFiles = False 'We need to save the file before we can find out anything about it '** Save virtual is used as saving to memory is often disabled by the web host ** SaveVirtual strFileUploadPath 'Get the file name strNewFileName = Files(1).ExtractFileName 'Replace spaces with underscores strNewFileName = Replace(strNewFileName, " ", "_", 1, -1, 1) 'Remove brackets that aspUpload may put in when renaming a file strNewFileName = Replace(strNewFileName, "(", "", 1, -1, 1) strNewFileName = Replace(strNewFileName, ")", "", 1, -1, 1) 'Check the file size is not above the max allowed size, this is done using a function not the compoent to stop an exception error lngErrorFileSize = fileSize(.Files(1).Size, intMaxFileSize) 'Loop through all the allowed extensions and see if the file has one blnExtensionOK = fileExtension(strNewFileName, saryFileUploadTypes) 'If the file is OK save it to disk If lngErrorFileSize = AND blnExtensionOK = True Then 'Check to make sure the file does not already exist Do While FileExists(Server.MapPath(strFileUploadPath) & "\" & strNewFileName) 'Create a new file name for the file if it already exsist strNewFileName = hexValue(3) & "_" & strNewFileName Loop 'Save the file to disk with new file name '** Copy virtual is used as save as is often disabled by the web host ** Files(1).CopyVirtual strFileUploadPath & "/" & strNewFileName 'As a new copy of the file is saved we need to get rid of the old copy Files(1).Delete 'Pass the filename back fileUpload = strNewFileName 'Else if it is not OK delete the uploaded file Else Files(1).Delete End If End With 'Clean up Set objUpload = Nothing End Select End Function Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D 76 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Hàm tính dung l-ợng file : Function fileSize(ByVal lngFileSize, ByVal intMaxFileSize) 'If the file size is to large place the present file size in then return the file size If CInt(lngFileSize / 1024) > intMaxFileSize Then fileSize = CInt(lngFileSize / 1024) 'Else set the return value to Else fileSize = End If End Function Hàm kiểm tra phần mở rộng tên file : Function fileExtension(ByVal strFileName, ByVal saryFileUploadTypes) 'Dimension varibles Dim intExtensionLoopCounter 'Intilaise return value fileExtension = False 'Loop through all the allowed extensions and see if the file has one For intExtensionLoopCounter = To UBound(saryFileUploadTypes) If LCase(Right(strFileName, Len(saryFileUploadTypes(intExtensionLoopCounter)))) = LCase(saryFileUploadTypes(intExtensionLoopCounter)) Then fileExtension = True Next End Function 3.7.S¶n phÈm “Web site híng dÉn sư dơng phÇn mỊm 3D” Sau mét thời gian học tập làm việc chăm phát triển hoàn thành sản phẩm web site h-íng dÉn sư dơng phÇn mỊm 3D Web site đ-ợc viết ngôn ngữ HTML ASP phần mềm Macromedia Dreamweaver Các hình ảnh giao diện đ-ợc xử lý qua Photoshop CS Yêu cầu cấu hình tối thiểu máy tính để chạy đ-ợc web site : - CPU Celeron R 2.1 GHz - 256 MB RAM - Mainboard chipset Intel i845xx ICH4 - Windows XP Pro SP2 - Internet Explorer 6.0 - IIS 5.1 - SMTP Vitural Server - CDONTS hc CDOSYS - Persits Asp Upload 2.x (www.aspupload.com) X©y dùng web site h-íng dÉn sử dụng phần mềm 3D 77 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Kết chạy thử web site localhost : - Giao diện : không bị xô lệch hay hiển thị không nh- ý mn - KÕt nèi tíi database tèt, kh«ng có lỗi đăng nhập hay đăng xuất - Các chức sau khách hoạt động đ-ợc : duyệt site, đăng ký tài khoản - Các chức thành viên hoạt động đ-ợc : đăng nhập, xem tin, sửa thông tin cá nhân, tự xoá tài khoản - Các chức Admin hoạt động đ-ợc : đăng nhập, thêm tài khoản Admin th-ờng, xoá tài khoản Admin th-ờng,đổi mật tài khoản Super Admin, thống kê tin, thống kê th- thông báo tới thành viên, xoá đăng ký không kích hoạt, quản lý tài khoản thành viên, cấu hình file Upload, tạo quản lý th- thông báo, chọn skin cho site - Các chức ch-a hoạt động (hoặc không hoạt động) nh- thiết kế : cấu hình gửi th- thông báo (hoặc gửi tin), upload file lên thmục site, chặn địa Email Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D 78 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Phần IV : Kết luận định h-ớng phát triển Xây dựng web site h-íng dÉn sư dơng phÇn mỊm 3D 79 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Sau nhiều lần chạy thử sản phẩm Web site hướng dẫn sử dụng phần mềm 3D thấy sản phẩm có nhiều lỗi phát sinh trình sử dụng, nhiều chức thiết kế có nh-ng chạy thử không hoạt động, số chức không đ-ợc đ-a vào thiết kế gây hạn chế sử dụng Với khuyết điểm hệ thống nh- đ-a lên web host chạy trực tiếp Server gây số bất tiện cho ng-ời dùng việc bảo trì bảo mật cho web site Qua trình phát triển web site nhận thấy web site cần phải phát triển thêm : - Sửa lỗi phát sinh chạy localhost - Sửa chức ch-a hoạt động hoạt động ch-a tốt gây lỗi cho hệ thống - Bổ sung chức thiếu để ng-ời sử dụng yên tâm thoải mái thăm site - Upload lên web host chạy thử môi tr-ờng Internet để kiểm tra tính t-ơng thích độ an toàn - Phát hành web site - Quảng bá site để ng-ời quan tâm tới thăm tham gia - Bảo trì site th-ờng xuyên Xây dựng web site h-ớng dẫn sử dụng phần mềm 3D 80 Sinh viên : Nguyễn L-ơng Tâm Khoa CNTT Tr-ờng ĐH Thái Nguyên Phụ lục Tài liƯu tham kh¶o : - b-íc thiÕt kÕ web hiệu , Lê Đình Duy , ldduy@fit.hcmuns.edu.vn - Giáo trình Thiết kế Web : Nguyễn Hữu Tuấn , prohuutuan@yahoo.com - Giáo trình Access : Nguyễn Sơn Hải TT Tin häc Bé GD&§T , nshai@moet.edu.vn - Microsoft Access : khoa CNTT ĐH SP Hà Nội - Simple CSS standard edition by WallPearl’s Blog - Programming Active Server Page , Microsoft Press , Copyright 1997 by New Technology Solutions, Inc - CSS, DHTML and JavaScript2003 , Author : Gilorien Danh môc địa web site tham khảo dùng cho đề tµi : - www.aspalliance.com javascriptbank.com www.w3schools.com ebook.edu.net.vn www.asp101.com www.vietphtoshop.com forum.webwizguider.com www.webwiznewspad.com www.ddth.com www.vietsupport.com Source code tham kh¶o : web wiz newspad 1.03 Néi dung ®Üa CD kÌm theo : - File văn báo cáo đề tài - Chương trình “Web site híng dÉn sư dơng phÇn mỊm 3D” - Phần mềm kèm theo : Dundas Upload 2.0 Xây dựng web site h-íng dÉn sư dơng phÇn mỊm 3D 81 ... quyền -u tiên cao nhất: Theo mặc định trình duyệt Style Sheet bên Style Sheet bên (bên cặp thẻ ) Style nội tuyến (bên thành phần HTML) Vì thế, Style nội tuyến có quyền -u tiên cao nhất, điều... Tiêu đề trang (giới hạn 60 ký tự) phần thân tài liệu HTML (bao gồm dòng văn Tag (thỴ) diỊu khiĨn) Mét tËp tin tài liệu HTML đ-ợc bắt đầu... trang HTML Các thuộc tính thẻ + Align: Xác định vị trí ảnh đặt lên trang để văn bao quanh Các giá trị Align nhận giá trÞ:top, left, right, bootom, textop, absbootom, middle, absmiddle,