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

[±Ð¾Ç] (¹ê¾Ô±MÃD) ¦Û°Ê¤Æ²¼¿ïµ{¦¡ ²¼¿ïºÞ²z¤¶­±½g

[±Ð¾Ç] (¹ê¾Ô±MÃD) ¦Û°Ê¤Æ²¼¿ïµ{¦¡ ²¼¿ïºÞ²z¤¶­±½g

¤°»ò¥s°µ¡y¦Û°Ê¤Æ²¼¿ïµ{¦¡¡z¡H²³æªº»¡¡G´N¬O·í§Ú­Ì§¹¦¨²¼¿ïµ{¦¡ªº³]­p»P¼¶¼g«á¦Ó¶i¦æ²¼¿ï¬¡°Ê¡A¦b¦¹²¼¿ï¬¡°Êµ²§ô«á­Y­n±µµÛ¶i¦æ¥t¤@¶µ²¼¿ï¬¡°Ê®É¡A¤£¥²¦A¶}±Ò¸ê®Æ®w§ó§ï²¼¿ï¶µ¥Ø¤Î¤º®e¸ê®Æ¡A¬Æ¦Ü³s¤@­Óµ{¦¡

ºô­¶³£¤£»ÝÅܰʪº±¡ªp¤U¦Óª½±µ¥Ñºô­¶¦¡ªººÞ²z¤¶­±¶i¦æ¦U¶µ²¼¿ï¸ê®Æ¶µ¥ØªººûÅ@§Y¥i¡C¥»½d¦C¦]²o¯Aªº¬ÛÃöª¾ÃÑ«D±`¦h¡A¬G±N¤§¤À¹j¦¨¨â¤j³¡¤À¡C

²¼¿ïºÞ²z¤¶­±
¡yºÞ²z¤¶­±¡z¡AÅU¦W«ä¸q¡A¤D¬Oºô¯¸ºÞ²zªÌ©Î¬O²¼¿ï¬¡°Êªº­t³d¤H¶i¦æ²¼¿ï¸ê®ÆºûÅ@¤§¥Î¡C

For-Next°j°é§Q¥Î
¬JµM¬O¦Û°Ê¤Æªºµ{¦¡¡A§Ú­ÌŪ¨ú¸ê®Æ¿ýªº¤º®e¤è¦¡±N°µ¤j´TªºÅÜ°Ê¡A¦]¬°§Ú­Ìªº²¼¿ï¶µ¥Ø¬O¥iÅܰʪº¡A©Ò¥H§Ú­Ì¤£¯à¦A§Q¥Î¡y²¼¿ï¶µ¥Ø¡z¬°¶}±Ò¸ê®Æ¿ýªº¨Ì´`±ø¥ó¡I

­nŪ¨ú¸ê®ÆÄæ¦ìªº¸ê®Æ¤º®e(Value)¡A§Ú­Ì±N¤£¥i¥H¦A§Q¥Î¤U¦C¤èªk¡G
  1. RS("Äæ¦ì©ïÀY") '¦C¥XÄæ¦ì¸ê®Æ¤º®e
½Æ»s¥N½X
¡@§Ú­Ì¤£¯à¨Ï¥Î¤W¦Cªº¤èªkŪ¨ú¸ê®Æ¿ýÄæ¦ìªº¤º®e¡A¬O¦]¬°§Ú­Ìªº²¼¿ï¶µ¥Ø¤D¬O¥iÅܰʪº¡A¤W¦Cªº¤èªk¥u¾A¥Î©óŪ¨ú¶µ¥ØÄæ¦ì©ïÀY©T©w¤£Åܪº¸ê®ÆÄæ¦ì¡A§_«h·í§Ú­Ìªº²¼¿ï¶µ¥ØÅܧó«á¡A©Ò¦³¦³Åª¨ú¨ì³o­ÓÄæ¦ì¸ê®Æªºµ{¦¡ºô­¶¥þ³¡­n¶i¦æ­×¥¿ªº°Ê§@¡I¹ï©ó¸ê®ÆÄæ¦ì¤º®e¥i¯àÅܰʪº¶µ¥Ø§Ú­Ì±N§ï±Ä¤U¦C³oºØ¤èªk(RS¬°¸ê®Æ¿ýRecordsetª«¥ó¡A¢ñ¬°ÅܼÆ)¡G
  1. RS(i).Value '¦C¥XÄæ¦ì¸ê®Æ¤º®e
½Æ»s¥N½X
¡@§Q¥Î¤W¦Cªº¸ê®ÆÄæ¦ìŪ¨ú¤è¦¡¡A¦A°t¦X°j°é±Ô­z For--Next§Y¥i±N¸ê®Æ¿ý¤º®e¥þ³¡Åª¥X¡A¤£»Ý¦AÅU¼{Äæ¦ì©ïÀYªº°ÝÃD¡I
  
°j°é±Ô­z For--Next



¡@¤°»ò¥s°µ°j°é±Ô­z¡H°j°é´N¬OÅý¬Y¤@±øµ{¦¡±Ô­z©Îµ{¦¡°Ï¶ô(¦h±øµ{¦¡±Ô­z)­«½Æ°õ¦æªº±Ô­z¡A¨Ï¥Î°j°é±Ô­z¥i¨Ï§Ú­Ìªºµ{¦¡§óºë²§ó¤è«K¡AFor--Next±Ô­z¾A¥Î©óª¾¹D"½d³ò"ªº­«½Æ±Ô­z¡A¤]´N¬Oª¾¹D­«½Æ°õ¦æªº±Ô­z­n°µ´X¦¸(¥¿±`±¡ªp¤U)¡A¨ä®æ¦¡¦p¤U¦C©Ò¥Ü¡G
  1. For ­p¦¸Åܼơתì©l­È¡@To ²×¤î­È Step ¨B¶i­È
  2. ¡@¡@¡@µ{¦¡±Ô­z
  3. Next ­p¦¸ÅܼÆ
½Æ»s¥N½X
¨Ò¦p¡G
  1. For N=0 To 9
  2. Response.Write "²Ä" & N & "¦¸"
  3. Next
½Æ»s¥N½X
¡@¤W¦C³o­Ó½d¨Ò¤¤¡yResponse.Write "²Ä" & N & "¦¸"¡z±Ô­zÁ`¦@·|³Q­«½Æ°õ¦æ´X¦¸¡H¦pªG§A»¡¤E¦¸´N¯u¸Ó¥´§¾ªÑ¤F¡I¥Ñ¢¯¶}©l¨ì¢¸¬O¤Q¦¸³á¡I©Ò¥Hµ{¦¡°õ¦æªºµ²ªG·|¦L¥X¡y²Ä¢¯¦¸¡z¡B¡y²Ä¢°¦¸¡z.....¡y²Ä¢¸¦¸¡z¡C



´£¥Ü¡G

  • °²³]§Ú­Ì¥¼«ü©w¨B¶i­È«h¨B¶i­È¬°¡y¢°¡z¡A¤]´N¬O»¡°j°é±Ô­z¨C­«½Æ°õ¦æ¤@¦¸¡A§Ú­Ìªº­p¦¸ÅܼƭȴN¦Û°Ê¥[¤@¡C
  • °j°é±Ô­z¤¤¡A¡y­p¦¸Åܼơz¦WºÙ¥i¤£¥Î¶ñ¼g¡A¦ý­Y¬O¦h­Ó°j°éÂЦX¨Ï¥Î(°j°é¤¤ÁÙ¦³°j°é)¡A½Ð¯S§Oª`·N¶¶§Ç°ÝÃD¡I
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

²¼¿ï¸ê®Æ½s­×µ{¦¡
¤F¸ÑFor-Next°j°é±Ô­z«á¡A±µµÛ´N¨Ó¶i¦æ²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶ªº¼¶¼g(¥»¨Ò¬°editvote.asp)¡A¦b²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶¤¤±N·|¦C¥X¥Ø«eªº²¼¿ï¶µ¥Ø¤Î±o²¼¼Æ¡A¦p¤U¹Ï©Ò¥Ü¡C



²¼¿ï¶µ¥Ø¤Î¥Ø«e²¼¼Æªº¦U­Ó¸ê®ÆÄæ¦ì¡A§Ú­Ì³£¥i¥Hª½±µ¶i¦æÅܧó¡A¦b§¹¦¨²¼¿ï¶µ¥Ø¤Î¥Ø«e²¼¼Æ¸ê®Æ«á¡Aª½±µ«ö¤U¡y½T»{¡z«ö¶s¡A±N§ó·s«áªº¸ê®Æ¥æ¥Ñ§ó·sµ{¦¡editsave.asp¡Aµ{¦¡±N¬ÛÃö¸ê®Æ§ó·s¦Ü¸ê®Æ®w¤¤¡I

¡@²¼¿ï¶µ¥Ø¤Î¥Ø«e²¼¼Æªº¦U­Ó¸ê®ÆÄæ¦ì³£©ñ¸m¤F¤@­Óªí³æªº³æ¦æ¤å¦r¤è¶ô¤¸¥ó¡A½Ðª`·N¡I³æ¦æ¤å¦r¤è¶ô¤¸¥ó¨Ã¤£¬O§Ú­Ìª½±µ¥[¤W¥hªº³á¡A¥L­Ì³£¬O¥Ñµ{¦¡°ÊºA²£¥Íªº¡A·íµ{¦¡¥¼¶}©l°õ¦æ¥Í®Ä«e©Ò¬Ýªºµe­±¬O¤U¹Ï³o­Ó¼Ë¤l³á¡I

8-3.png

¦b²¼¿ï¶µ¥Ø¤Î¥Ø«e²¼¼Æªº¦U­Ó¤å¦r¤è¶ô¤¤©Ò¨£ªº¸ê®Æ¤º®e³£¬O±q¸ê®Æ®w¤¤Åª¨ú¥X¨Óªº¡A¦Ó§Ú­ÌŪ¨ú³o¨Ç¸ê®Æ«h¬O§Q¥ÎÂùFor--Next°j°éªº¤è¦¡¨ÓŪ¨ú¡A¨£¤U¹Ï¡C

8-4.png

ÂŦⳡ¤ÀªºFor°j°é(¥~°j°é)¡A¨ä§@¥Î¬OÅܧó§@¥Î¤¤ªº¸ê®Æ¿ý¦ì¸m¡A¨º¥~°j°é·|­«½Æ°õ¦æ´X¦¸©O¡H¦³´Xµ§¸ê®Æ¿ý´N°õ¦æ´X¦¸¡I§Ú­Ì§Q¥Î¸ê®Æ¿ýªºrecordcountÄݩʨӱoª¾Á`¦@¦³´Xµ§¸ê®Æ¡A¦P®É§Q¥ÎrecordcountÄݩʭȨӧ@¬°¥~°j°éªº²×¤î­È¡A·í°j°é¨C°õ¦æ¤@¦¸§Ú­Ì´N±N§@¥Î¤¤ªº¸ê®Æ¿ý¦ì¸m¥HMoveNext¤èªk²¾¦Ü¤U¤@¸ê®Æ¡C

¡@¬õ¦â³¡¤ÀªºFor°j°é(¤º°j°é)¡A¨ä§@¥Î¬O¿é¥X¸ê®Æ¤¤¦U­Ó¸ê®ÆÄæ¦ìªº­È(Value)¡A·íµM¤]¥]§t¤F¿é¥Xªí³æ¤¸¥ó¡y³æ¦æ¤å¦r¤è¶ô¡zªºHTML±Ô­z¡A¨º¤º°j°é·|­«½Æ°õ¦æ´X¦¸©O¡H¦³¸ê®Æ¿ý¤¤¦³´X­Ó¸ê®ÆÄæ¦ì´N°õ¦æ´X¦¸¡I§Ú­Ì§Q¥Î¸ê®Æ¿ýªºFields.countÄݩʨӱoª¾Á`¦@¦³´X­Ó¸ê®ÆÄæ¦ì¡A¦P®É§Q¥ÎFields.countÄݩʭȨӧ@¬°¤º°j°éªº²×¤î­È¡C


´£¥Ü:

  • ¨C·íÂŦⳡ¤ÀªºFor°j°é(¥~°j°é)°õ¦æ¤@¦¸¤§«á¡A´N¥²¶·§Q¥ÎMoveNext¤èªk±N§@¥Î¤¤ªº¸ê®Æ¿ý©¹¤U²¾°Ê¤@µ§¡A³o¼Ë¤~¯àÀò±o¤U¤@­Ó²¼¿ï¶µ¥Øªº¦WºÙ¥H¤Î¥Ø«eªº±o²¼¼Æ¸ê®Æ¡C
  • ¨ä¹ê¡A·í§Ú­ÌFor°j°éªº­p¦¸ÅܼƲפî­È³]©w¬°¡yrecordcount-1¡z¨ä¹ê§@¥Î¤¤¸ê®Æ¿ý´N¤£·|¦³²¾¥X³Ì«á¤@µ§¸ê®Æ¿ýªº¿ù»~µo¥Í¡A¦]¦¹¡yIf Rs.Eof Then Exit For¡z³o¤@±ø¹w¨¾©Êªº§PÂ_±Ô­z¬O¥i¥H¬Ù²¤ªº¡C




·í§Ú­Ìªºµ{¦¡ºô­¶¶}©l°õ¦æ«á¡A§Ú­Ì©Ò³]©wªºÂùFor°j°é±Ô­z±N·|§â¸ê®Æ®w¸ê®Æªí¤¤©Ò¦³ªºÄæ¦ì¸ê®Æ¨ú¥X¨Ó¡AµM«á©ñ¸m¦b³æ¦æ¤å¦r¤è¶ô¤¤¡Aµ{¦¡°õ¦æ©Ò¿é¥X¤§Html¼ÐÅÒ±Ô­z¤º®e¤U¹Ï¡G



´£¥Ü¡G
¨ä¹ê§Ú­Ìªºµ{¦¡°õ¦æ«á©Ò¿é¥X¤§Html¼ÐÅÒ±Ô­z¨Ã¤£·|¦p¤W¹Ï¨º¯ëªº¾ã»ô¡IÁÙ°O±o§Ú­Ì¦bµ{¦¡¼W¥[¤F¤@¦æ±Ô­z¡yResponse.Write Chr(10)¡z¶Ü¡H³o­Ó¡yChr(10)¡z¨ä¹ê´N¬O¤@­Ó´«¦æ²Å¸¹¡A¦pªG¨S¦³¼W¥[¿é¥X³o­Ó´«¦æ²Å¸¹¡A«h¤W¹Ï¤¤ÂŦⳡ¤À±Æ¦C¾ã»ôªºHtml¼ÐÅÒ±Ô­z´N·|¥þ³¡¦ê±µ¦¨¤@¦æ¤FËç!!

8-6.png

editvote.asp
  1. <%
  2. '«Ø¥ß¸ê®Æ®w³sµ²ª«¥ó
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("vote.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 "Select * from student",conobject,1,3
  11. %>
  12. <CENTER>
  13. <P><img border="0" src="elogo.gif"><br>
  14. <font color="#0000FF">½Ð¨Ì§Ç¶ñ¤J©Î­×§ï¶µ¥Ø</font></P>
  15. <form method="POST" action="editsave.asp">
  16.   <table border="1">
  17.     <tr>
  18.       <td bgcolor="#FF3399">
  19.         <p align="center"><font color="#FFFFFF">²¼¿ï¶µ¥Ø</font></p>
  20.       </td>
  21.       <td bgcolor="#FF3399">
  22.         <font color="#FFFFFF">¥Ø«e²¼¼Æ</font>
  23.       </td>
  24.     </tr>
  25.     <tr>
  26. <%   
  27. Num=0
  28. For Itemline=0 To Rs.recordcount-1
  29.       Response.Write "<TR>"
  30.      For Item=0 To Rs.Fields.Count-1
  31.              Response.Write "<TD><input type=text name=" & Num & _
  32.                             " value=" & Rs.Fields(Item).Value & "></TR>"
  33.              Response.Write chr(10)
  34.                 Num=Num+1
  35.      Next
  36.       Response.Write "</TR>"
  37.           Rs.MoveNext
  38.           If Rs.Eof Then Exit For
  39. Next          
  40.    
  41.     %>
  42.   </table>
  43. <p><input type="submit" value="½T»{"></p>
  44. </form>
  45. </CENTER>
½Æ»s¥N½X
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

°}¦Cªº¨Ï¥Î
°}¦C¬O¤°»ò¡H°}¦C´N¬OÅܼưաI¬O¥Î¨ÓÀx¦s¸ê®Æªº°Õ¡A¦ý¬O§Ú­Ì¤@¯ë©Ò¨Ï¥ÎªºÅܼƬé¯àÀx¦s¤@µ§¸ê®Æ¦Ó¤w¡A¦ý¬O°}¦C´N¤£¦P¤F¡A°}¦C¥iÀx©ñ«Ü¦hµ§ªº¸ê®Æ¡A´«¨¥¤§¡A°}¦C¨ä¹ê´N¬O¤@­ÓÅܼƶ°¦X¡I

¨Ï¥Î°}¦C½Ð¥ý«Å§i

¨Ï¥Î°}¦C¥²¶·¥ý¸g¹L«Å§iªºµ{§Ç¡A«Å§i°}¦Cªº®æ¦¡¦p¤U¡G
  1. Dim °}¦C¦W(³Ì«á¤@­Ó°}¦C¤¸¯Àªº½s¸¹)
½Æ»s¥N½X
¨Ò¦p¡G§Ú­Ì«Å§i¤@­Ó°}¦C¦p¤U
  1. Dim myarr(3)
½Æ»s¥N½X
¡@¥Nªí§Ú­Ì«Ø¥ß¤F¤@­Ó¦W¬°¡ymyarr¡zªº°}¦C¡A½Ð°Ý³o­Ó°}¦C¥i¥H©ñ´Xµ§¸ê®Æ¡H¤Tµ§¡H¿ù¡I¡y¢²¡z¬O³Ì«á¤@­Ó°}¦C¤¸¯Àªº½s¸¹¡A¦Ó°}¦C¤¸¯Àªº°_©l½s¸¹«h¬O¡y¢¯¡z¡A¦]¦¹³o­Ó°}¦C¥i¥HÀx©ñ¥|µ§¸ê®Æ¡C

8-7.png

±N¸ê®Æ±q°}¦C¤¸¯À¤¤¨ú¥X¡G

8-8.png


´£¥Ü
§Q¥ÎDim«Å§i°}¦C«h°}¦Cªº¤j¤p¬O©T©wªº¡A­Y§Æ±æ°}¦Cªº¤j¤p¬O¥i¼W´îªº¡A«h¥²¶·¨Ï¥Î¡yReDim¡z±Ô­z¨Ó«Å§i°}¦C¡C
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

¸ê®Æ®w§ó·sµ{¦¡
·í§Ú­Ì¦b¡y²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶¡z¤¤½s­×²¼¿ï¶µ¥Ø¤Î¥Ø«e²¼¼Æªº¦U­Ó¸ê®ÆÄæ¦ì«á¡Aª½±µ«ö¤U¡y½T»{¡z«ö¶s«á¡A«hªí³æ¤¤ªº¦U­Ó¤å¦rÄæ¦ì¸ê®Æ±N¥H"Post"ªº¤è¦¡°e¥æ§ó·sµ{¦¡editsave.asp¡Aµ{¦¡±N¬ÛÃö¸ê®Æ§ó·s¦Ü¸ê®Æ®w¤¤¡I¦]¦¹¸ê®Æ®w§ó·sµ{¦¡²Ä¤@¥ó­n°µªº¨Æ´N¬O±µ¨ú¨Ó¦Û¡y²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶ªí³æ¡zªº¦U¶µ¸ê®Æ¡G

8-9.png

­º¥ý¡A³z¹LDim±Ô­z«Å§i«Ø¥ß¤@­Ó§t¦³¤Q­Ó¤¸¯Àªº°}¦C¡A±µµÛ§Q¥ÎFor°j°é±Ô­z±N²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶ªí³æ©Ò¶Ç¨Óªº¸ê®ÆÀx©ñ¨ì°}¦C¤¤¡C

¡@§A¤@©wı±o«Ü©_©Ç¡I±µ¨úªí³æ¸ê®ÆªºRequestª«¥ó©Ò«ü©wªºÅܼƫç»ò·|¬O¢×©O¡H¬Ý¤F¤U¹Ï§A´Nª¾¹D¤F(¤U¹Ï¬°²¼¿ï¸ê®Æ½s­×µ{¦¡ºô­¶¤¤ªºHtml¼ÐÅÒ±Ô­z¿é¥Xµ{¦¡¬q)¡G

8-10.png

½ÐÆ[¹î¤W¹Ï³o¬qµ{¦¡±Ô­z¡A§Ú­Ìªº³æ¦æ¤å¦r¤è¶ôÄæ¦ìªº©R¦W¤è¦¡¤D¬O±Ä¥Î¼Æ¦r½s¸¹¡A·í²Ä¤@­Ó³æ¦æ¤å¦r¤è¶ôÄæ¦ì³Q«Ø¥ß®É¡A¥¦ªº¦WºÙ(name)´N³Q©w¬°"¢¯"¡A¦Ó«á§Ç«Ø¥ßªº³æ¦æ¤å¦r¤è¶ôÄæ¦ì¨ä¦WºÙ´N¨Ì§Çªº©w¬°"1"¡B"2".....¡A¦b¥»¨Ò¤¤¡A¦@¦³¤Q­Ó³æ¦æ¤å¦r¤è¶ôÄæ¦ì³Q«Ø¥ß¡A¦]¦¹¥¦­Ìªº¦WºÙ´N³Q¨Ì§Çªº©w¬°"¢¯"¨ì"¢¸"¡A¦Ó§Ú­ÌªºFor°j°é­p¦¸ÅܼƤ]¬O±q¢¯¨ì¢¸¡A©Ò¥H§Ú­Ì´Nª½±µ¨ú¥Î­p¦¸ÅܼƭȨӷí§@Requestª«¥óÅܼƨϥΡC

§¹¦¨ªí³æ¸ê®Æªº±µ¨ú°Ê§@«á¡Aºò±µµÛ´N¥²¶·±N¬ÛÃö¸ê®Æ§ó·s¦Ü¸ê®Æ®w¤¤¡I

8-11.png

¤W¹Ï¤¤ªºµ{¦¡°Ï¬q¬O¤£¬O«Ü²´¼ô°Ú¡H§Ú­Ì¤§«e¬O§Q¥ÎÂùFor°j°é±Ô­z±N¸ê®Æ®w¤¤ªº¸ê®ÆŪ¨ú¥X¨Ó¡A²{¦b«h¬O§Q¥ÎÂùFor°j°é±Ô­z±N¸ê®Æ¼g¤J¨ì¸ê®Æ®w¤¤¡C

¡@ÂŦⳡ¤ÀªºFor°j°é(¥~°j°é)¡A¨ä§@¥Î¦P¼Ë¬OÅܧó§@¥Î¤¤ªº¸ê®Æ¿ý¦ì¸m¡F¦Ó¬õ¦â³¡¤ÀªºFor°j°é(¤º°j°é)¡A«h¬O±Nªí³æÄæ¦ì¸ê®Æ¼g¤J¸ê®Æ®w¤¤¦U­Ó¸ê®ÆÄæ¦ì¡A¦P¼Ëªºµ{¦¡­ì²z¡A¤p»x´N¤£¦A­«½Æ¸Ñ»¡¤F¡I


editsave.asp
  1. <%
  2. 'Ū¤J¶µ¥Ø¦WºÙ¤Î²¼¼Æ
  3. Dim Item(9)¡@¡@'«Å§i¥iÀx©ñ¤Qµ§¸ê®Æªº°}¦CItem
  4. For I=0 To 9   '§Q¥ÎFor°j°é±Nªí³æ¤¤ªº¸ê®Æ¦s¤J°}¦C
  5. Item(I)=Request(I)
  6. Next

  7. Response.Cookies("checkvote")="yes"
  8. '«Ø¥ß¸ê®Æ®w³sµ²ª«¥ó
  9.         Set conobject = Server.CreateObject("ADODB.Connection")
  10.         DBPath = Server.MapPath("vote.mdb")
  11. '³sµ²¸ê®Æ®w       
  12.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  13. '«Ø¥ß¸ê®Æ®w¦s¨úª«¥ó       
  14.         Set RS=Server.CreateObject("ADODB.Recordset")
  15. '¥´¶}¸ê®Æªí       
  16.         RS.Open "Select * from student",conobject,1,3
  17. '§ó·s§ë²¼µ²ªG
  18. Num=0        
  19. For Itemline=0 To Rs.recordcount-1
  20.       For Itemnum=0 To Rs.Fields.Count-1
  21.               Rs.Fields(Itemnum).Value=Item(Num)
  22.              Num=Num+1
  23.      Next
  24.           Rs.MoveNext
  25.           If Rs.Eof Then Exit For
  26. Next          

  27. Response.Redirect "editvote.asp"

  28. %>
½Æ»s¥N½X
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

Åܧó¸ê®Æ®wµ²ºc
¦]¬°¥[¤W¤F²¼¿ï¤º®eªººÞ²z¤¶­±¡A¥i¶i¦æ²¼¿ï¶µ¥Ø¤Î±o²¼¼Æªº½s­×¡A¦]¦¹§Ú­Ìªº¸ê®Æ®w¸ê®Æªíªº³]­p¤£¦A¨Ï¥Î¼Ð·Çªº¾î¦V®æ¦¡¡A¦Ó§ï¥Îª½¦Vªº³]­p¤è¦¡³á¡I¦p¤U¹Ï¡G

8-12.png

¡y¦Û°Ê¤Æ²¼¿ïµ{¦¡¡zªº¡yºÞ²z¤¶­±¡z½d¨Ò¦Ü¦¹¼È§i¤@­Ó¬q¸¨¡A¦Ü©ó¡y¨Ï¥Î¤¶­±¡zªº³¡¥÷±N©ó¤U¤@¸`¤¶²Ð¡A½Ð§A¥ý¥J²Óªº¦^ÅUFor°j°é±Ô­zªº¨Ï¥Î¡A¦]¬°¦b¨Ï¥ÎªÌ²¼¿ïªº¡y¨Ï¥Î¤¶­±¡z¤¤±N±Ä¥Î¬Û¦Pªº¤è¦¡¨ÓŪ¨ú¸ê®Æ®w¸ê®Æ³á¡I


(¹ê¾Ô±MÃD) ¦Û°Ê¤Æ²¼¿ïµ{¦¡ ²¼¿ïºÞ²z¤¶­±½g§¹¾ã½d¨ÒÀ£ÁYÀÉ: vote3.zip (21.36 KB)
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD