Đề tài Xây dựng một hệ thống quản lý , tìm và đăng tuyển việc

Lêi nãi ®Çu Trong qu¸ tr×nh ph¸t triÓn c«ng nghÖ th«ng tin, c¸c kỹ thuật thiết kế Web đã trở nªn v« cïng phong phó và trở thành “c«ng nghệ tạo Web” đãng vai trß rất quan trọng trong C«ng nghệ th«ng tin. Một trong những ứng dụng hay gặp là trao ®æi th«ng tin vµ qu¶n lý trùc tuyÕn. Trªn tinh thÇn ®ã, chóng em ®· nghiªn cøu vµ triÓn khai x©y dùng mét hÖ thèng qu¶n lý , t×m vµ ®¨ng tuyÓn viÖc lµm theo mäi lÜnh vùc, ngµnh nghÒ, cïng víi nã lµ c¸c øng dông kh¸c nh­ gãc b¸o chÝ, hái ®¸p, vv… C¸c th«ng tin nµy ®­îc qu¶n lý vµ cËp nhËt tù ®éng theo logic qu¶n lý. Do ®Ò tµi rÊt réng nªn chóng em ph©n thµnh 2 phÇn: PhÇn 1: PhÇn qu¶n lý vµ xö lý viÖc lµm vµ th«ng tin tuyÓn dông. PhÇn 2: PhÇn qu¶n lý chung cña Website. Chóng em xin ch©n thµnh c¶m ¬n sù quan t©m vµ chØ b¶o cña tËp thÓ gi¶ng viªn khoa Tin vµ ®Æc biÖt lµ TS. NguyÔn Kh¾c LÞch ®· tËn t×nh gióp ®ì em hoµn thµnh ®Ò tµi nµy.  Ch­¬ng I Ph©n tÝch yªu cÇu I. Yªu cÇu tõ ng­êi sö dông thùc tÕ 1. X©y dùng m« h×nh yªu cÇu tõ thùc tÕ trong x· héi Mét phÇn mÒm (website ) ®­îc ph¸t triÓn vµ ®­îc øng dông tèt trong x· héi ph¶i tho¶ m·n c¸c yªu cÇu c¬ b¶n sau: + Ph¶i ®¸p øng ®­îc mét c¸ch tèt nhÊt c¸c nhu cÇu vÒ viÖc lµm. + Ph¶i cã sù thay ®æi dÔ dµng khi cã sù thay ®æi ®ét biÕn trong qu¸ tr×nh xö lý. + §¶m b¶o ®é chÝnh x¸c, tÝnh kh¸ch quan vµ quyÒn riªng t­ khi giao tiÕp trªn m¹ng. + Giao diÖn th©n thiÖn, dÔ sö dông ®èi víi ng­êi dïng, dÔ qu¶n lý ®èi víi ng­êi qu¶n trÞ. Bªn c¹nh ®ã, viÖc kÕt hîp víi c¸c ph©n tÝch trong hÖ thèng xö lý th«ng tin vÒ viÖc lµm – tuyÓn dông, cung cÊp th«ng tin trong tr­êng, ch­¬ng tr×nh ®­îc x©y dùng vµ ph¸t triÓn ph¶i tho¶ m·n hoµn toµn c¸c yªu cÇu trªn ®Ó kh¶ n¨ng øng dông ®­îc cao nhÊt. 2. Yªu cÇu vÒ ng­êi sö dông Trªn c¬ së ph©n tÝch thùc tÕ, ng­êi sö dông lµ n¬i ®¸nh gi¸ kÕt qu¶ trùc tiÕp tÝnh chÝnh x¸c vµ hiÖu suÊt cña trang web, ®èi víi nh÷ng nhu cÇu cã tÝnh chÊt thay ®æi th­êng xuyªn chóng ta ph¶i x©y dùng hÖ thèng më, hÖ thèng cho phÐp ng­êi sö dông cã thÓ tuú biÕn c¸c chøc n¨ng vµ c«ng viÖc cô thÓ. Ngoµi c¸c c«ng cô cã s½n, hÖ thèng cßn cho phÐp ng­êi dïng tù t¹o ra c¸c c«ng cô cho riªng m×nh mét c¸ch nhanh chãng vµ hiÖu qu¶. II. Yªu cÇu tõ phÝa ng­êi qu¶n trÞ hÖ thèng 1. Yªu cÇu sö dông Khi sö dông yªu cÇu hÖ thèng ph¶i ®¶m b¶o tÝnh dÔ dïng vµ kh«ng g©y nhÇm lÉn v× mét thao t¸c nhÇm lÉn cña ng­êi qu¶n trÞ cã thÓ lµm thay ®æi rÊt lín ®Õn c¸c kÕt qu¶ cña ng­êi sö dông vµ cã khi cßn thay ®æi c¶ hÖ thèng còng nh­ kh¶ n¨ng mÊt m¸t th«ng tin toµn hÖ thèng, g©y nªn sù sôp ®æ cña toµn hÖ thèng. 2. Yªu cÇu vÒ b¶o mËt Mét hÖ thèng muèn ho¹t ®éng tèt ngoµi c¸c chøc n¨ng nh­ trªn ph¶i ®¶m b¶o mét yÕu tè hÕt søc quan träng lµ tÝnh chÊt b¶o vÖ, tÝnh an toµn th«ng tin khi xö lý. HÖ thèng x©y dùng ph¶i tho¶ m·n c¸c yªu cÇu b¶o mËt sau: + §¶m b¶o tÝnh riªng t­ cña c¸c thµnh viªn tham gia ®¨ng hå s¬ vµ ®¨ng tin tuyÓn dông. + §¶m b¶o ng­êi qu¶n trÞ lµ duy nhÊt vµ tÊt c¶ mäi c«ng viÖc thuéc phÇn qu¶n lý ®Òu ph¶i kiÓm tra tÝnh ®óng ®¾n sù ®¨ng nhËp. III. Yªu cÇu chung 1. TÝnh dÔ ph¸t triÓn HÖ thèng muèn øng dông ®­îc nhiÒu vµ hoµn thiÖn th× ph¶I cã tÝnh chÊt ph¸t triÓn ®­îc. HÖ thèng x©y dùng cã rÊt nhiÒu Module më t¹o cho ng­êi dïng tù ph¸t triÓn, tù n©ng cÊp hÖ thèng khi ng­êi dïng cã chót Ýt kiÕn thøc c¬ b¶n. 2. Yªu cÇu vÒ ®¬n gi¶n phÇn cøng vµ thÝch øng víi hÖ ®iÒu hµnh Ch­¬ng tr×nh ph¸t triÓn trªn hÖ thèng IIS vµ ng«n ng÷ lËp tr×nh ASP, ng«n ng÷ ®­îc sö dông réng r·i do h·ng Microsoft ph¸t triÓn vµ øng dông. HÖ thèng nµy rÊt dÔ sö dông vµ ®­îc rÊt nhiÒu c¬ quan, tæ chøc ®ang triÓn khai ch¹y c¸c øng dông trªn ®ã. HÖ thèng nµy rÊt dÔ cÊu h×nh vµ dÔ sö dông cho tÊt c¶ mäi ng­êi kÓ c¶ nh÷ng ng­êi kh«ng ph¶i chuyªn gia trong lÜnh vùc tin häc. Ch­¬ng II X©y dùng ®Ò tµi I. Tæng quan vÒ ®Ò tµi 1. HÖ thèng cung cÊp th«ng tin viÖc lµm vµ nhµ tuyÓn dông Nh­ ®· ph©n tÝch vµ giíi thiÖu ë phÇn trªn, hÖ thèng cung cÊp th«ng tin ph¶i tho¶ m·n c¸c yªu cÇu tõ phÝa ng­êi dïng, c¸c th«ng tin nµy ®­îc cËp nhËt vµ qu¶n lý linh ho¹t theo c¸c chñ ®Ò vµ theo tõng chuyªn môc . C¸c phÇn nµy ®­îc ph©n thµnh c¸c Module nhá t¹o cho ng­êi dïng cã nhiÒu lùa chän cho viÖc xem c¸c th«ng tin mµ m×nh cÇn. C¸c phÇn ®Çu tin ®­îc giíi thiÖu qua ë trang chñ vµ muèn xem chØ viÖc kÝch vµo th«ng tin, nã sÏ truy vÊn c¸c th«ng tin ®ã. 2. M« h×nh cung cÊp th«ng tin + PhÇn cung cÊp th«ng tin cho ng­êi dïng PhÇn nµy yªu cÇu giao diÖn ®Ñp, tÝnh dÔ dïng vµ linh ho¹t chuyÓn dêi c¸c tin liªn quan t¹o cho ng­êi ®äc dÔ dµng t×m kiÕm. + PhÇn qu¶n lý chung vµ qu¶n lý th«ng tin PhÇn qu¶n lý th«ng tin ®¶m b¶o viÖc cung cÊp c¸c th«ng tin cho website theo chñ ®Ò, c¸c th«ng tin nµy ®­îc ng­êi qu¶n trÞ ®¨ng lªn, muèn x©m nhËp vïng nµy th× bÊt kú ng­êi qu¶n trÞ nµo ®Òu ph¶i th«ng qua mét phÇn ®¨ng nhËp hÖ thèng ®Ó kh¼ng ®Þnh quyÒn cña m×nh. NÕu viÖc ®¨ng nhËp ®­îc hoµn tÊt, c¸c chøc n¨ng sÏ ®­îc cung cÊp cho ng­êi qu¶n trÞ. Giao diÖn ng­êi dïng + ViÖc lµm tèt nhÊt + ViÖc lµm s¸ng gi¸ nh©t + Lµm viÖc víi nhµ tuyÓn dông + T×m hå s¬ øng viªn vµ tuyÓn dông + §¨ng nhËp + Qu¶ng c¸o CSDL PhÇn qu¶n trÞ: + CÊu h×nh chung + Qu¶n lý øng viªn + Qu¶n lý Danh s¸ch øng viªn Danh s¸ch hå s¬ H­íng nghiÖp + Qu¶n lý nhµ tuyÓn dông Danh s¸ch nhµ tuyÓn dông Tin tuyÓn dông T­ vÊn tuyÓn dông + Qu¶n lý kh¸c II. C¸c nh©n tè ¶nh h­ëng ®Õn ®Ò tµi 1. TÝnh kh¶ thi cña ®Ò tµi Gi¶m bít sù vÊt v¶ trong viÖc qu¶n lý c¸c th«ng tin vÒ viÖc lµm – tuyÓn dông vµ thuËn tiÖn cho viÖc t×m kiÕm th«ng tin nhanh chãng. Tù ®éng ho¸ mét sè c«ng viÖc ®ßi hái ng­êi qu¶n lý mÊt nhiÒu c«ng søc vµ tèn thêi gian ViÖc cËp nhËt viÖc lµm, hå s¬ øng viªn, hå s¬ ®¨ng tuyÓnnhanh chãng, thuËn lîi, chÝnh x¸c, an toµn, ®¹t hiÖu qu¶ cao. Xem, söa, xo¸ mét c¸ch dÔ dµng mµ vÉn ®¶m b¶o ®Ñp, râ rµng,®¸ng tin cËy. ViÖc t×m kiÕm c¸c th«ng tin nhanh vµ chÝnh x¸c. Ch­¬ng tr×nh sö dông ®¬n gi¶n, ng­êi sö dông kh«ng cÇn cã tr×nh ®é ®µo t¹o s©u vÒ m¸y tÝnh còng sö dông ®­îc. Ph¸t hiÖn lçi, kiÓm tra tÝnh ®óng ®¾n cña d÷ liÖu ngay tõ khi cËp nhËt, xö lý kÞp thêi c¸c lçi ph¸t sinh. 2. Nh÷ng thuËn lîi vµ khã kh¨n trong qu¸ tr×nh triÓn khai x©y dùng Trong qu¸ tr×nh x©y dùng vµ ph¸t triÓn, ch­¬ng tr×nh ®· cã ®ù¬c nh÷ng ®ãng gãp ý kiÕn quý b¸u cña b¹n bÌ, c¸c thÇy c« gi¸o trong khoa còng nh­ trong toµn tr­êng khi thu thËp vµ xö lý th«ng tin. C¸c kiÕn thøc ®· häc trong tr­êng lµ nÒn t¶ng c¬ së ®Ó nghiªn cøu tiÕp c¸c tÝnh n¨ng vµ kh¶ n¨ng xö lý cña ng«n ng÷. V× vËy, ®Ò tµi hoµn thµnh lµ kÕt qu¶ cña mét ho¹t ®éng céng t¸c vµ kh¶ n¨ng lµm viÖc theo nhãm. Bªn c¹nh ®ã, cã rÊt nhiÒu khã kh¨n trong qu¸ tr×nh triÓn khai x©y dùng, vèn kiÕn thøc cã h¹n, thêi gian h¹n hÑp, kh¶ n¨ng thùc thÕ kh«ng nhiÒu nªn cã thÓ ®Ò tµi cßn gÆp nh÷ng thiÕu xãt. III. TriÓn khai x©y dùng 1. C¬ së lý thuyÕt cña c¬ së d÷ liÖu Víi c«ng nghÖ øng dông web hiÖn ®¹i, CSDL lµ ®iÒu quan träng vµ cã tÝnh chÊt quyÕt ®Þnh ®Õn kh¼ n¨ng vËn hµnh ho¹t ®éng cña øng dông. Do ®ã viÖc ph©n tÝch vµ lùa chän CSDL phï hîp víi øng dông lµ ®iÒu hÕt søc quan träng vµ thiÕt thùc. 1.1. HÖ qu¶n trÞ c¬ së d÷ liÖu C¬ së d÷ liÖu lµ tËp hîp c¸c d÷ liÖu ®Ó tæ chøc theo mét m« h×nh nµo ®ã, s½n sµng cho c¸c øng dông truy cËp vµ thùc hiÖn c¸c thao t¸c xö lý. Trong hÖ thèng th«ng tin ng­êi ta l­u vµ qu¶n lý d÷ liÖu trong kho d÷ liÖu - n¬i cÊt gi÷ d÷ liÖu mét c¸ch cã tæ chøc ®Ó cã thÓ t×m nh÷ng d÷ liÖu cÇn thiÕt mét c¸ch nhanh chãng, kho d÷ liÖu ®­îc ®Æt trong bé nhí vµ ®­îc b¶o qu¶n nhê ch­¬ng tr×nh m¸y tÝnh th× nã ®­îc gäi lµ hÖ qu¶n trÞ c¬ së d÷ liÖu. HÖ qu¶n trÞ c¬ së d÷ liÖu phôc vô cho nhiÒu ng­êi vµ nhiÒu môc ®Ých qu¶n lý kh¸c nhau. Víi Access - HÖ qu¶n trÞ CSDL võa vµ nhá lµ phï hîp víi øng dông web, víi nh÷ng tÝnh n¨ng cã s½n vµ viÖc hç trî tõ chÝnh h·ng, viÖc gi¶i quyÕt c¸c sù cè kh«ng khã kh¨n l¾m trong qu¸ tr×nh vËn hµnh øng dông. Víi Microsoft Access b¹n hoµn toµn linh ho¹t trong viÖc ®Þnh nghÜa c¸c d÷ liÖu (nh­ v¨n b¶n, sè, ngµy, thêi gian, tiÒn tÖ...vv), ®Þnh nghÜa c¸ch l­u gi÷ d÷ liÖu (®é chÝnh x¸c sè häc, ®é chÝnh x¸c cña ngµy, thêi gian...vv) vµ ®Þnh nghÜa quy c¸ch d÷ liÖu ®Ó hiÓn thÞ hoÆc ®Ó in. Cã thÓ ®Þnh nghÜa c¸c quy t¾c hîp lÖ ®¬n gi¶n hoÆc phøc t¹p ®Ó d¶m b¶o chØ cã c¸c d÷ liÖu chÝnh x¸c tån t¹i trong mét c¬ së d÷ liÖu còng cã thÓ yªu cÇu Access kiÓm tra x¸c nhËn c¸c mèi quan hÖ gi÷a c¸c tÖp hoÆc c¸c b¶ng cña c¬ së d÷ liÖu. Access cßn cã kh¶ n¨ng hiÓu vµ sö dông mét lo¹t c¸c quy c¸ch d÷ liÖu kh¸c, bao gåm c¸c cÊu tróc tÖp cña nhiÒu hÖ qu¶n trÞ c¬ së d÷ liÖu kh¸c. Cã thÓ xuÊt vµ nhËp d÷ liÖu tõ c¸c tÖp b¶ng tÝnh vµ c¸c tÖp v¨n b¶n. Microsoft Access ®­îc thiÕt kÕ ®Ó sö dông nh­ mét hÖ qu¶n trÞ c¬ së d÷ liÖu ®¬n lÎ trªn mét tr¹m lµm viÖc duy nhÊt hay theo thÓ thøc kh¸ch dÞch vô ®­îc dïng chung trªn m¹ng. Ta cã thÓ chia sÎ d÷ liÖu cña Access víi nh÷ng ng­êi sö dông kh¸c v× Access cã tÝnh n¨ng toµn vÑn, d÷ liÖu vµ b¶o mËt d÷ liÖu tuyÖt vêi. Microsoft Access cã tÊt c¶ tÝnh n¨ng cña mét hÖ qu¶n trÞ c¬ së d÷ liÖu cæ ®iÓn vµ cßn h¬n thÕ n÷a. Access kh«ng chØ lµ mét hÖ qu¶n trÞ c¬ së d÷ liÖu m¹nh, linh ho¹t, dÔ sö dông mµ cßn lµ mét ph­¬ng tiÖn ph¸t triÓn øng dông c¬ së d÷ liÖu. B»ng c¸c truy vÊn cã thÓ h¹n chÕ, chän läc, tÝnh tæng theo nhãm c¸c d÷ liÖu, cã thÓ t¹o c¸c biÓu mÉu ®Ó xem vµ thay ®æi d÷ liÖu. Access còng ®­îc dïng ®Ó t¹o c¸c b¸o c¸o ®¬n gi¶n hoÆc phøc t¹p. C¶ biÓu mÉu vµ b¸o c¸o ®Òu thõa kÕ c¸c thuéc tÝnh cña b¶ng hoÆc truy vÊn c¬ së, nªn trong hÇu hÕt c¸c tr­êng hîp cÇn ph¶i ®Þnh nghÜa mét lÇn c¸c quy t¾c vµ quy c¸ch hîp lÖ cña d÷ liÖu. Víi Access dÔ dµng liªn kÕt víi c¸c biÓu mÉu, b¸o c¸c ®Ó tù ®éng ho¸ hoµn toµn mét c¸ch øng dông, tËn dông nhiÒu tÝnh n¨ng dÔ sö dông ë hÖ ®iÒu hµnh Windows, ngoµi ra cßn hç trî khi thiÕt kÕ c¸c truy vÊn, biÓu mÉu, b¸o c¸o. 1.2. Chøc n¨ng cña hÖ qu¶n trÞ c¬ së d÷ liÖu Kh¶ n¨ng l­u tr÷ d÷ liÖu l©u dµi Cã kh¶ n¨ng kiÓm tra truy nhËp Truy nhËp l­îng lín d÷ liÖu cã hiÖu qu¶ §­îc x©y dùng trªn m« h×nh d÷ liÖu mµ qua ®ã ng­êi sö dông cã thÓ quan s¸t d÷ liÖu Cã thÓ ®ång bé c¸c truy nhËp c¹nh tranh khi nhiÒu ng­êi cïng sö dông c¬ së d÷ liÖu Kh¶ n¨ng phôc håi d÷ liÖu khi cã sù cè x¶y ra 2. ThiÕt kÕ CSDL vµ t¹o lËp c¸c mèi liªn kÕt trong CSDL 2.1. X©y dùng mèi quan hÖ trong CSDL Môc ®Ých cña qu¸ tr×nh ph©n tÝch vµ thiÕt kÕ d÷ liÖu lµ x¸c ®Þnh c¸c thùc thÓ cÇn thiÕt, thuéc tÝnh cña d÷ liÖu vµ mèi quan hÖ gi÷a c¸c thùc thÓ. Mét hÖ thèng th«ng tin ph¶i ®­îc tæ chøc râ rµng, ®Çy ®ñ vµ ®¶m b¶o ®éc lËp d÷ liÖu. M« h×nh thùc thÓ liªn kÕt lµ c¸c kü thuËt chñ chèt trong gÇn nh­ tÊt c¶ c¸c ph­¬ng ph¸p ph©n tÝch thiÕt kÕ hÖ thèng. Tr­íc khi ®i vµo nghiªn cøu m« h×nh thùc thÓ ta cÇn ph¶i hiÓu mét sè kh¸i niÖm: Thùc thÓ: Lµ tËp hîp c¸c ®èi t­îng (cô thÓ hay trõu t­îng) cã ®Æc ®iÓm chung, mét ph¹m vi ho¹t ®éng, mét nhiÖm vô ... ®­îc quan t©m trong viÖc qu¶n lý hÖ thèng. Mçi thùc thÓ ®­îc biÓu diÔn b»ng h×nh ch÷ nhËt, bªn trong ghi tªn thùc thÓ. TËp hîp c¸c ®iÓm chung mçi thùc thÓ ®­îc gäi lµ thuéc tÝnh cña thùc thÓ. Thuéc tÝnh: Lµ mét trÞ sè (sè, tªn gäi,...) nµo ®ã thÓ hiÖn mét ®Æc ®iÓm cña thùc thÓ. Liªn kÕt: Lµ mét sù kÕt nèi gi÷a hai hay nhiÒu thùc thÓ nh»m ph¶n ¸nh mét thùc thÓ kh¸ch quan. Kho¸ cña thùc thÓ: §Ó x¸c ®Þnh duy nhÊt c¸c hµng trong thùc thÓ, kho¸ cã thÓ bao gåm c¸c thuéc tÝnh (kho¸ ®¬n) hay nhiÒu thuéc tÝnh (kho¸ kÐp) Trong qu¸ tr×nh ph©n tÝch, ta c¨n cø vµo c¸c nguån th«ng tin mµ hÖ thèng cÇn l­u tr÷ vµ xö lý ®Ó m« h×nh ho¸ nã thµnh c¸c thùc thÓ vµ c¸c thuéc tÝnh. §©y chÝnh lµ b­íc m« h×nh ho¸ th«ng tin cho hÖ thèng. 2.2. Quan hÖ (Relationship) Mét thùc thÓ trong thùc tÕ kh«ng tån t¹i ®éc lËp víi c¸c thùc thÓ kh¸c. Sù liªn kÕt qua l¹i gi÷a c¸c thùc thÓ kh¸c nhau ®­îc thÓ hiÖn b»ng mèi quan hÖ tån t¹i gi÷a c¸c thùc thÓ . Quan hÖ ®­îc m« t¶ b»ng h×nh thoi (tr¸m) ë gi÷a cã tªn quan hÖ, quan hÖ còng cã c¸c thuéc tÝnh riªng. TA TB QH 2.3. C¸c kiÓu quan hÖ * Ký hiÖu : 0: Hai thùc thÓ kh«ng cã quan hÖ víi nhau : Hai thùc thÓ cã mét b¶n thÓ duy nhÊt : Hai thùc thÓ cã nhiÒu quan hÖ víi nhau Quan hÖ mét - mét Mét b¶n thÓ cña thùc thÓ TA chØ quan hÖ víi mét b¶n thÓ cña thùc thÓ TB TA TB QH Quan hÖ mét - nhiÒu Mét b¶n thÓ cña thùc thÓ TA quan hÖ víi nhiÒu b¶n thÓ cña thùc thÓ TB vµ ng­îc l¹i nhiÒu b¶n thÓ cña thùc thÓ TA quan hÖ víi mét b¶n thÓ cña thùc thÓ TB. TA TB QH Quan hÖ nhiÒu - nhiÒu Lµ sù tæng hîp gi÷a hai quan hÖ, quan hÖ nhiÒu – nhiÒu kh«ng phôc vô trùc tiÕp cho viÖc khai th¸c th«ng tin nh­ng nã gióp ta x¸c lËp c¸c mèi quan hÖ. TB TA QH III. x¸c ®Þnh c¸c thùc thÓ trong øng dông 1. Thùc thÓ Admin L­u tr÷ th«ng tin vÒ mËt khÈu. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: id, ten, matkhau, tenthËt, email, capdo, solanvao, ql_ungvien, ql_tintuc, ql_nhatuyendung, pl_email, ql_quangcao, ql_lienhe. 2. Thùc thÓ chøa th«ng tin øng viªn ®¨ng ký L­u tr÷ danh s¸ch c¸c øng viªn ®¨ng ký. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau:u_id, u_username, u_password, u_salt, u_fullname, u_img, u_sex, u_birthday, u_age, u_marry, u_menh, u_phone, u_mobi, u_national, u_countryID, u_cityID, u_adress, u_redate, u_visits, u_active 3. Thùc thÓ chøa th«ng tin nhµ tuyÓn dông ®¨ng ký L­u tr÷ danh s¸ch nhµ tuyÓn dông ®¨ng ký. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: u_id, u_username, u_password, u_salt, u_companyName, u_companyTypeID, u_companyIntro, u_companyRun, u_companyMem, u_img, u_home, u_phone, u_fax, u_email, u_contactName, u_contactPosition, u_contactPhone, u_contactMobi, u_contactEmail, u_countryID, u_cityID, u_urban, u_adress, u_redate, u_lasttime, u_now, u_sotin ,u_visits, u_active 4. Thùc thÓ chøa th«ng tin do øng viªn t¹o L­u tr÷ hå s¬ cña øng viªn t¹o. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: j_id, j_uID, j_nghe, j_nghe1, j_nghe2, j_nghe3, j_countryID, j_cityID, j_cityID1, j_cityID2, j_cityID3, j_title,j_copy, j_year, j_perID, j_degID, j_muctieuNN, j_kynang, j_dalam, j_luongdaco, j_ChucMM, j_luongMM, j_timeID, j_goto, j_date, j_update, j_visits, j_active, j_anTen, j_anNS, j_anAdress, j_anPhone, j_anImg, j_anTuoi, j_active_search, j_hienthi 5. Thùc thÓ chøa th«ng tin do nhµ tuyÓn dông t¹o L­u th«ng tin tuyÓn dông do nhµ tuyÓn dông ®¨ng tuyÓn. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: e_id, e_uidtd, e_title, e_mem, e_luong, e_luonga, e_luongb, e_bangcapID, e_capbacID, e_timeID, e_cityID, e_cityID1, e_cityID2, e_cityID3, e_ngheID, e_ngheID1, e_ngheID2, e_ngheID3, e_descript, e_request, e_hoso, e_phucLoi, e_kinhnghiem, e_date, e_dateActive, e_lastdate, e_visits, e_hienthi, e_indam, e_maudo, e_hot, e_sanggia, e_sanggiaN, e_active, e_active_home 6. Thùc thÓ chøa th«ng tin danh muc viÖc lµm L­u th«ng tin danh s¸ch c¸c viÖc lµm theo tõng ngµnh. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: m_id, m_name, m_hot, m_active 7. Thùc thÓ chøa th«ng tin vÞ trÝ, n¨ng lùc lµm viÖc L­u th«ng tin danh s¸ch c¸c viÖc lµm theo vÞ trÝ, n¨ng lùc lµm viÖc. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: p_id, p_name, p_active 8. Thùc thÓ chøa th«ng tin viÖc lµm theo thêi gian L­u th«ng tin danh s¸ch c¸c viÖc lµm theo thêi gian lµm viÖc. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: t_id, t_name, t_active 9. Thùc thÓ chøa th«ng tin viÖc lµm theo tõng cÊp bËc L­u th«ng tin danh s¸ch c¸c viÖc lµm theo cÊp bËc lµm viÖc. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: d_id, d_name, d_order, d_active 10. Thùc thÓ chøa th«ng tin viÖc lµm theo tõng ®Þa L­u th«ng tin danh s¸ch c¸c viÖc lµm theo ®Þa ®iÓm. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: n_id, n_name, n_active 11. Thùc thÓ chøa th«ng tin viÖc lµm theo lo¹i h×nh c«ng ty L­u th«ng tin danh s¸ch c¸c viÖc lµm theo lo¹i h×nh c«ng ty. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: c_id, c_name, c_active 12. Thùc thÓ chøa th«ng qu¶ng c¸o L­u h×nh ¶nh, logo c«ng ty muèn ®¨ng qu¶ng c¸o. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: l_id, l_name, l_url, l_image, l_border, l_width, l_height, l_position, l_comment, l_order, l_click, l_active 13. Thùc thÓ danh môc tin tøc L­u tr­ c¸c danh môc tin tøc mµ b¹n muèn ®¨ng. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: cat_ID, Cat_Name, Cat_Info, Cat_active, Cat_order, cat_show 14. Thùc thÓ tin tøc chi tiÕt L­u tr­ c¸c néi dung tin tøc mµ b¹n muèn xem. Thùc thÓ nµy bao gåm c¸c thuéc tÝnh sau: N_ID, N_CATID, N_TIEUDE, N_TRICHDAN, N_NOIDUNG, N_NGAYTHANG, N_ANHMINHHOA, N_BORDER, N_ALIGN, N_ALT, N_WIDTH, N_HEIGHT, N_TACGIA, N_HOT, N_SHOWLEFT, N_ACTIVE IV. M« t¶ hÖ qu¶n trÞ c¬ së d÷ liÖu 1. Giao diÖn mét CSDL trong øng dông B¶o vÖ Tªn tr­êng KiÓu d÷ liÖu §é réng M« t¶ Id AutoNumber Auto Sè thø tù ten Memo 50 Tªn truy cËp matkhau Text 50 MËt khÈu email Text 50 Email tenthat Memo 50 Tªn thËt Danh s¸ch nhµ tuyÓn dông ®¨ng ký 1.3. Danh s¸ch øng viªn ®¨ng ký 1.4. Hå s¬ øng viªn t¹o 1.5 Hå s¬ nhµ tuyÓn dông ®¨ng tuyÓn 1.6. B¶ng kh¸ch hµng liªn hÖ 1.7. B¶ng danh môc tin tøc 1.8. B¶ng tin tøc chi tiÕt 1.9 B¶ng qu¶ng c¸o M« h×nh quan hÖ Admin C¸u h×nh chung Ứng viên Nhà tuyển dụng Danh S¸ch Nhµ TuyÓn dông Danh S¸ch Hå S¬ H­íng NghiÖp T­ VÊn TuyÓn dông Danh S¸ch øng viªn Tin TuyÓn dông Qu¶ng C¸o Tin Tøc Kh¸ch Hµng Liªn HÖ Ch­¬ng III website tuyÓn dông - viÖc lµm I. Giao diÖn ng­êi sö dông PhÇn danh môc viÖc lµm PhÇn danh môc viÖc lµm ®­îc nhóng vµo ngay ë trang chñ ®Ó g©y sù chó ý cña ng­êi dïng khi hä truy cËp vµo website chÝnh. §©y lµ phÇn d­íi néi dung trang chñ PhÇn dµnh cho nhµ tuyÓn dông II. Giao diÖn phÇn “Qu¶n trÞ” 1. §¨ng nhËp hÖ thèng. Muèn th©m nhËp phÇn nµy b¾t buéc ph¶i ®¨ng nhËp hÖ thèng ®Ó kiÓm tra sù ®óng ®¾n cña ng­êi dïng. NÕu sai, sÏ yªu cÇu ®¨ng nhËp l¹i. 2. Giao diÖn qu¶n lý chung: NÕu ®¨ng nhËp thµnh c«ng, ch­¬ng tr×nh chuyÓn ®Õn phÇn qu¶n lý chung: 3. §¨ng qu¶ng c¸o Cho phÐp chóng ta ®¨ng lªn website h×nh ¶nh, logo qu¶ng c¸o. 6. Qu¶n lý qu¶ng c¸o Cho phÐp ta cã thÓ xo¸, söa néi dung hoÆc ¶nh KÝch vµo Söa, ta sÏ thÊy xuÊt hiÖn mµn h×nh sau: Vµ ta cã thay ®æi hoÆc söa tin cÇn ®¨ng cña m×nh. KÝch vµo ¶nh ®Ó xem kÝch cì thËt cña ¶nh 7. Danh s¸ch øng viªn khi ®¨ng nhËp 8. Danh s¸ch hå s¬ ®¨ng ký NÕu kÝch vµo t¹o hå s¬ sÏ xuÊt hiÖn form yªu cÇu b¹n ®¨ng ký nÕu b¹n ch­a lµ thµnh viªn NÕu kÝch vµo ®¨ng ký thµnh viªn míi sÏ xuÊt hiÖn form ®¨ng ký thµnh viªn 9. Danh s¸ch c¸c nhµ tuyÓn dông 10. Qu¶n lý th«ng tin tuyÓn dông KÝch thªm tin míi. PhÇn nµy cÇn yªu cÇu ph¶i ®¨ng ký thµnh viªn NÕu ®¨ng ký thµh viªn míi sÏ xuÊt hiÖn form ®¨ng ký 19. Thªm ng­êi qu¶n trÞ Trang nµy cho phÐp ®¨ng ký ng­êi qu¶n trÞ míi - ng­êi cã thÓ vµo phÇn qu¶n lý chung cña Website ®Ó chØnh, söa vµ thay ®æi. Muèn thªm ng­êi qu¶n trÞ ta kÝch vµo “ thªm míi” Muèn söa ®æi th«ng tin ng­êi qu¶n trÞ ta kÝch vµo “söa” Ch­¬ng IV Mét sè m· Code c¬ b¶n 1. PhÇn giao diÖn ng­êi dïng H×nh 1: C¸c file qu¶n lý website - Truy vÊn d÷ liÖu. TÖp nµy ®­îc viÕt nh»m môc ®Ých kÕt nèi ®Õn CSDL cña Acces, muèn dïng ®Õn table nµo trong CSDL ®ã ta chØ cÇn gäi biÕn server ra. <% Set ketnoi=Server.CreateObject("ADODB.Connection") duongdan="Provider=Microsoft.Jet.OLEDB.4.0; data source =" & Server.Mappath("data/dulieu.mdb") Ketnoi.Open duongdan %> - Muèn truy vÊn table tin tøc ta dïng lÖnh: <% Set banghi_tintuc=Server.CreateObject("ADODB.Recordset") SQL="Select * from tbl_news_cat order by ID DESC " banghi_tintuc.open sql, ketnoi,1,3 %> - Truy xuÊt CSDL: <% Set RS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT CAT_ID, CAT_NAME FROM tbl_news_cat WHERE CAT_ACTIVE=true ORDER BY CAT_ORDER ASC" RS.Open strSQL,ketnoi,3,1 Do While not RS.EOF %> " style=""> <% RS.movenext Loop Rs.close set rs = nothing %> <% on error resume next lngNewsID=CLng(formatSQLInput(Request.QueryString("newsID"))) Set RS= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_news_detail WHERE N_ACTIVE=true AND N_ID= " & lngNewsID RS.Open strSQL,ketnoi,3,1 If RS.EOF and RS.BOF then Response.Redirect("?id=1") End if %> PhÇn khëi t¹o c¸c biÕn hiÓn thÞ hå s¬: <% '----------Ket noi den table cauhinh ------------------------------- Set banghi=Server.CreateObject("ADODB.RecordSet") SQL_cauhinh="SELECT * FROM CAUHINH WHERE ID=1" banghi.Open SQL_cauhinh, Ketnoi,1,3 '----------Ket noi den table khoi ------------------------------- Set banghi_vote=Server.CreateObject("ADODB.RecordSet") Set banghi_logo=Server.CreateObject("ADODB.RecordSet") Set banghi_sukien=Server.CreateObject("ADODB.RecordSet") Set banghi_tinvan=Server.CreateObject("ADODB.RecordSet") Set banghi_timkiem=Server.CreateObject("ADODB.RecordSet") Set banghi_banner=Server.CreateObject("ADODB.RecordSet") Set banghi_site=Server.CreateObject("ADODB.RecordSet") Set banghi_banner1=Server.CreateObject("ADODB.RecordSet") SQL_vote="SELECT * FROM khoi where ten='vote'" SQL_logo="SELECT * FROM khoi where ten='logo'" SQL_sukien="SELECT * FROM khoi where ten='sukien'" SQL_tinvan="SELECT * FROM khoi where ten='tinvan'" SQL_timkiem="SELECT * FROM khoi where ten='timkiem'" <% if Session("jobuser") = False or IsNull (Session("jobuser")) = True then response.Write("bạn phải đăng nhập") else %> <% Set RS= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT top 3 * FROM tbl_job_post WHERE j_uID=" & session("idjob") 'on error resume next RS.Open strSQL,ketnoi,3,2 %> <% inthtid = formatSQLInput(Request.QueryString("htid")) Set RS1= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_job_post WHERE j_id="&inthtid&"and j_uID=" & session("idjob") 'on error resume next RS1.Open strSQL,ketnoi,3,2 %> <% With RS Do While not rs.EOF .Fields("j_hienthi") = 0 .Update rs.MoveNext Loop End with With RS1 if rs1("j_active_search") = 2 then .Fields("j_active_search") = 0 end if .Fields("j_hienthi") = 1 .Update End with response.Redirect("../vi/?id=3") rs.close set rs = nothing %> - PhÇn khai b¸o cËp nhËt hå s¬ viÖc lµm <% if Session("jobuser") = False or IsNull (Session("jobuser")) = True then response.Write("bạn phải đăng nhập") else %> <% Set RS= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT top 3 * FROM tbl_job_post WHERE j_uID=" & session("idjob") 'on error resume next RS.Open strSQL,ketnoi,3,2 %> <% inthtid = formatSQLInput(Request.QueryString("htid")) Set RS1= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_job_post WHERE j_id="&inthtid&"and j_uID=" & session("idjob") 'on error resume next RS1.Open strSQL,ketnoi,3,2 %> <% With RS Do While not rs.EOF .Fields("j_hienthi") = 0 .Update rs.MoveNext Loop End with With RS1 if rs1("j_active_search") = 2 then .Fields("j_active_search") = 0 end if .Fields("j_hienthi") = 1 .Update End with response.Redirect("../vi/?id=3") rs.close set rs = nothing %> - PhÇn ®¨ng nhËp: function kiemtra(obj) { if(obj.txtUsername.value=="") { alert("Bạn phải nhập E-mail đăng nhập của bạn!"); obj.txtUsername.focus(); return false; } if (obj.txtUsername.value.indexOf('@',0)==-1 || obj.txtUsername.value.indexOf('.')==-1) { window.alert("Email đăng nhập của bạn không hợp lệ"); obj.txtUsername.focus(); return false; } if(obj.txtPassword.value=="") { alert("Bạn phải nhập mật khẩu"); obj.txtPassword.focus(); return false; } return true; } - §Õm sè ng­êi truy cËp vµo website <% <% Function bodem(TableName,condition) bodem="" if isNull(condition) or condition="" then condition="true" Set rsF= Server.CreateObject("ADODB.Recordset") sql = "SELECT sum(COUNTER) AS cMax FROM " & TableName & " WHERE " & condition On Error Resume Next rsF.Open sql, ketnoi,3,1 If not rsF.EOF and not rsF.BOF Then bodem=rsF("cMax") End If rsF.Close On Error Goto 0 End Function %> <% set db = Server.CreateObject("ADODB.Connection") strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin_vl\data\data_timviec.mdb") db.open(strConnString) '## Counter '# Kiem tra xem da co ngay hom nay chua set tmp = db.Execute("SELECT * FROM tbl_counter_visits WHERE RegDate = #"& Date() &"#") if tmp.eof = true then '# Neu chua co tao 1 record va cho Counter = 1 db.Execute("INSERT INTO tbl_counter_visits (Counter) VALUES (1)") else '# Nguoc lai '# Neu bien Session xac nhan da dem nguoi nay Online bang "", nghia la chua dem if Session("Counter") = "" then '# Them 1 luot truy cap cho ngay hom nay db.Execute("UPDATE tbl_counter_visits SET Counter = Counter+1 WHERE RegDate = #"& Date() &"#") '# Va xac nhan da dem nguoi nay Session("Counter") = "False" end if end if set tmp = nothing '# Lay tong luot truy cap set tmp = db.Execute("SELECT Sum(Counter) As TotalCounter FROM tbl_counter_visits") '# Gan cho bien intTotalCounter intTotalCounter = tmp("TotalCounter") set tmp = nothing '## End Counter '## Active User '# Cho bi?n intTimeOut = -10, trong 10s dem so nguoi truc tuyen intTimeOut = -10000 '# Lay dia chi IP strIPAddress = Request.ServerVariables("REMOTE_HOST") im= Request.ServerVariables("PATH_INFO") if Session("MATHANHVIEN")0 then mtv=Session("MATHANHVIEN") else mtv=0 end if '# Kiem tra da co trong trong table chua set tmp = db.Execute("SELECT * FROM tbl_online_web WHERE IPAddress = '"& strIPAddress &"'") if tmp.EOF = true then '# Neu chua tao thong tin cho IP nay db.Execute("INSERT INTO tbl_online_web (IPAddress,MATHANHVIEN,IM) VALUES ('"& strIPAddress &"','"&mtv&"','"&im&"')") else '# Neu co roi cap nhat cho IP nay db.Execute("UPDATE tbl_online_web SET LogTime = '"& Now() &"',MATHANHVIEN='"&mtv&"',Im='"&IM&"' WHERE IPAddress = '"& strIPAddress &"'") '# Xoa het cac dia chi het 10 giay (Xem ham DateAdd ) db.Execute("DELETE FROM tbl_online_web WHERE LogTime < #"& DateAdd("S", intTimeOut, Now()) &"#") end if set tmp = nothing '# Dem tong so truc tuyen set tmp = db.Execute("SELECT Count(ActiveID) As TotalUserOnline FROM tbl_online_web") '# Gan cho bien intTotalUserOnline intTotalUserOnline = tmp("TotalUserOnline") set tmp = nothing '## End Active User %> Lần truy cập : Hôm nay có : Hôm qua có : "" then %> <% else %> 234 <% end if %> Đang Online : PhÇn qu¶n lý vµ xö lý viÖc lµm: - Truy vÊn CSDL viÖc lµm <% if Session("Moder") = False or IsNull (Session("Moder")) = True then Response.write("alert('Bạn không có quyền này');location='login.asp'") end if If Request.Form("btnAddCat")"" then strCatName = Request.Form("txtCatName") blnActive = cint(Request.Form("chkCatActive")) blnHot = cint(Request.Form("chkCatHot")) nhom = cint(Request.Form("nhom")) strSQL = "INSERT INTO tbl_job_menu(m_NAME,m_hot,m_ACTIVE,m_group) VALUES(" strSQL = strSQL & CheckString(strCatName,",") & CheckString(blnHot,",") & CheckString(blnActive,",") & CheckString(nhom,")") ketnoi.Execute(strSQL) Response.write("alert('Đã được thêm vào !!!');location='admin_job_menu.asp'") else %> function kiemtra(obj) { if(obj.txtCatName.value=="") { window.alert("Bạn phải nhập tên Ngành nghề"); obj.txtCatName.focus(); return false; } return true; } -HiÓn thÞ hå s¬ c¸ nh©n <% if Session("Moder") = False or IsNull (Session("Moder")) = True then Response.write("alert('Bạn không có quyền này');location='login.asp'") response.End end if if Session("ungvien") = False or IsNull (Session("ungvien")) = True then Response.write("alert('Bạn không có quyền này');history.back()") response.End end if Set RS = Server.CreateObject("ADODB.Recordset") idhoso = Request.QueryString("idhoso") session("idhoso") = Request.QueryString("idhoso") strSQL = "SELECT * FROM tbl_job_post WHERE j_uID="&idhoso 'on error resume next RS.Open strSQL,ketnoi,3,1 action = Request.QueryString("action") If action="DelThis" then intRegID = formatSQLInput(Request.QueryString("xid")) strSQL = "DELETE FROM tbl_job_post WHERE j_id="& intRegID& "and j_uID="& idhoso &"" ketnoi.Execute(strSQL) Response.Redirect("admin_job_hoso.asp?idhoso="&session("idhoso")) End if %>   Quản lý hồ sơ của ứng viên "" MHS Tiêu đề hồ sơ Xem Tình trạng Cập nhật Hiện thị Chức năng Trạng thái Chưa có hồ sơ nào <% else %> <% i=1 Do While not rs.EOF %> Hồ sơ ẩn Cho phép tìm kiếm Bảo mật <% end if end if %> không?');" href="admin_hienthi_hoso.asp?htid=&idh="> ">Xem | Cập nhật |--> không?');" href="admin_job_hoso.asp?xid=&action=DelThis&idhoso=" >Xóa Chờ kích hoạt Đã kích hoạt <% rs.MoveNext i=i+1 Loop end if rs.close set rs = nothing %> NÕu ch­a ®¨ng nhËp hÖ thèng b¾t buéc ph¶i ®¨ng nhËp ®Ó xem th«ng tin ®©y lµ code xö lý ®¨ng nhËp: "> <% Dim StrUser ' Get Value of Username Dim StrPass ' Get Value of the Password strUser = formatInput(Request.Form("txtUsername")) strPassword = formatInput(Request.Form("txtPassword")) Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT tbl_employers_users.* FROM tbl_employers_users WHERE tbl_employers_users.u_active=-1 and tbl_employers_users.u_username='" & strUser & "'" RS.Open SQL,ketnoi,3,1 if not RS.eof then solanvao=RS("u_visits")+1 strSQL="UPDATE tbl_employers_users set tbl_employers_users.u_visits ="& solanvao &" WHERE tbl_employers_users.u_active=-1 and tbl_employers_users.u_username='" & strUser &"'" ketnoi.execute(strSQL) end if If NOT RS.EOF Then strPassword = strPassword & rs("u_salt") strPassword = HashEncode(strPassword) if strPassword = RS("u_password") then session("tduser") = True session("companyName") = RS("u_companyName") session("idtd") = RS("u_id") session("ddanh") = RS("u_img") session.Timeout = 200 'Set RS1= Server.CreateObject("ADODB.Recordset") 'sql1= "select * from tbl_user" 'rs1.open sql1,ketnoi,1,3 'if not rs1.eof then 'visits=rs1("u_visits")+1 ' LASTTIME=rs1("u_now") 'sql1="update tbl_user set u_visits='" & visits & "'," 'sql1=sql1 & " u_lasttime='" & LASTTIME & "'," ' sql1=sql1 & " u_now='" & NOW() & "'" ' sql1=sql1 & " where u_id="&rs("u_id")&" " ' rs1.execute(sql1) ' rs1.close ' end if %> Đăng nhập thành công Xin vui lòng chờ trong giây lát... <% 'Response.Redirect("index.asp") else Response.write("alert('Mật khẩu bạn không đúng ');history.back()") End if Else Response.write("alert('Email truy cập không tìm thấy, hay chưa được kích hoạt ở Email của bạn');history.back()") End if ' Close object set Rs = nothing set ketnoi = nothing If Session("tduser")=False then Response.write("alert('Bạn vui lòng đăng nhập lại ! ');location='index.asp'") End if %> 3. PhÇn qu¶n trÞ hÖ thèng TÊt c¶ c¸c file ®Ó xö lý vµ qu¶n lý phÇn qu¶n trÞ hÖ thèng H×nh 2: C¸c file qu¶n lý vµ xö lý phÇn qu¶n trÞ - Xö lý ®¨ng nhËp hÖ thèng qu¶n lý: <% Dim StrUser ' Get Value of Username Dim StrPass ' Get Value of the Password strUser = formatInput(Request.Form("txtUsername")) strPassword = formatInput(Request.Form("txtPassword")) Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT tbl_admin.* FROM tbl_admin WHERE tbl_admin.ten='" & strUser & "'" RS.Open SQL,ketnoi,3,1 If NOT RS.EOF Then strPassword = strPassword & rs("salt") strPassword = HashEncode(strPassword) if strPassword = RS("matkhau") then if RS("capdo")=2 then session("Admin") = True session("Moder") = True elseif RS("capdo")=1 then session("Admin") = false session("Moder") = true else Response.write("alert('Tai khoan cua ban bi khoa, Hay lien he voi ban quan tri ...');location='login.asp'") End if if not RS.eof then solanvao=RS("solanvao")+1 strSQL="UPDATE tbl_admin set tbl_admin.solanvao ="& solanvao &" WHERE tbl_admin.ten='" & strUser &"'" ketnoi.execute(strSQL) end if Session("tintuc") = RS("ql_tintuc") Session("ungvien") = RS("ql_ungvien") Session("nhatuyendung") = RS("ql_nhatuyendung") Session("email") = RS("ql_email") Session("quangcao") = RS("ql_quangcao") Session("lienhe") = RS("ql_lienhe") session("id") = RS("id") session("tenthat") = RS("tenthat") session.Timeout = 200 Response.Redirect("index.asp") else Response.write("alert('Mat khau sai, moi ban go lai ...');location='login.asp'") End if Else Response.write("alert('Ten truy cap khong tim thay. Moi ban go lai...');location='login.asp'") End if ' Close object set Rs = nothing set ketnoi = nothing If Session("Moder") = false and Session("Admin")=False then Response.write("alert('Thoi gian qua han! Moi ban nhap lai...');location='login.asp'") End if %> - B¶o mËt: <% If session("dangnhap")="" then Response.Redirect "login.asp" End if %> - Xö lý thªm tin tøc: <% <% if Session("Moder") = False or IsNull (Session("Moder")) = True then Response.write("alert('Bạn không có quyền này');location='login.asp'") end if Function bodem(TableName,condition) bodem="" if isNull(condition) or condition="" then condition="true" Set rsF= Server.CreateObject("ADODB.Recordset") sql = "SELECT COUNT(*) AS cMax FROM " & TableName & " WHERE " & condition On Error Resume Next rsF.Open sql, ketnoi,3,1 If not rsF.EOF and not rsF.BOF Then bodem=rsF("cMax") End If rsF.Close On Error Goto 0 End Function %> <% if Session("Moder") = False or IsNull (Session("Moder")) = True then Response.write("alert('Bạn không có quyền này');location='login.asp'") end if Set RS= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_news_cat ORDER BY CAT_ACTIVE,CAT_ORDER ASC" RS.Open strSQL,ketnoi,3,1 If Request.Form("btnUpdate")"" then arrCatOrder = Split(Request.Form("cbCatOrder"),",") arrCatID = Split(Request.Form("txtCatID"),",") for i=0 to Ubound(arrCatID) strSQL = "UPDATE tbl_news_cat SET " strSQL = strSQL & "CAT_ORDER=" & CInt(arrCatOrder(i)) strSQL = strSQL & " WHERE CAT_ID=" & CInt(arrCatID(i)) ketnoi.Execute(strSQL) Next Application("blnNews") = false 'value equal false to write news submenu file Response.write("alert('Cap nhat thanh cong !!!');location='admin_tintuc.asp'") Else %> - Thªm tin: <% if Session("Moder") = False or IsNull (Session("Moder")) = True then Response.write("alert('Bạn không có quyền này');location='login.asp'") end if if Session("tintuc") = False or IsNull (Session("tintuc")) = True then Response.write("alert('Bạn không có quyền này');history.back()") end if Dim intNewsType Dim intCatID Dim strNewsTitle Dim strNewsDate Dim strNewsDescript Dim strNewsContent Dim strNewsImage Dim strNewsImageDescript Dim strNewsImageAlign Dim intNewsImageBorder Dim intNewsImageWidth Dim intNewsImageHeight Dim strNewsAuthor Dim blnNewsHot Dim blnNewsLeft Dim blnNewsActive Response.Buffer = True intCatID = formatSQLInput(Request.QueryString("CatID")) If Request.Form("btnAddNews")"" then 'intNewsType = CInt(formatInput(Request.Form("cbNewsType"))) intCatID = CInt(formatInput(Request.Form("txtNewsCatID"))) strNewsTitle = formatInput(Request.Form("txtNewsTitle")) strNewsDate = Request.Form("cbNewsMonth")&"/"&Request.Form("cbNewsDate")&"/"&Request.Form("cbNewsYear") strNewsDate = CDate(strNewsDate) strNewsDescript = formatInput(Request.Form("txtNewsDescript")) strNewsContent = FilterContent(Request.Form("txtMessage")) if session("ddanh") "" then strNewsImage = session("ddanh") else strNewsImage = formatInput(Request.Form("txtNewsImage")) end if strNewsImageDescript = formatInput(Request.Form("txtNewsImageDescript")) strNewsImageAlign = Request.Form("cbNewsImageAlign") intNewsImageBorder = CInt(Request.Form("cbNewsImageBorder")) intNewsImageWidth = CInt(formatInput(Request.Form("txtNewsImageWidth"))) intNewsImageHeight = CInt(formatInput(Request.Form("txtNewsImageHeight"))) strNewsAuthor = formatInput(Request.Form("txtNewsAuthor")) blnNewsHot = CBool(Request.Form("chkNewsHot")) blnNewsLeft = CBool(Request.Form("chkNewsLeft")) blnNewsActive = CBool(Request.Form("chkNewsActive")) strSQL = "INSERT INTO tbl_news_detail(N_CATID,N_TIEUDE,N_TRICHDAN,N_NOIDUNG,N_NGAYTHANG," strSQL = strSQL & "N_ANHMINHHOA,N_BORDER,N_ALIGN,N_ALT,N_WIDTH,N_HEIGHT,N_TACGIA,N_HOT,N_SHOWLEFT,N_ACTIVE) VALUES(" strSQL = strSQL & CheckString(intCatID,",") & CheckString(strNewsTitle,",") & CheckString(strNewsDescript,",") & CheckString(strNewsContent,",") strSQL = strSQL & CheckString(strNewsDate,",") & CheckString(strNewsImage,",") & CheckString(intNewsImageBorder,",") & CheckString(strNewsImageAlign,",") strSQL = strSQL & CheckString(strNewsImageDescript,",") & CheckString(intNewsImageWidth,",") & CheckString(intNewsImageHeight,",") strSQL = strSQL & CheckString(strNewsAuthor,",") & CheckBool(blnNewsHot,",") & CheckBool(blnNewsLeft,",") & CheckBool(blnNewsActive,")") 'on error resume next ketnoi.Execute(strSQL) Response.write("alert('Them thanh cong !!!');location='admin_tintuc_viewNews.asp?catID="& intCatID &"'") Else %> <!-- function checkFrm(obj) { if(obj.txtNewsTitle.value=="") { alert("Ban chua nhap Tieu de tin."); obj.txtNewsTitle.focus(); return false; } if(obj.txtNewsDescript.value=="") { alert("Ban chua nhap Trich dan ngan."); obj.txtNewsDescript.focus(); return false; } if(obj.txtMessage.value=="") { alert("Ban chua nhap Noi dung."); return false; } return true; } //-->   Thêm bản tin mới cho lĩnh vực " <% Set RS1= Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tbl_news_cat WHERE CAT_ID=" & intCatID RS1.Open strSQL,ketnoi,3,1 %> " Tiêu đề Tin:   (tối đa 200 ký tự) Ngày đăng: Ngày " > Tháng " > Năm " > Trích dẫn:(Có thể sử dụng HTML) <br> để xuống dòng Nội dung: Ảnh minh hoạ:   Chú thích ảnh:   (tối đa 150 ký tự) Căn lề ảnh: Sang bên trái Sang bên phải Đường viền ảnh: 0 pixel 1 pixel 2 pixel 3 pixel 4 pixel 5 pixel     Chiều rộng ảnh:   Chiều cao ảnh: (pixel) Tác giả:   (tối đa 150 ký tự) Tin nổi bật: Có       Không  (là tin xuất hiện trên trang chủ) Tin tiêu điểm: Có       Không  (là tin xuất hiện bên menu phải) Cho phép đăng: Có       Không " name="txtNewsCatID"> _editor_url = "Xinha/" // (preferably absolute) URL (including trailing slash) where Xinha is installed _editor_lang = "en"; // And the language we need to use in the editor. xinha_editors = null; xinha_init = null; xinha_config = null; xinha_plugins = null; xinha_init = xinha_init ? xinha_init : function() { xinha_plugins = xinha_plugins ? xinha_plugins : [ 'CharacterMap', 'ContextMenu', 'ListType', 'SpellChecker', 'Stylist', 'SuperClean', 'TableOperations' ]; if(!Xinha.loadPlugins(xinha_plugins, xinha_init)) return; xinha_editors = xinha_editors ? xinha_editors : [ 'txtMessage', 'txtMessage' ]; xinha_editors = xinha_editors ? xinha_editors : [ 'newbiearea1' ]; xinha_editors = xinha_editors ? xinha_editors : [ 'newbiearea2' ]; xinha_config = xinha_config ? xinha_config() : new Xinha.Config(); xinha_editors = Xinha.makeEditors(xinha_editors, xinha_config, xinha_plugins); Xinha.startEditors(xinha_editors); } Xinha._addEvent(window,'load', xinha_init); KÕt luËn §Ò tµi lµ mét ch­¬ng tr×nh nghiªn cøu trªn c¬ së thùc tÕ vµ cã tÝnh thùc nghiÖm cao. Trong qu¸ tr×nh nghiªn cøu vµ ph¸t triÓn, hÖ thèng nµy ®· ®­îc ch¹y thö nghiÖm vµ cho kÕt qu¶ xö lý hiÖu suÊt cao vµ gi¶m thiÓu ®­îc tèi ®a c¸c thao t¸c cho bé phËn qu¶n lý c«ng v¨n còng nh­ cung cÊp tin tøc mét c¸ch nhanh chãng. §Ò tµi lµ mét hÖ thèng më cho phÐp ng­êi dïng tù cÊu h×nh cho m×nh c¸c c«ng cô hay nhÊt vµ cËp nhËt th«ng tin mét c¸ch tù ®éng mµ kh«ng cÇn can thiÖp ®Õn m· nguån. Ch­¬ng tr×nh sÏ tù ®éng ph¸t hiÖn lçi nÕu mét khi ng­êi dïng kh«ng tu©n thñ ®óng c¸c nguyªn t¾c qu¶n lý vµ nguy c¬ ph¸ vì hÖ thèng lµ kh«ng cã. Tuy nhiªn, trong qu¸ tr×nh x©y dùng vµ ph¸t triªn hÖ thèng, ch­¬ng tr×nh sÏ kh«ng tr¸nh ®­îc c¸c thiÕu sãt còng nh­ cã thÓ ch­a tèi ­u ho¸ hÕt ®­îc c¸c c«ng viÖc mét c¸ch thùc tÕ nhÊt. Hy väng nh÷ng lÇn n©ng cÊp sau sÏ lµm hoµn thiÖn h¬n c¸c phÇn ®ã. Cuèi cïng, em xin ch©n thµnh c¶m ¬n tËp thÓ c¸n bé gi¸o viªn trong toµn tr­êng vµ ®Æc biÖt c¶m ¬n tËp thÓ gi¸o viªn khoa Tin häc ®· gióp cho viÖc hoµn thµnh ®Ò tµi mét c¸ch trän vÑn. website tuyÓn dông - viÖc lµm Tµi liÖu tham kh¶o: 1. Gi¸o tr×nh tin häc ASP – Tr­êng §H QL & KD Hµ néi 2. LËp tr×nh ASP víi CSDL – Tr­êng §H QG-HN 3. X©y dùng hÖ thèng cung cÊp th«ng tin víi ASP –Nhµ XB thèng kª. 4. HÖ thèng qu¶n lý hå s¬ c«ng v¨n trùc tuyÕn- t¸c gi¶: Jackumeg- Harvart University. 5. Qu¶n trÞ CSDL víi website ®éng - Ngäc Anh Th­ DÞch vµ ph¸t hµnh 6. X©y dùng mé h×nh website cung cÊp th«ng tin hiÖn ®¹i. T¸c gi¶: Himgerman – Sumernia – University 7. X©y dùng m« h×nh web øng dông: Nhµ XB Thèng kª.