ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[±Ð¾Ç] (¹ê¾Ô±MÃD) ½u¤W°Q½×°Ï ¤U½g

[±Ð¾Ç] (¹ê¾Ô±MÃD) ½u¤W°Q½×°Ï ¤U½g

·s°Q½×¥DÃD³B²zµ{¦¡

¤§«e½Í¨ì¡G¦pªG·Q­nµoªí·sªº°Q½×¶µ¥Ø¡A´N¥iª½±µ¦bµ{¦¡ºô­¶(Index.asp)¤U¤èªºµo¨¥ªí³æ¤¤¿é¤J¸ê®Æ¨Ó«Ø¥ß·sªº°Q½×¥DÃD¡A¦ý¬O¡AIndex.aspºô­¶µ{¦¡¨Ã¤£­t³d³B²z·s°Q½×¥DÃD«Ø¥ß»P¼g¤J¸ê®Æ®w¤¤ªº¥ô°È¡A¦Ó¬O±N¬ÛÃöªº¸ê®Æ©ó¶ñ¼g§¹«ö¤U¡y°e¥X°Q½×¥DÃD¡z«ö¶s«á¥æ¥Ñaddnew.aspµ{¦¡¨Ó³B²z¡G

12-20.png

ª`·N¡G

  • ­n¦b¸ê®Æªí¤¤·s¼W¤@µ§¸ê®Æ¡A½Ð¨Ï¥Î¸ê®Æ¿ýªºAddNew¤èªk·s¼W¸ê®Æ¿ý¡C
  • §Q¥Îrs("Äæ¦ì¦WºÙ")=Äæ¦ì­È¡A±NÄæ¦ì¸ê®Æ¼g¤J¬Û¹ïÀ³ªºÄæ¦ì¡A³o¼Ëªº°Ê§@¨Ã¨S¦³¯u¥¿ªº±N¸ê®Æ¼g¤J¸ê®Æ®w¤¤¡A¥u¬O±N¸ê®Æ¼g¤J¦Ü½w½Ä°Ï¡A§Ú­Ì¥²¶·¦A©I¥sUpdate¤èªk¡A¤~¯à±N¸ê®Æ¯u¥¿ªº¼g¤J¸ê®Æ®w¤¤¡A¤Á°O¡C
  • §¹¦¨·s¼W¸ê®Æ¿ý¨Ã§Q¥ÎUpdate¤èªk±N¸ê®Æ¼g¤J¸ê®Æ®w«á¡A°O±o±Nºô­¶³sµ²Âà¦V¦^Index.aspµ{¦¡ºô­¶¡A§_«hÂsÄýªÌ©Ò¨£¨ìªº±N¥u¬O¤@­ÓªÅ¥Õºô­¶¡C


Addnew.asp
  1. <%
  2. '«Ø¥ß¸ê®Æ®w³sµ²ª«¥ó
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("bbs.mdb")
  5. '³sµ²¸ê®Æ®w       
  6.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  7. '«Ø¥ß¸ê®Æ®w¦s¨úª«¥ó       
  8.         Set RS=Server.CreateObject("ADODB.Recordset")
  9. '¥´¶}¸ê®Æªí       
  10.         RS.Open "¥D¼ÐÃD",conobject,1,3
  11. 'Àx¦s¸ê®Æ        
  12.    rs.AddNew
  13.    rs("©m¦W") = Request("©m¦W")
  14.    rs("Email") = Request("Email")
  15.    rs("¥DÃD") = Request("¥DÃD")
  16.    rs("¤º®e") = Request("¤º®e")
  17.    rs("½g¼Æ") = 0
  18.    rs.Update
  19. Response.Redirect "index.asp"
  20. %>
½Æ»s¥N½X
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

³æ¤@°Q½×¥DÃDµ{¦¡ºô­¶

·í§Ú­Ì¦b°Q½×¶µ¥Ø¦Cªíµ{¦¡ºô­¶index.asp¤¤¡AÂI¿ï¤F¬Y¤@­Ó¤w¦s¦bªº°Q½×¶µ¥Ø¡y¥DÃD¡z¶W³sµ²¡A´N·|³sµ²¶i¤J¸Ó°Q½×¥DÃDªº¹ïÀ³°Q½×ºô­¶join.asp¡A¦¹µ{¦¡ºô­¶¦P¼Ë¤À¬°¨â­Ó³¡¤À¡A¤@­Ó¬O¥Ø«e¥þ³¡ªº°Q½×¤å³¹¦Cªí(¤U¹ÏA³¡¤À)¡A¥t¤@¬O°Ñ»P¥Ø«e¥DÃD°Q½×ªºµo¨¥ªí³æ(¤U¹ÏB³¡¤À)¡G



¯S§Oª`·N¡G
§Ú­Ì³sµ²¶i¤J°Q½×ºô­¶join.aspªººô§}¡A¦b¨äºô§}§ÀºÝ§t¦³¤@­Ó¡yID=X¡zªº°Ñ¼Æ¡A³o­Ó°Ñ¼Æ­ÈX´N¬O°Q½×¥DÃDªº½s¸¹¡A¤]´N¬O¸ê®Æªí¤¤¡y¥D½s¸¹¡zÄæ¦ìªº¸ê®Æ­È¡C

¦b¥Ø«e¥DÃD¥þ³¡ªº°Q½×¤å³¹¦Cªíªº³¡¤À¡A§Ú­Ì¥²¶·¤À§OŪ¨ú¸ê®Æ®w¤¤ªº¡y¥D¼ÐÃD¡z¸ê®Æªí¨ÓŪ¨ú¡y°Q½×¥DÃD¡zªºµo¨¥(¤U¹ÏA³¡¤À)¡A¤Î¸ê®Æ®w¤¤ªº¡y¦¸¼ÐÃD¡z¸ê®Æªí¨ÓŪ¨ú¡y°Ñ¤©°Q½×¡zªºµo¨¥¸ê®Æ(¤U¹ÏB³¡¤À)¡G

12-22.png

¡@¦]¬°¸ê®ÆŪ¨úªº¤è¦¡»P°Q½×¶µ¥Ø¦Cªíµ{¦¡ºô­¶¬Û¦P¡A©Ò¥H¤p»xÂØ­z¡A¤£¹L´£¿ô§A¤£¥²­«·s«Ø¥ß¸ê®Æ®wªºConnectionª«¥ó³á¡I¥u­n¦b¡y¥D¼ÐÃD¡z¸ê®Æªí¤¤ªº¸ê®ÆŪ¨ú§¹²¦«á±N¸ê®Æ¿ýª«¥óClose°_¨Ó¡AµM«á¦A­«·s¨Ï¥ÎOpen¤èªk¥´¶}¡y¦¸¼ÐÃD¡z¸ê®Æªí¨ÓŪ¨ú¸ê®Æ§Y¥i¡I

°Ñ»P¥Ø«e¥DÃD°Q½×ªºµo¨¥ªí³æ»P¤@¯ëªºªí³æ»s§@¬Û¦P¡A·í«ö¤U¡y°e¥X°Q½×¤º®e¡z«ö¶s«á¡Aªí³æ¸ê®Æ±N°e¥æjoinnew.aspµ{¦¡³B²z¡A¦ý¬O§Ú­Ì¦bªí³æ¤¤ÁÙ¥t¥~¼W¥[¤F¤@­Ó¶Ç°e¥Ø«e°Q½×¥DÃDªº¡y¥D½s¸¹¡zÁôÂÃÄæ¦ì¡A¬°¦ó­n¦³³o­ÓÁôÂÃÄæ¦ì¡H¤p»x«áÄò³æ¤¸»¡©ú¡C

12-23.png

join.asp
  1. <%
  2. '«Ø¥ß¸ê®Æ®w³sµ²ª«¥ó
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("bbs.mdb")
  5. '³sµ²¸ê®Æ®w       
  6.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  7. '«Ø¥ß¸ê®Æ®w¦s¨úª«¥ó       
  8.         Set RS=Server.CreateObject("ADODB.Recordset")
  9. '¥´¶}¸ê®Æªí       
  10. SQL = "Select * From ¥D¼ÐÃD Where ¥D½s¸¹=" & request("ID")
  11.         RS.Open SQL,conobject,1,3
  12. 'Àx¦s¸ê®Æ        
  13. %>
  14. <HTML>
  15. <BODY>
  16. <h2 Align="Center"><img border="0" src="bbs.gif"></h2>
  17. <!-- ¥H¤U¬°¡u°Q½×¥DÃD¡v³¡¤À -->                 
  18. <TABLE Width="100%"><TR><TD Align=Center bgColor=#000080>                 
  19. <B><font color="#FFFFFF" size="2">
  20. °Ý ÃD °Q ½×&nbsp;</font></B></TD></TR></TABLE>                        
  21. <%                                
  22.    Email = "<A HREF=mailto:" & rs("Email") & ">" & rs("Email") & "</A>"                        
  23. %>                                          
  24. <CENTER><TABLE width="100%">                        
  25. <TR><TD width="10%" bgcolor="#00CCFF"><font color="#000080"><B>
  26. <font size="2">§@ªÌ:</font></B><font size="2">
  27. <%=rs("©m¦W")%></font></font></TD>
  28. <TD width="10%" bgcolor="#00CCFF"><B><font size="2" color="#000080">
  29. Email:</font></B><font size="2" color="#000080"><%=Email%></font>        
  30.     </TD><TD width="55%" bgcolor="#00CCFF"><B><font size="2">
  31. <font color="#000080">¥DÃD:</font></font></B><font size="2">
  32. <%=rs("¥DÃD")%></font> </TD>        
  33. <TD width="20%" bgcolor="#00CCFF"><B><font color="#000080">
  34. <font size="2">¤é´Á:</font></font></B>
  35. <font size="2" color="#000080"><%=rs("µo¨¥¤é´Á")%></font>         
  36. </TD></TR>        
  37. <TR><TD BgColor=Cyan colspan="4"><font size="2"><%=rs("¤º®e")%></font></TD></TR>        
  38. </Table></CENTER>        
  39. <HR>        
  40. <!-- ¥H¤U¬°¡u°Ñ¤©°Q½×¤å³¹¡v³¡¤À -->        
  41. <%         
  42. RS.close        
  43. SQL = "Select * From ¦¸¼ÐÃD Where ¥D½s¸¹=" & request("ID")        
  44. SQL = SQL & " Order By ¦¸½s¸¹ Desc"        
  45. RS.Open SQL,conobject,1,3        
  46.    While Not rs.EOF        
  47.       Email = "<A HREF=mailto:" & rs("Email") & ">" & rs("Email") & "</A>"        
  48. %>        
  49.       <CENTER><TABLE width="100%">        
  50.        <TR><TD width="10%" bgcolor="#00CC00"><B>
  51. <font size="2" color="#000000">§@ªÌ:</font></B>
  52. <font size="2" color="#000000"><%=rs("©m¦W")%></font></TD>        
  53.       <TD width="10%" bgcolor="#00CC00"><font color="#000000">
  54. <B><font size="2">Email:</font></B>
  55. <font size="2"><%=Email%></font></font></TD>        
  56.       <TD width="55%" bgcolor="#00CC00"><B><font size="2">
  57. <font color="#000000">¥DÃD:</font></font></B><font size="2">
  58. <%=rs("¥DÃD")%></font></TD>        
  59.       <TD width="20%" bgcolor="#00CC00"><B><font size="2">
  60. <font color="#000000">¤é´Á:</font></font></B><font size="2">
  61. <%=rs("µoªí®É¶¡")%></font></TD></TR>        
  62.       <TR><TD BgColor=#99FF33 colspan="4"><font size="2">
  63. <%=rs("¤º®e")%></font></TD></TR>        
  64.       </Table></CENTER><hr size="1" color="#008000">        
  65. <%        
  66.       rs.MoveNext        
  67.    Wend        
  68. %>        
  69. <!-- ¥H¤U¬°¡u°Ñ»P°Q½×¡v¿é¤Jªí³æ -->        
  70. <TABLE Width="100%"><TR><TD Align=Center bgColor=#000080>        
  71. <B><font color="#FFFFFF" size="2">
  72. °Ñ »P ¥» °Ý ÃD °Q ½×</font></B></TD></TR></TABLE>                                          
  73. <FORM action=joinnew.asp method=POST>                          
  74. <Input Type=Hidden Name=ID Value=<%=Request("ID")%>>                          
  75. <CENTER><TABLE Border="1" bordercolor="#FF9933" cellspacing="0" bgcolor="#FFCC66">                          
  76. <TR><TD><font size="2">©m¦W¡G</font></TD>                        
  77. <TD><font size="2"><INPUT Type=Text Size="30" name="©m¦W"></font></TD></TR>                              
  78. <TR><TD><font size="2">Email¡G</font></TD>                        
  79. <TD><font size="2"><INPUT Type=Text Size="30" name="Email">
  80. </font></TD></TR>           
  81. <TR><TD><font size="2">¥DÃD¡G</font></TD>                        
  82. <TD><font size="2"><INPUT Type=Text Size="60" name="¥DÃD">
  83. </font></TD></TR>               
  84. <TR><TD><font size="2">¤º®e¡G</font></TD>                        
  85. <TD><font size="2"><TEXTAREA name="¤º®e" rows="8" cols="60">
  86. </TEXTAREA></font></TD></TR>                        
  87. </TABLE>                        
  88. <INPUT Type="submit" value=" °e¥X°Q½×¤º®e "></CENTER>                        
  89. </Form>                        
  90. <HR>         
  91. <p align="right"><A HREF="index.asp">¦^°Q½×°Ï</A>                       
  92. </BODY>                       
  93. </HTML>
½Æ»s¥N½X
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

°Ñ¤©°Q½×¤å³¹³B²zµ{¦¡

·íÂsÄýªÌ¦b¶i¤J¬Y¤@°Q½×¥DÃD¨Ãµoªí°Ñ»P°Q½×ªº·N¨£«á(join.asp)¡A¨ä©Òµoªíªº¸ê®Æ´N·|°e¥æ°Ñ¤©°Q½×¤å³¹³B²zµ{¦¡joinnew.asp³B²z¡A¦¹µ{¦¡²Ä¤@¥ó­n°µªº¨Æ¬O±N°Q½×¤å³¹ªº¤º®e¼g¤J¨ì¡y¦¸¼ÐÃD¡z¸ê®Æªí¤¤¡G

12-24.png

½Ð¹ï·Ó¤W¹Ï³¡¤Àªºµ{¦¡½X¡G

  • rs("¥D½s¸¹")¡×ID¡GID´N¬O§Ú­Ì¦b°Ñ»P¥Ø«e¥DÃD°Q½×ªºµo¨¥ªí³æ©Ò¶Ç°e¥Ø«e°Q½×¥DÃDªº¡y¥D½s¸¹¡zÁôÂÃÄæ¦ì­È¡A¨ä¥Øªº¬O¥Î¨Ó§@¬°¥D¼ÐÃD»P¦¸¼ÐÃDªº¡y¥D±q¯Á¤Þ¡z¡C

  • ¦b±N°Q½×¤º®e§Q¥ÎUpdate¤èªk¼g¤J¸ê®Æ®w«á¡A§Ú­Ì§Q¥ÎClose¤èªk¼È®É±N¸ê®Æ¿ýÃö³¬°_¨Ó¡A¬°¦ó­n³o¼Ë¡H§O§Ñ¤F¡I¦b¥D¼ÐÃD¸ê®Æªí¤¤§Ú­ÌÁÙ¥²¶·§ó·s¡y½g¼Æ¡zÄæ¦ìªº¸ê®Æ­È(°Ñ¤©°Q½×ªº¤å³¹­p¼Æ)¡A©Ò¥HÁÙ·|¦A§Q¥ÎOpen¤èªk¨Ó¥´¶}¥D¼ÐÃD¸ê®Æªí¡C

    12-25.png



§Ú­Ì¥´¶}¥D¼ÐÃD¸ê®Æªí­n§ó·s¡y½g¼Æ¡zÄæ¦ìªº¸ê®Æ­È¡A·íµM­n¥ý§ä¥X¯S©w¥DÃDªº¸ê®Æ¿ý¹Æ¡I¦]¦¹§Ú­Ì­n¦b¶}±Ò¸ê®Æªíªº¦P®É¡A¥[¤W¡y"Where ¥D½s¸¹¡×" & ID¡z¤~¦æ(ID´N¬Oµo¨¥ªí³æ¤¤ªºÁôÂÃÄæ¦ì­È)¡A¦pªG§Ú­Ì¨S¦³¥[¤W³o­Ó±ø¥ó¦¡¡A«h¥D¼ÐÃD¸ê®Æªí¤¤©Ò¦³¸ê®Æ¿ýªº¡y½g¼Æ¡zÄæ¦ì³£·|³Q§ó·s¸ê®Æ³á¡I

12-26.png

Juinnew.asp
  1. <%
  2. ID=Request("ID")

  3. '«Ø¥ß¸ê®Æ®w³sµ²ª«¥ó
  4.         Set conobject = Server.CreateObject("ADODB.Connection")
  5.         DBPath = Server.MapPath("bbs.mdb")
  6. '³sµ²¸ê®Æ®w       
  7.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  8. '«Ø¥ß¸ê®Æ®w¦s¨úª«¥ó       
  9.         Set RS=Server.CreateObject("ADODB.Recordset")
  10. '¥´¶}¸ê®Æªí       
  11. SQL = "Select * From ¦¸¼ÐÃD"
  12.         RS.Open SQL,conobject,1,3
  13. 'Àx¦s¸ê®Æ        
  14.    rs.AddNew
  15.    rs("©m¦W") = Request("©m¦W")
  16.    rs("Email") = Request("Email")
  17.    rs("¥DÃD") = Request("¥DÃD")
  18.    rs("¤º®e") = Request("¤º®e")
  19.    rs("¥D½s¸¹") = ID
  20.    rs.Update
  21.    rs.close

  22. SQL = "Select * From ¥D¼ÐÃD Where ¥D½s¸¹=" & ID
  23.           RS.Open SQL,conobject,1,3
  24.           rs("½g¼Æ")=rs("½g¼Æ")+1
  25.           RS.update
  26. Response.Redirect "join.asp?ID=" & ID
  27. %>
½Æ»s¥N½X
(¹ê¾Ô±MÃD) ½u¤W°Q½×°Ï §¹¾ã½d¨ÒÀ£ÁYÀÉ: bbs.zip (27.18 KB)
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD