Xây dựng website Hướng dẫn sử dụng phần mềm 3D

Xây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3DXây dựng website Hướng dẫn sử dụng phần mềm 3D

Sinh viên : Nguyễn Lơng Tâm Thái Nguyên Khoa CNTT Trờng ĐH 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 ĐH Thái Nguyên Khoa CNTT Trêng 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 Tran g 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 ĐH Thái Nguyên Khoa CNTT Trờng Đề tài thực tập tốt nghiệp : Xây dùng mét 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 tuyÕn, 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 ĐH Thái Nguyên Khoa CNTT Trờng Đá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 ĐH Thái Nguyªn Khoa CNTT Trêng ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ……………………………………………… 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 ĐH Thái Nguyên Khoa CNTT Trờng Đá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 ĐH Thái Nguyên Khoa CNTT Trờng ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… 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 ĐH Thái Nguyên Khoa CNTT Trờng 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 ĐH Thái Nguyên Khoa CNTT Trờng 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 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 c¸c 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 Nhng để đâ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 nhng bỡ ngỡ giới 3D rộng lớn tráng lệ Từ ý tởng 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 ĐH Thái Nguyên Khoa CNTT Trêng thiÕt kÕ mét trang web chuyªn vỊ đồ hoạ 3D nhen nhóm Lúc đầu, em rụt rè e ngại nhiều lý nhng 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 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 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 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 : lu 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 ĐH Thái Nguyên Khoa CNTT Trờng 'If in demo mode redirect If blnDemoMode Then Call closeDatabase() Response.Redirect("admin_webwiznewspad_premium.asp") End If 'Admin Only in this section Call adminUser() 'Super admin ONLY kick everyone else Call superAdminUser() 'Dimension variables Dim laryMemberID 'Array to hold the ID number for each admin to delete 'Run through till all checked admins are deleted For each laryMemberID in Request.Form("chkID") 'Delete the admin table entries strSQL = "DELETE FROM " & strDbTable & "AdminLogin WHERE " & strDbTable & "AdminLogin.Admin_ID =" & CLng(laryMemberID) & ";" 'Execute SQL adoCon.Execute(strSQL) Next 'Reset Server Variables Call closeDatabase() 'Redirect back Response.Redirect("admins_section_users.asp") %> File admin_delete_newsletter.asp xử lý xoá thành viªn cđa web site : 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 ĐH Thái Nguyên Khoa CNTT Trờng 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 : 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 Dim strUserName Dim strEmail Dim strSubject Dim strEmailBody Dim blnActivated 'Holds the users ID code 'Holds the users name 'Holds the users email address 'Holds the subject of te email 'Holds the email body '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 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 ĐH Thái Nguyên Khoa CNTT Trờng '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 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 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 ĐH Thái Nguyên Khoa CNTT Trờng 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 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 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 ĐH Thái Nguyªn Khoa CNTT Trêng 'Strip individul ASCII characters left out from above strTextInput = Replace(strTextInput, CHR(59), "", 1, strTextInput = Replace(strTextInput, CHR(60), "", 1, strTextInput = Replace(strTextInput, CHR(62), "", 1, strTextInput = Replace(strTextInput, CHR(96), "", 1, 'Return the string characterStrip = strTextInput End Function -1, -1, -1, -1, 0) 0) 0) 0) 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 strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry = = = = = = = = = = = = = = = = = = = = = = Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "a", 1, -1, 0) "b", 1, -1, 0) "c", 1, -1, 0) "d", 1, -1, 0) "e", 1, -1, 0) "f", 1, -1, 0) "g", 1, -1, 0) "h", 1, -1, 0) "i", 1, -1, 0) "j", 1, -1, 0) "k", 1, -1, 0) "l", 1, -1, 0) "m", 1, -1, 0) "n", 1, -1, 0) "o", 1, -1, 0) "p", 1, -1, 0) "q", 1, -1, 0) "r", 1, -1, 0) "s", 1, -1, 0) "t", 1, -1, 0) "u", 1, -1, 0) "v", 1, -1, 0) 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 ĐH Thái Nguyên Khoa CNTT Trêng strInputEntry strInputEntry strInputEntry strInputEntry = = = = Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, "w", "x", "y", "z", "w", 1, -1, 0) "x", 1, -1, 0) "y", 1, -1, 0) "z", 1, -1, 0) strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry = = = = = = = = = = = = = = = = = = = = = = = = = = Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "A", 1, -1, 0) "B", 1, -1, 0) "C", 1, -1, 0) "D", 1, -1, 0) "E", 1, -1, 0) "F", 1, -1, 0) "G", 1, -1, 0) "H", 1, -1, 0) "I", 1, -1, 0) "J", 1, -1, 0) "K", 1, -1, 0) "L", 1, -1, 0) "M", 1, -1, 0) "N", 1, -1, 0) "O", 1, -1, 0) "P", 1, -1, 0) "Q", 1, -1, 0) "R", 1, -1, 0) "S", 1, -1, 0) "T", 1, -1, 0) "U", 1, -1, 0) "V", 1, -1, 0) "W", 1, -1, 0) "X", 1, -1, 0) "Y", 1, -1, 0) "Z", 1, -1, 0) strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry strInputEntry = = = = = = = = = = Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, Replace(strInputEntry, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0) 0) 0) 0) 0) 0) 0) 0) 0) 0) 'Return decodeString = strInputEntry End Function 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 : 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 ĐH Thái Nguyên Khoa CNTT Trờng Private Function internationalDateTime(dtmDate) Dim Dim Dim Dim Dim Dim strYear strMonth strDay strHour strMinute 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 81 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng '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 X©y dùng web site híng dÉn sư dơng phần mềm 3D 82 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng 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 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 Xây dựng web site hớng dẫn sử dụng phần mềm 3D 83 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng 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 CDOSYS - Persits Asp Upload 2.x (www.aspupload.com) 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 cha 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 th mục site, chặn địa Email Xây dựng web site hớng dẫn sử dụng phần mềm 3D 84 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng Phần IV : KÕt ln X©y dùng web site híng dÉn sử dụng phần mềm 3D 85 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng định hớng phát triể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ó nhng 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 cha hoạt động hoạt động cha 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 Xây dựng web site híng dÉn sư dơng phÇn mỊm 3D 86 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng - 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 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 Xây dựng web site hớng dẫn sử dụng phần mềm 3D 87 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng - 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 88 ... dàng tìm kiếm thông tin Xây dựng web site hớng dẫn sử dụng phần mềm 3D 12 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng Internet Để xây dựng trang tin nh Web sử dụng ngôn ngữ tên HTML... đồ 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 nhng bỡ ngỡ giới 3D rộng lớn tráng lệ Từ ý tởng Xây dựng web site hớng dẫn sử dụng phần mềm 3D Sinh... ta tạo tập trang tin đợc liên kết Xây dựng web site hớng dẫn sử dụng phần mềm 3D 15 Sinh viên : Nguyễn Lơng Tâm ĐH Thái Nguyên Khoa CNTT Trờng 1.2.3.Cách sử dụng Tag điều khiển 1.2.3.1.Định dạng