ASPÒ©µêÐÅÏ¢¹ÜÀíϵͳ(Ò»)_¼ÆËã»úרҵ±ÏÒµÂÛÎÄ
·¢²¼Ê±¼ä£º
2015-01-26
À´Ô´£º
ÈË´ó¾¼ÃÂÛ̳
ASPÒ©µêÐÅÏ¢¹ÜÀíϵͳ(Ò»)_¼ÆËã»úרҵ±ÏÒµÂÛÎÄ
ÕªÒª
Ëæ×Å¿Æѧ¼¼ÊõµÄ·¢Õ¹£¬¼ÆËã»úÁìÓò²»¶ÏÈ¡µÃеÄÑо¿³É¹û¡£²¢²»¶ÏµØ´úÌæºÍÑÓÉìÄÔÁ¦ÀͶ¯·½Ãæ·¢»ÓÔ½À´Ô½ÖØÒªµÄ×÷Óã¬ÎÞÂÛÊǹ¤Òµ»¹ÊÇÈÕ³£Éú»î¶¼Ô½À´Ô½Àë²»¿ª¼ÆËã»ú£¬ÓÈÆäÊÇÔÚÉ̵êÀËæ׏æÄ£²»¶ÏÀ©´óºÍ²úÆ·µÄ²»¶ÏÔö¼Ó£¬Òª´¦Àí´óÁ¿µÄ²úÆ·Êý¾ÝÐÅÏ¢ÏÔµÃÓÈΪµÄÖØÒª¡£Ò©µêµÄÐÅÏ¢¹ÜÀíÊÇÒ©µê¹¤×÷ÖÐÒ»ÏîÖØÒªµÄÄÚÈÝ¡£
±¾ÏµÍ³ÂÛÎÄÖ÷ÒªÊǹÜÀí²úÆ·µÄÔÚÏß·¢²¼¡£Öصã½éÉÜÆ书ÄÜ£ºÐÂÎÅ·¢²¼¡¢ÁôÑÔ°å¡¢ºǫ́µÇ½¡¢ºǫ́µÇ½µÄȨÏÞ£¬²»ÓÃȨÏÞµÄÓû§µÇ½µ½²»Í¬µÄºǫ́£¬µÇ½µ½ºǫ́ºóÄÜʵÏÖ¡¢ÐÅÏ¢Ìí¼Ó¡¢ÐÅÏ¢Ð޸ġ¢ÐÅÏ¢µÄɾ³ý¼°ÐÅÏ¢²éѯ£¬ÄÜÓÃÓû§µÄ×ÊÁϽøÐÐÐ޸ģ¬ÈçÐÞ¸ÄÃÜÂëµÈ¡£Ê¹Óö¯Ì¬Ò³ÃæÉè¼Æ,Ó¦ÓÃASP³ÌÐò½øÐкǫ́¹ÜÀí²Ù×÷£¬²¢ÓÃAccess½øÐкǫ́Êý¾Ý¿âµÄÁ¬½ÓÉè¼Æ¡£Ö÷ÒªÊÇÒÔÕâЩ¹¦ÄܽøÐÐϵͳµÄÉè¼ÆºÍʵÏÖ¡£
ÏÖ½ñ·ÉËÙ·¢Õ¹µÄÍøÂçΪ¹«Ë¾Óë´øÀ´µÄ±ãÀûÐÔ¾ÙÊÀ½ÔÖª¡£¸üΪ¹«Ë¾´øÀ´¹ãÀ«µÄ·¢Õ¹¿Õ¼ä¡£Ðû´«£¬¶Ô¹«Ë¾À´½²ÊǸö²»¿ÉȱµÄ¹¤¾ß£¬¸üÊÇÒ»¸öÎÞ·¨È±ÉÙµÄŦ´ø£¬ËüÊÇÁ¬½ÓÏû·ÑÕßÓë·þÎñÌṩÉ̵ÄÇÅÁº£¬ÊÇÒµÎñµÄÀ´Ô´Ö®Á¦¡£ÎªÁ˸üºÃµÄÍÆÏú±¾¹«Ë¾£¬ÎªÁ˸üºÃµÄÈÿͻ§Á˽Ȿ¹«Ë¾£¬¸ü·½±ãµÄ·þÎñ¿Í»§£¬ÇÒÄܸü·½±ãµÄÓë±¾¹«Ë¾ÁªÏµ£¬½ÚԼʱ¼ä£¬¼°Ê±·¢»ÓЧӦ¡£¸ü¼ÓϵͳºÍÓÐЧµØ¹ÜÀí¹«Ë¾ÒµÎñ£¬·½±ã¿Í»§Äܹ»ÔÚÈκεص㡢ÈκÎʱ¼ä¼°Ê±µØÁ˽âºÍÕÆÎÕ¹«Ë¾µÄ×îÐÂÐÐÇ飻¸ü¼ÓϵͳºÍÓÐЧµØ¹ÜÀí¹«Ë¾ÒµÎñ£¬·½±ã¿Í»§¹ºÎʵÏÖ¿Í»§Ó빫˾µÄÏ໥½»Á÷ºÍÔ¤¶©ÒµÎñ¹¦ÄÜ£¡
¹Ø¼ü´Ê£ºDreamweaver 8.0 ϵͳ Õ¾µãÉè¼Æ ASP Access Êý¾Ý¿â
Ŀ¼£º
µÚÒ»ÕÂ Òý ÑÔ---------------------------------------------------------------------------------3
µÚ¶þÕ ϵͳ·ÖÎö------------------------------------------------------------------------------4
µÚÈýÕ ҩµêÐÅÏ¢¹ÜÀíµÄÉè¼Æ---------------------------------------------------------------4
µÚËÄÕ ҩµêÐÅÏ¢¹ÜÀíϵͳµÄʵÏÖ---------------------------------------------------------8
µÚÎåÕ ½áÂÛ------------------------------------------------------------------------------------16
²Î¿¼ÎÄÏ×-----------------------------------------------------------------------------------------17
Ö л--------------------------------------------------------------------------------------------17
¸½¼þ-----------------------------------------------------------------------------------------------17--46
µÚÒ»ÕÂ Òý ÑÔ
Ëæ׿ÆËã»ú¼¼ÊõµÄ·ÉËÙ·¢Õ¹ºÍ¸ßµÈ½ÌÓýÌåÖƸĸïµÄ²»¶ÏÉîÈ룬¼ÆËã»ú¼¼ÊõÒѽøÈëÍøÂçʱ´ú£¬´«Í³µÄ²úÆ·ÐÅÏ¢¹ÜÀí·½·¨£¬Êֶμ°¹¤×÷ЧÂÊÒѲ»ÄÜÊÊӦеķ¢Õ¹ÐèÒª£¬ÎÞ·¨ºÜºÃµÄÍê³É¹ÜÀí¹¤×÷£¬Ìá¸ß¹ÜÀíˮƽµÄÖ÷Ҫ;¾¶ÊǸüйÜÀíÕßµÄ˼Ï룬ÔöÇ¿¶Ô¹ÜÀí»î¶¯µÄ¿ÆѧÈÏʶ£¬Í¬Ê±ÔËÓÃÏȽøµÄÐÅÏ¢¼¼Êõ£¬¿ª·¢Ò©µêÐÅÏ¢¹ÜÀíϵͳµÄÐèÇó£¬ÊÇÉ¹ÜÀíÌåÖƸĸïµÄÓÐÁ¦´ëÊ©¡£
½¨Á¢Ò©µêÐÅÏ¢¹ÜÀíϵͳ£¬²ÉÓüÆËã»úÍøÂç¶ÔÒ©µê²úÆ·½øÐйÜÀí£¬½øÒ»²½Ìá¸ß°ìÊÂЧÒæºÍÏÖ´ú»¯Ë®Æ½¡£°ïÖúÔ±¹¤Ìá¸ß¹¤×÷ЧÂÊ£¬ÊµÏÖÒ©µêÐÅÏ¢¹ÜÀí¹¤×÷Á÷³ÌµÄϵͳ»¯¡¢ÍøÂ绯¡¢¹æ·¶»¯ºÍ×Ô¶¯»¯¡£
±¾ÏµÍ³È«³ÆΪҩµêÐÅÏ¢¹ÜÀíϵͳ¡£¿ª·¢Ò©µêÐÅÏ¢¹ÜÀíϵͳ¿ÉʹѧԺ½ÌÖ°Ô±¹¤¼õÇṤ×÷ѹÁ¦£¬±È½ÏϵͳµØ¶Ô½ÌÎñ¡¢½ÌѧÉϵĸ÷Ïî·þÎñºÍÐÅÏ¢½øÐйÜÀí£¬Í¬Ê±£¬¿ÉÒÔ¼õÉÙÀͶ¯Á¦µÄʹÓ㬼ӿì²éѯËٶȡ¢¼ÓÇ¿¹ÜÀí¡£Òò´Ë¿ª·¢Ò»Ì×»ùÓÚ¼ÆËã»úÍøÂçµÄ¹ÜÀíϵͳÊǺÜÓбØÒªµÄ¡£ ¿ª·¢»·¾³£¬Ö÷ÒªÀûÓÃASP+ACCESS¼°IIS»·¾³½øÐпª·¢
¿ª·¢¹¤¾ß£¬Ö÷ÒªÀûÓÃDreamweaver8.0 ¼°Access2003½øÐпª·¢
±¾ÂÛÎÄÖ÷Òª´Óϵͳ·ÖÎö¡¢ÏµÍ³Éè¼Æ¡¢ÏµÍ³ÊµÊ©ÓëʹÓõȼ¸¸ö·½Ãæ½øÐнéÉÜ¡£
ASP£¨Active Sever Pages¶¯Ì¬ÍøÒ³£©ÊÇ΢Èí¹«Ë¾ÍƳöµÄÒ»ÖÖÓÃÒÔÈ¡´úCGI(Common Gateway Interface)¼¼Êõ¡£Ä¿Ç°£¬InternetÉϵÄÐí¶à»ùÓÚWindowsƽ̨µÄWebÕ¾µãÒÑ¿ªÊ¼Ó¦ÓÃASPÀ´Ìæ»»CGI¡£
ASPÊÇÔÚ·þÎñÆ÷¶Ë½Å±¾±àÒë»·¾³£¬Ê¹ÓÃËü¿ÉÒÔ´´½¨ºÍÔËÐж¯Ì¬¡¢½»»¥µÄWeb·þÎñÆ÷Ó¦ÓóÌÐò¡£ASP¿ÉÒÔÓëHTMLÒ³¡¢½Å±¾ÃüÁîºÍ ActiveX×é¼þ×éºÏ´´½¨½»»¥µÄWebÒ³ºÍ»ùÓÚWebµÄ¹¦ÄÜÇ¿´óµÄÓ¦ÓóÌÐò¡£ASPÓ¦ÓóÌÐòºÜÈÝÒ׿ª·¢ºÍÐ޸ġ£ASPÊÇÒ»¸öλÓÚ·þÎñÆ÷¶ËµÄ½Å±¾ÔËÐл·¾³¡£Í¨¹ýÕâÖÖ»·¾³£¬Óû§¿ÉÒÔ´´½¨ºÍÔËÐж¯Ì¬µÄ½»»¥Ê½Web·þÎñÆ÷Ó¦ÓóÌÐò£¬Èç½»»¥Ê½¶¯Ì¬ÍøÒ³£¬°üÀ¨Ê¹ÓÃHTML±íµ¥ÊÕ¼¯ºÍ´¦ÀíÐÅÏ¢¡¢ÉÏ´«ÓëÏÂÔصȡ£Í¨³£Çé¿öÏ£¬Óû§Í¨¹ýä¯ÀÀÆ÷¿´µ½µÄÍøÒ³´ó¶àÊǾ²Ì¬µÄ£¬Ä¿Ç°InternetÉϵÄÐí¶àÕ¾µã£¬ÈÔÈ»Ìṩ¡°¾²Ì¬¡±£¨static£©µÄÖ÷Ò³ÄÚÈÝ¡£Ëùν¡°¾²Ì¬¡±£¬ÊÇÖ¸Õ¾µãµÄÖ÷Ò³ÄÚÈÝÊÇ¡°¹Ì¶¨²»±ä¡±µÄ¡£Ò»¸ö¡°¾²Ì¬¡±µÄÕ¾µã£¬ÈôÒª¸üÐÂÖ÷Ò³µÄÄÚÈÝ£¬±ØÐëÊÖ¶¯¸üÐÂÆäHTMLµÄÎļþÊý¾Ý¡£¶øËæ×ÅWeb¼¼ÊõµÄ·¢Õ¹£¬Óû§Ï£ÍûÄܹ»¿´µ½¸ù¾ÝÒªÇó¶ø¶¯Ì¬Éú³ÉµÄÖ÷Ò³£¬ÀýÈçÏìÓ¦Óû§²éѯÊý¾Ý¿âµÄÒªÇó¶øÉú³É±¨±íµÈ¡£Õ¾µã·þÎñÆ÷ÊÕµ½ÒªÇóÖ´ÐеÄÓ¦ÓóÌÐò£¬·ÖÎö±íµ¥£¨form£©µÄÊäÈëÊý¾Ý£¬½«Ö´ÐеĽá¹ûÒÔHTMLµÄ¸ñʽ´«Ë͸øä¯ÀÀÆ÷¡£¸ù¾ÝÓû§ÇëÇóÉú³É¶¯Ì¬Ö÷Ò³µÄ´«Í³·½·¨ÓÐCGI¡¢ISAPIµÈ¡£CGIÊǸù¾Ýä¯ÀÀÆ÷¶ËµÄhttpÇëÇ󼤻îÏìÓ¦½ø³Ì£¬Ã¿Ò»¸öÇëÇó¶ÔÓ¦Ò»¸ö½ø³Ì¡£µ±Í¬Ê±ÓкܶàÇëÇóʱ£¬³ÌÐò¼·Õ¼ÏµÍ³×ÊÔ´£¬Ôì³ÉЧÂʵÍÏ¡£ISAPIÕë¶ÔÕâһȱµã½øÐÐÁ˸Ľø£¬ÀûÓÃdll£¨¶¯Ì¬Á´½Ó¿â¼¼Êõ£©£¬ÒÔÏ̴߳úÌæ½ø³Ì£¬Ìá¸ßÁËÐÔÄܺÍËٶȣ¬µ«Òª¿¼ÂÇÏ̵߳Äͬ²½ÎÊÌ⣬¶øÇÒ¿ª·¢²½Öè·³Ëö¡£ÕâÁ½ÖÖ¼¼ÊõºÍÁíÒ»ÆÕ±éʹÓõĿª·¢¶¯Ì¬ÍøÒ³µÄ¼¼ÊõJava¶¼»¹´æÔÚ×ÅÁíÍâÒ»¸öÎÊÌ⣬ÄǾÍÊÇ¿ª·¢À§ÄÑ£¬³ÌÐòµÄ¿ª·¢ºÍHTMLд×÷ÊÇÁ½¸öÍêÈ«²»Í¬µÄ¹ý³Ì£¬ÐèҪרÃŵijÌÐòÔ±¿ª·¢¡£ASPʹÓõÄActiveX¼¼Êõ»ùÓÚ¿ª·ÅÉè¼Æ»·¾³£¬Óû§¿ÉÒÔ×Ô¼º¶¨ÒåºÍÖÆ×÷×é¼þ¼ÓÈëÆäÖУ¬Ê¹×Ô¼ºµÄ¶¯Ì¬ÍøÒ³¼¸ºõ¾ßÓÐÎÞÏÞµÄÀ©³äÄÜÁ¦£¬ÕâÊÇ´«Í³µÄCGIµÈ³ÌÐòËùÔ¶Ô¶²»¼°µÄµØ·½¡£
AccessÊÇÒ»¸öÊý¾Ý¿â¹ÜÀíϵͳ£¬ËüÖ®ËùÒÔ±»¼¯³Éµ½OfficeÖжø²»ÊÇVisualStudioÖУ¬ÊÇÒòΪËüÓëÆäËüµÄÊý¾Ý¿â¹ÜÀíϵͳ£¨ÈçSQL Server 2000£©Ïà±È¸ü¼Ó¼òµ¥Ò×ѧ£¬Ò»¸öÆÕͨµÄ¼ÆËã»úÓû§¼´¿ÉÕÆÎÕ²¢Ê¹ÓÃËü¡£¶øÇÒ×îÖØÒªµÄÒ»µãÊÇ£¬AccessµÄ¹¦ÄÜ×㹻ǿ´ó£¬×ãÒÔÓ¦¸¶Ò»°ãµÄÊý¾Ý¹ÜÀí¼°´¦ÀíÐèÒª¡£ Access¿ÉÒÔʵÏÖ½¨Á¢Êý¾Ý¿â¡¢±¨±í£¬ÒÔ¼°¶ÔÊý¾Ý¿â¡¢±¨±íµÄÐ޸ġ¢²éѯµÈ¹¦ÄÜ¡£
µÚ¶þÕ ϵͳ·ÖÎö
Ò»¡¢ÍøÕ¾µÄÐèÇó·ÖÎö
£¨Ò»£©¡¢¹¦ÄÜÐèÇó
1¡¢Óû§µÇ½¡¢¹ÜÀíÔ±µÄ¼¶±ðȨÏÞ
¢Ù¡¢³¬¼¶¹ÜÀíÔ±£º
³¬¼¶¹ÜÀíÔ±¿ÉʵÏÖ¶ÔËùÓмǼ½øÐвéѯ¡¢Ìí¼Ó¡¢É¾³ý¡¢Ð޸ġ¢µÈ²Ù×÷£¬ÇÒÄÜÐ޸ij¬¼¶¹ÜÀíÔ±Õ˺ÅÐÅÏ¢¡£
³¬¼¶¹ÜÀíÔ±¿ÉÈÎÃü¹ÜÀíÔ±£¬¿ÉÒÔÌí¼Ó¹ÜÀíÕ˺ÅÇÒÄܶÔËùÓйÜÀíÔ±Õ˺ÅÐÅÏ¢µÈ×ÊÁϽøÐÐÐ޸ġ£
³¬¼¶¹ÜÀíÔ±¿É¶Ô×¢²áÉêÇë¹ÜÀíÔ±ÐÅÏ¢½øÐÐÉóºË£¬ÉóºËͨ¹ýºó±ã¿ÉÈÎÃüΪÕýʽ¹ÜÀíÔ±¡£
³¬¼¶¹ÜÀíÔ±¿ÉÒÔ½ÓÊÕ¶¨µ¥£¬½øÐÐÁôÑÔ°å¹ÜÀí£¬¶©µ¥¹ÜÀí£¬½øÐÐÐÂÎÅ·¢²¼£¬ÐÞ¸ÄÕ˺Å×ÊÁϵȡ£
¢Û¡¢ÆÕͨ¹ÜÀíÔ±½øÈëºǫ́ºó£¬¿ÉÒÔ½øÐжԲúÆ·µÄ¶©µ¥£¬»¹¿ÉÒÔ½øÐÐÐÂÎÅÁ˲¼£¬µ±È»Ò²¿ÉÒÔÐÞ¸Ä×ÔÒѵÄÕ˺š£
¢Ü¡¢×¢²áÓû§µÇ½ºó£¬ÄܶÔ×ÔÒѵÄÕ˺ÅÐÅÏ¢µÈ×ÊÁϽøÐÐÐ޸ġ£
ÆÕͨÓû§¿ÉÒÔÌá½»¶¨µ¥£¬¿ÉÒÔ½øÐÐÁôÑÔ£¬²¢ÇÒʵÏÖ·´À¡µ½ÁôÑÔ°åÉÏ£¬Ê¹µÄ¹ÜÀíÔ±ÄÜÊÕµ½¶¨µ¥£¬Ò²ÄÜÊÕµ½ÁôÑÔ¡£
¢Ý¡¢×¢²áÓû§¡¢ÆÕͨ¹ÜÀíÔ±ºÍ³¬¼¶¹ÜÀíÔ±µÇ½ºó£¬·Ö±ðÏÔÊӵǽÓû§µÄÓû§Ãû£¬ÇÒ¶¼¿ÉÒÔÐÞ¸ÄÕ˺ÅÐÅÏ¢¡£
2¡¢ÐÂÎÅ·¢²¼
³¬¼¶¹ÜÀíÔ±¿ÉʵÏÖÐÂÎŵķ¢²¼£¬¶©µ¥½ÓÊյȹ¦ÄÜ
3¡¢²úÆ·ÔÚÏß·ÖÒ³ÏÔÊÓ
¿ÉÒÔÔÚcp²úÆ·Ò³ÃæÉϽøÐж¯Ì¬²úÆ··¢²¼£¬Á¬½ÓÊý¾Ý¿â£¬½«Êý¾Ý¿âÖеÄÐÅÏ¢ÏÔÊÓµ½²úÆ·Ò³ÃæÏ£¬°üÀ¨Í¼Æ¬ÐÅÏ¢£¬Ò²ÊÇÒª¶¯Ì¬Á¬½ÓÊý¾Ý¿â¡£
£¨¶þ£©¡¢ÐÔÄÜÐèÇó
1¡¢Ó²¼þÐèÇó£ºcpu :intel pentiumII »òµÈЧ´¦ÀíÆ÷¡¢300MHZ»ò¸ü¸ß
Äڴ棺96MB ¿ÉÓÃÄÚ´æ Ó²ÅÌ£º275MBÒÔÉÏ¿ÉÓôÅÅÌ¿Õ¼ä
ÏÔʾÆ÷£º¿É´ï800¡Á600ÏñËصÄ256É«ÏÔʾÆ÷»ò¸ü¸ß
2¡¢Èí¼þÐèÇ󣺲Ù×÷ϵͳwindouw 98/2000/NT(»ò¸ü¸ß°æ±¾)
ä¯ÀÀÆ÷£ºnetscape navigator4.0»òmicrosoft internet explover4.0»ò¸ü¸ß±¾¡£
µÚÈýÕ ҩµêÐÅÏ¢¹ÜÀíµÄÉè¼Æ
1.Íøվǰ̨¼Ü¹¹
½éÉÜÕû¸öÍøվǰ̨µÄ»ù±¾¼Ü¹¹£¬ÏêϸÐÅÏ¢Èç±í1¡£
º¼ÖÝÏôɽ»Û·É´°Á±Íø
±í1 Íøվǰ̨¼Ü¹¹
2.ÍøÕ¾ºǫ́¼Ü¹¹
±í2 ÍøÕ¾ºǫ́¼Ü¹¹
3£¬Êý¾Ý¿âÉè¼Æ
Êý¾Ý¿âÃû£ºuserinfo.mdb
ͼһ£¨Êý¾Ý¿âÖеÄËùÓÐ±í£©
ͼ¶þ£¨Êý¾Ý¿âÖеIJúÆ·±í£©
ͼÈý£¨Êý¾Ý¿âÖеIJúÆ·¶©¹º±í£©
ͼËÄ£¨Êý¾Ý¿âÖеÄÁôÑÔ±í£©
ͼÎ壨Êý¾Ý¿âÖеÄÓû§Õ˺ÅÐÅÏ¢±í£©
ͼÁù£¨Êý¾Ý¿âÖеĹÜÀíÔ±ÕËºÅ±í£©
ͼ7£¨Êý¾Ý¿âÖеÄÐÂÎÅ±í£©
µÚËÄÕ ҩµêÐÅÏ¢¹ÜÀíϵͳµÄʵÏÖ
4.1ǰ̨ģ¿é
ͼһ£¨ÍøÕ¾Ê×Ò³ÃÀ¹¤Éè¼Æ£©
ͼ¶þ£¨ÐÂÎŶ¯Ì¬·¢²¼£©
ͼÈý£¨²úÆ·¶¯Ì¬·¢²¼£©
4£®2£®ºǫ́ģ¿é
£®ºǫ́¹ÜÀíÊ×Ò³¼ò½é
½øÈëºǫ́¹ÜÀí£¬½øÐйÜÀíÔ±µÇ¼£¨index1.asp£©£¬½øÈë¹ÜÀíÊ×Ò³£¨glzx.asp£©¡£
Õû¸öºǫ́·ÖΪËĸöÄ£¿é£º
£¨1£©ÐÂÎŹÜÀí
°üÀ¨¶ÔÐÂÎŵÄÌí¼Ó¡¢ÐÞ¸ÄÓëɾ³ý¡£
£¨2£©²úÆ·¹ÜÀí
°üÀ¨¶Ô²úÆ·µÄÌí¼ÓÓëÐ޸ġ£
£¨3£©¶©µ¥¹ÜÀí
°üÀ¨¶Ô¶©µ¥µÄÈ·ÈÏÓëɾ³ý¡£
£¨4£©ÁôÑÔ¹ÜÀí
°üÀ¨É¾³ýÁôÑÔÄÚÈÝ¡£
¹ÜÀíÔ±µÇ¼½çÃæ
ͼ11¹ÜÀíÔ±µÇ½£¨admin.asp£©
¶ÔÊäÈëµÄÓû§ÃûºÍÃÜÂë½øÐÐÅжϴúÂëÒ³Ãæ login.asp£º
%Response.Buffer=True%
%
'²é¿´ÓÐÎÞ¸ÃÓû§
dim db,strsql,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
strSql="Select user_name,password,user_type From users"
strSql=strSql & " Where user_name='" & Request.Form("user_name") & "' And password='" & Request.Form("password") & "'"
Set rs=db.Execute(strSql)
If not rs.eof and not rs.bof Then
'Èç¹ûÓмǼ£¬±íʾÓиÃÓû§£¬Ôò½«Óû§ÃûºÍÓû§ÀàÐͱ£´æµ½SessionÖÐ
Session("user_name")=rs("user_name")
session("user_type")=rs("user_type")
Session("password")=rs("password")
'Èç¹ûÊÇÆÕͨÓû§£¬Öض¨Ïòµ½Ê×Ò³£»Èç¹ûÊǹÜÀíÔ±£¬Öض¨Ïòµ½¹ÜÀíÔ±Ò³Ãæ
If Session("user_type")="A" Then
Response.Redirect "houtai.asp"
ELse
Response.Redirect "houtai2.asp"
End If
Else
'Èç¹ûûÓмǼ£¬±íʾûÓиÃÓû§£¬Çë¸ø³öÌáʾÐÅÏ¢
Response.Write "¶Ô²»Æð£¬Óû§Ãû»òÃÜÂëÓÐÎó£¬Çëa href='admin.asp'·µ»Ø/aÖØеǼ"
End If
%
ºǫ́½çÃæ
ͼ12³¬¼¶¹ÜÀíÔ±ºǫ́½çÃ棨houtai.asp£©
ͼ13ÆÕͨ¹ÜÀíÔ±ºǫ́½çÃ棨houtai.asp£©
ͼ13ÆÕͨÓû§¹ÜÀíÔ±ºǫ́½çÃ棨user.asp£©
ͼËÄ£¨ÁôÑ԰涯̬·¢²¼£©
ͼÎ壨ÁªÏµÎÒÃÇ£©
ͼÁù£¨¹ÜÀíÔ±µÇ½£©
µÚÎåÕ¡¢Éè¼Æ×ܽáÆÀ¼Û
1.Éè¼Æ×ܽá
Õû¸öϵͳÒÑ»ù±¾Íê³É£¬µ«ÊÇÓÉÓÚʱ¼ä²»¹»³ä·Ö£¬»¹ÓÐÐí¶à·½Ãæ²»¹»ÍêÉÆ£¬ÈçÓÐЩ¹¦Äܲ»ÄÜÔËÐУ¬¹¦Äܲ»ÆëÈ«µÈµÈ¡£
1£©¹«Ë¾¼ò½éÃæÒ³ÖÐÄÚÈÝÏÔµÃÓÐЩµ¥²¾£¬ÔÚºóÆÚ¹¤×÷Öл¹»áÓÐËù²¹³ä¡£
2£©Í¼Æ¬´¦ÀíµÃ²»¹»ÃÀ¹Û£¬¶øÇÒͼƬÉÙ£¬ÔÚÒÔºó»áÌí¼Ó¡£
3£©Õû¸ö°æÃæ²»ÊǺÜÕûÆ룬ÒÔºó¸Ä½ø¡£
2.ÐĵÃÌå»á
±ÏÒµÉè¼ÆÖÕÓÚ¿ÉÒÔ¸æÒ»¶ÎÂäÁË£¬Íê³ÉÆڼ䣬ͶÈëÁËÐí¶à¾«Á¦£¬±ßѧ±ß×ö£¬»ýÀÛ¾Ñ飬ѧ»áÁ˽϶àÖÆ×÷ÍøÕ¾µÄ֪ʶ¡£µ±È»Ò²ÈÃÎÒ½øÒ»²½Á˽âÁ˺ǫ́ÖÆ×÷£¬Ëü±ØÐèÓëÊý¾Ý¿âÏàÁ¬¡£ÔÚÒÔºóµÄ½×¶ÎÀïÎÒ»áÔÚ¸÷¸ö·½Ãæ½øÒ»²½µÄÍêÉÆ£¬Ê¹ÍøÕ¾¸ü¼ÓµÄÃÀ¹Û¡£
µÚÁùÕ¡¢²Î¿¼ÎÄÏ×
1.¡¶ASPÐÅÏ¢»¯ÏµÍ³½¨Éè°¸Àý¡· ÈËÃñÓʵç³ö°æÉç ³Â浡¢öú£ÌαàÖø
2.¡¶Dreamweaver8+ASP¶¯Ì¬ÍøÕ¾¿ª·¢¡· µç×Ó¹¤Òµ³ö°æÉç ÔØÒ»²¨±àÖø
3.¡¶Íøվȫ³ÌÉè¼Æ¼¼Êõ¡· Ç廪´óѧ³ö°æÉç ½ªí|¡¢ÎâÌαàÖø
4.¡¶ÍøÕ¾Éè¼ÆÓ뿪·¢¡· »úе¹¤Òµ³ö°æÉç ÑîÏþÖÓ±àÖø
Ö л
ÔÚÕâÀïÎҷdz£¸ÐлÎÒµÄÖ¸µ¼ÀÏʦÁõÀû¶«£¬ÔÚ¾¹ýËûµÄ½ÌÓýÏ£¬Ê¹ÎÒÔÚ´ËÍê³ÉÎҵıÏÒµÉè¼Æ£¬ÔÚ´ËÌØÏòÁõÀÏʦÖÂл£¡Ð»Ð»ÁõÀû¶«ÀÏʦ×Î×β»¾ëµÄ½Ìµ¼£¬ÒÔ¼°¶ÔÎÒÃǵÄÖØÊÓ£¬ÈÃÎÒÄÜ˳ÀûµØÍê³ÉÕâ¸ö¿Î³ÌÉè¼Æ¡£¾¹ýÒ»ÄêÏà´¦£¬³ýÁ˸Ðл»¹ÊǸÐл¡£´ÓDreamweaverµ½ASP£¬ÈÃÄãΪÁ˷Ѳ»ÁËÉÙµÄÐÄ˼£¬Ò²·ÑÁËÄã²»ÉÙµÄʱ¼ä¡£Ð»Ð»ÄãÅãÎÒÃÇ×ß¹ýÁËÒ»ÄêÃÀºÃµÄ´óѧʱ¹â£¬´óѧʱ¹âÊÇÃÀÀöµÄ£¬ÒòΪÓÐÄãµÄ´æÔÚ¡£ÆÚ´ýÔÙ¼û£¡
ÎÒÖªµÀÔÚÕâ´ÎµÄ¿Î³ÌÉè¼ÆÖÐ×ÔÒÑÓÐÐí¶àµÄǷȱ£¬ÔÚÒÔºóµÄÈÕ×ÓÖУ¬ÎÒÒ»¶¨µÃ¸ü¼ÓÑϸñÒªÇó×Ô¼º£¬¸ÄÕýȱµã£¬²»¶ÏŬÁ¦£¬²»¶Ï½ø²½¡£
¸½ ¼
ØÁСÀÚ
2007-05-11
Sign.aspÒ³ÃæÔ´Â룺
%option explicit%
%
If request.form("user_name")""and request.form("password")""then
dim db,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("data/zhangrong.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,user_name ,Password ,realname ,mobi,email,name
name=request.form("user_name")
'¼ì²éÐÂÓû§ÃûÓëÊý¾Ý¿âÊÇ·ñÖظ´,¹þ¹þ£¬ÖÕÓÚµ÷ͨÁË
strSql="select * from user Where user_name='" & Request.Form("user_name") & "'"
Set rs=db.Execute(strSql)
If not rs.eof then
Response.Write "¶Ô²»Æð£¬Óû§ÃûÒѱ»×¢²á£¬Çëa href='sign.htm'ÖØÐÂ×¢²á/a"
rs.close
else
user_name=request.form("user_name")
Password=request.form("Password")
realname=request.form("realname")
mobi=request.form("mobi")
email=request.form("email")
strsql="insert into user(user_name ,Password ,realname ,mobi,email)values('"&user_name&"','"&Password&"','"&realname&"','"&mobi&"','"&email&"')"
db.execute(strsql)
response.redirect "cg.htm"
end if
else
response.write"Ç뽫ËùÓÐÐÅÏ¢ÌîдÍêÕû"
response.write"A HREF='sign.htm'ÖØÐÂ×¢²á/a"
end if
%
Update.aspÒ³ÃæÔ´Â룺
%
if request.form("password")""then
dim db
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,Password ,id
Password=request.form("Password")
StrSql="Update user Set Password='" & Password & "'Where user_name='"&session("user_name")&"'"
db.execute(strsql)
response.redirect "login1.htm"
else
response.write"Ç뽫ËùÓÐÐÅÏ¢ÌîдÍêÕû"
response.write"A HREF='user.asp'ÇëÖØÐÂÐÞ¸Ä/a"
end if
%
Sign1Ò³ÃæÔ´Â룺
%option explicit%
%
If request.form("user_name")""and request.form("password")""then
dim db,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,user_name ,Password,name
name=request.form("user_name")
strSql="select * from user Where user_name='" & Request.Form("user_name") & "'"
Set rs=db.Execute(strSql)
If not rs.eof then
Response.Write "¶Ô²»Æð£¬Óû§ÃûÒѱ»×¢²á£¬Çëa href='sign1.htm'ÖØÐÂ×¢²á/a"
rs.close
else
user_name=request.form("user_name")
Password=request.form("Password")
strsql="insert into user(user_name ,Password)values('"&user_name&"','"&Password&"')"
db.execute(strsql)
response.redirect "cg.htm"
end if
else
response.write"Ç뽫ËùÓÐÐÅÏ¢ÌîдÍêÕû"
response.write"A HREF='sign1.htm'ÖØÐÂ×¢²á/a"
end if
%
Sign.aspÒ³ÃæÔ´Â룺
%option explicit%
%
If request.form("user_name")""and request.form("password")""then
dim db,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,user_name ,Password,name
name=request.form("user_name")
strSql="select * from users Where user_name='" & Request.Form("user_name") & "'"
Set rs=db.Execute(strSql)
If not rs.eof then
Response.Write "¶Ô²»Æð£¬Óû§ÃûÒѱ»×¢²á£¬Çëa href='sign.htm'ÖØÐÂ×¢²á/a"
rs.close
else
user_name=request.form("user_name")
Password=request.form("Password")
strsql="insert into users(user_name ,Password)values('"&user_name&"','"&Password&"')"
db.execute(strsql)
response.redirect "admin.asp"
end if
else
response.write"Ç뽫ËùÓÐÐÅÏ¢ÌîдÍêÕû"
response.write"A HREF='sign.htm'ÖØÐÂ×¢²á/a"
end if
%
Login.aspÒ³ÃæÔ´Â룺
%Response.Buffer=True%
%
'²é¿´ÓÐÎÞ¸ÃÓû§
dim db,strsql,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
strSql="Select user_name,password,user_type From users"
strSql=strSql & " Where user_name='" & Request.Form("user_name") & "' And password='" & Request.Form("password") & "'"
Set rs=db.Execute(strSql)
If not rs.eof and not rs.bof Then
'Èç¹ûÓмǼ£¬±íʾÓиÃÓû§£¬Ôò½«Óû§ÃûºÍÓû§ÀàÐͱ£´æµ½SessionÖÐ
Session("user_name")=rs("user_name")
session("user_type")=rs("user_type")
Session("password")=rs("password")
'Èç¹ûÊÇÆÕͨÓû§£¬Öض¨Ïòµ½Ê×Ò³£»Èç¹ûÊǹÜÀíÔ±£¬Öض¨Ïòµ½¹ÜÀíÔ±Ò³Ãæ
If Session("user_type")="A" Then
Response.Redirect "houtai.asp"
ELse
Response.Redirect "houtai2.asp"
End If
Else
'Èç¹ûûÓмǼ£¬±íʾûÓиÃÓû§£¬Çë¸ø³öÌáʾÐÅÏ¢
Response.Write "¶Ô²»Æð£¬Óû§Ãû»òÃÜÂëÓÐÎó£¬Çëa href='admin.asp'·µ»Ø/aÖØеǼ"
End If
%
Login1.aspÒ³ÃæÔ´Â룺
%Response.Buffer=True%
%
'²é¿´ÓÐÎÞ¸ÃÓû§
dim db,strsql,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
strSql="Select user_name,password From user"
strSql=strSql & " Where user_name='" & Request.Form("user_name") & "' And password='" & Request.Form("password") & "'"
Set rs=db.Execute(strSql)
If not rs.eof and not rs.bof Then
'Èç¹ûÓмǼ£¬±íʾÓиÃÓû§£¬Ôò½«Óû§ÃûºÍÓû§ÀàÐͱ£´æµ½SessionÖÐ
Session("user_name")=rs("user_name")
Session("password")=rs("password")
'Èç¹ûÊÇÆÕͨÓû§£¬Öض¨Ïòµ½Ê×Ò³£»Èç¹ûÊǹÜÀíÔ±£¬Öض¨Ïòµ½¹ÜÀíÔ±Ò³Ãæ
If Session("user_name")="A" Then
Response.Redirect "user.asp"
ELse
Response.Redirect "user.asp"
End If
Else
'Èç¹ûûÓмǼ£¬±íʾûÓиÃÓû§£¬Çë¸ø³öÌáʾÐÅÏ¢
Response.Write "¶Ô²»Æð£¬Óû§Ãû»òÃÜÂëÓÐÎó£¬Çëa href='index.asp'·µ»ØÊ×Ò³/aÖØеǼ"
End If
%
³¬¼¶¹ÜÀíÔ±ºǫ́½çÃ棨houtai.asp£©
" CODEPAGE="936"%
!--#include file="Connections/coon.asp" --
%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%
%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "3") Then
MM_editConnection = MM_coon_STRING
MM_editTable = "xinwen"
MM_editRedirectUrl = "yjxw.asp"
MM_fieldsStr = "1|value|2|value"
MM_columnsStr = "biaoti|',none,''|meirong|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl "" And Request.QueryString "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%
%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%
%
Dim rs1
Dim rs1_numRows
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_coon_STRING
rs1.Source = "SELECT * FROM dinggou ORDER BY id DESC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%
%
Dim rs2__MMColParam
rs2__MMColParam = "1"
If (Request.QueryString("id") "") Then
rs2__MMColParam = Request.QueryString("id")
End If
%
%
Dim rs2
Dim rs2_numRows
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_coon_STRING
rs2.Source = "SELECT * FROM ly WHERE id = " + Replace(rs2__MMColParam, "'", "''") + " ORDER BY id DESC"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
rs2_numRows = 0
%
%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rs1_total
Dim rs1_first
Dim rs1_last
' set the record count
rs1_total = rs1.RecordCount
' set the number of rows displayed on this page
If (rs1_numRows 0) Then
rs1_numRows = rs1_total
Elseif (rs1_numRows = 0) Then
rs1_numRows = 1
End If
' set the first and last displayed record
rs1_first = 1
rs1_last = rs1_first + rs1_numRows - 1
' if we have the correct record count, check the other stats
If (rs1_total -1) Then
If (rs1_first rs1_total) Then
rs1_first = rs1_total
End If
If (rs1_last rs1_total) Then
rs1_last = rs1_total
End If
If (rs1_numRows rs1_total) Then
rs1_numR