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

[±Ð¾Ç] (¹ê¾Ô±MÃD) ½u¤W²¼¿ï ¤U½g

[±Ð¾Ç] (¹ê¾Ô±MÃD) ½u¤W²¼¿ï ¤U½g

¨¾¤î­«½Æ§ë²¼ªº¹LÂo¾÷¨î
¡@§Ú­Ì¤§«e»¡¹L¡G¦b§ë²¼ªºµ{¦¡ºô­¶¤¤«ö¤U¡y§ë¤U¯«¸tªº¤@²¼¡z«ö¶s«á¡A§ë²¼ªºªí³æ´N·|±N§ë²¼¸ê®Æ°e¥ævotesave.aspµ{¦¡¶i¦æ³B²z¡A·í¦Û°ÊÂà¦V³sµ²¦^¨ì§ë²¼µ{¦¡ºô­¶µe­±®É¡A¡y§Aªº¤@²¼¿ï¼Ò½d¥Í¡zªº¦r¥yÅܦ¨¡y§A¤w¸g§ë¹L²¼¤F!¥u¯àÆ[¬Ý§ë²¼µ²ªG!¡z¡A¦P®É¡y§ë¤U¯«¸tªº¤@²¼¡zªº«ö¶s¤]¤£¦A¥X²{¡I³o´N¬O¨¾¤î­«½Æ§ë²¼ªº¹LÂo¾÷¨î¡A¦b¥»¨Ò¤¤§Ú­Ì§Q¥Îsessionª«¥ó¨Ó«Ø¥ß¹LÂo¾÷¨î¡C

¡@Sessionª«¥ó¬OASPÀɮצ@¥Îªºª«¥ó¡A¨C¤@¦ì³s½uªÌ³£­Ó§O¾Ö¦³ÄÝ©ó¦Û¤vªºSessionª«¥ó¡A±N¸ê®Æ¼g¤JSessionª«¥óªº¤èªk¦p¤U¡G
  1. Session("ÅܼƦWºÙ")¡×ÅܼƭÈ
½Æ»s¥N½X
¡@·í§Ú­Ì±N¸ê®Æ¼g¤J¨ìSessionª«¥ó¤¤¡A¥u¬O±N¸ê®Æ¼g¤J¨ì¥Ø«e³s½uªÌªºSessionª«¥ó¤¤¡A»P¨ä¥Lªº³s½uªÌ¨ÃµLÃö«Y¡A¦]¦¹§Ú­Ì´N¥i¨Ì·Ó³s½uªÌ¥Ø«eSessionª«¥óªº¸ê®Æ­È¨Ó§PÂ_³s½uªÌ¬O§_¨ã¦³¶i¦æ§ë²¼ªºÅv§Q¡C

7-10.png
2010-5-23 22:58



  • ¥ý¶i¦æÅܼƦWºÙ¬°checkvoteªºSessionª«¥ó¸ê®Æ­È¡A¦pªG¨ä¸ê®Æ­È¬°"yes"¥Nªí§ë¹L²¼¤F¡A«h±NÅã¥Ü©óµ{¦¡ºô­¶¤¤ªº°T®§¤å¦r¦r¦ê³]©w¬°¡y§A¤w¸g§ë¹L²¼¤F!¥u¯àÆ[¬Ý§ë²¼µ²ªG!¡z¡A¨Ã¥B±N¨M©wÅã¥Ü¡y§ë¤U¯«¸tªº¤@²¼¡z«ö¶s»P§_ªº½T»{Åܼơycheckvote¡z³]©w¬°¡yno¡z¥Nªí¤£Åã¥Ü§ë²¼«ö¶s¡C
  • ¦pªGSessionª«¥ó¨ä¸ê®Æ­È¬°"no"«h¥Nªí©|¥¼§ë²¼¡A±NÅã¥Ü©óµ{¦¡ºô­¶¤¤ªº°T®§¤å¦r¦r¦ê³]©w¬°¡y§Aªº¤@²¼¿ï¼Ò½d¥Í¡z¡A¨Ã¥B±NÅã¥Ü§ë²¼«ö¶sªº½T»{Åܼơycheckvote¡z³]©w¬°¡yyes¡z¥NªíÅã¥Ü§ë²¼«ö¶s¡C

    7-11.png
    2010-5-23 22:58



Vote.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,0,1
  11.        
  12. '­pºâÁ`§ë²¼¼Æ»P³]©w±o²¼²v¹Ïªí¼e«×        
  13.         VotePeople=RS("±d¤p©ú")+RS("·¨¤p»x")+RS("¤ý¤pµá")+RS("±çµúµa")
  14. IF RS("±d¤p©ú")>0 then linelong1= 500*RS("±d¤p©ú")/VotePeople
  15. IF RS("·¨¤p»x")>0 then linelong2= 500*RS("·¨¤p»x")/VotePeople
  16. IF RS("¤ý¤pµá")>0 then linelong3= 500*RS("¤ý¤pµá")/VotePeople
  17. IF RS("±çµúµa")>0 then linelong4= 500*RS("±çµúµa")/VotePeople

  18. '§ë²¼Àˬd
  19. IF session("checkvote")="yes" then
  20. msg="§A¤w¸g§ë¹L²¼¤F!¥u¯àÆ[¬Ý§ë²¼µ²ªG!"
  21. VoteButton="no"
  22. Else
  23. session("checkvote")="yes"
  24. msg="§Aªº¤@²¼¿ï¼Ò½d¥Í"
  25. VoteButton="yes"
  26. End IF
  27. %>
  28. <CENTER>
  29. <P><img border="0" src="logo.gif"><br>
  30. <font color="#0000FF"><%=msg%></font></P>
  31. <form method="POST" action="votesave.asp">
  32.   <table border="1">
  33.     <tr>
  34.       <td bgcolor="#FF3399"><font color="#FFFFFF">°é²¼³B</font></td>
  35.       <td bgcolor="#FF3399"><font color="#FFFFFF">­Ô¿ï¤H</font></td>
  36.       <td bgcolor="#FF3399"><font color="#FFFFFF">±o²¼¼Æ</font></td>
  37.     </tr>
  38.     <tr>
  39.       <td align="center">
  40.       <input type="radio" name="vote" value="±d¤p©ú"></td>
  41.       <td>±d¤p©ú</td>
  42. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong1%>>
  43.       ¡@<%=RS("±d¤p©ú")%>²¼</td>
  44.     </tr>
  45.     <tr>
  46.       <td align="center">
  47.       <input type="radio" name="vote" value="·¨¤p»x"></td>
  48.       <td>·¨¤p»x</td>
  49. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong2%>>
  50.       ¡@<%=RS("·¨¤p»x")%>²¼</td>
  51.     </tr>
  52.     <tr>
  53.       <td align="center">
  54.       <input type="radio" name="vote" value="¤ý¤pµá"></td>
  55.       <td>¤ý¤pµá</td>
  56. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong3%>>
  57.       ¡@<%=RS("¤ý¤pµá")%>²¼</td>
  58.     </tr>
  59.     <tr>
  60.       <td align="center">
  61.       <input type="radio" name="vote" value="±çµúµa"></td>
  62.       <td>±çµúµa</td>
  63. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong4%>>
  64.       ¡@<%=RS("±çµúµa")%>²¼</td>
  65.     </tr>
  66.   </table>
  67. <%IF VoteButton="yes" then %>
  68. <p><input type="submit" value="§ë¤U¯«¸tªº¤@²¼"></p>
  69. <%End IF%>
  70. </form>
  71. </CENTER>
½Æ»s¥N½X
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

§ë²¼µ²ªGÀx¦sµ{¦¡
¦P¼Ëªº¡A§Ú­Ì¥ý¨Ó¬Ý¤@¤U¦p¦ó«Ø¥ß²¼¿ï¸ê®Æ®wªº³sµ²»P¸ê®Æªíªº¶}±Ò¡A¦p¤U¹Ï¡G

7-12.png
2010-5-23 23:01


µo²{¸ò§Ú­Ì§ë²¼µ{¦¡ºô­¶¤¤¡A«Ø¥ß²¼¿ï¸ê®Æ®wªº³sµ²»P¸ê®Æªí¶}±Òªºµ{¦¡±Ô­z¦³¦ó¤£¦P¤§³B¤F¶Ü¡H¨S¿ù¡A´N¬O¸ê®Æ¿ýª«¥óOpen¤èªkªº²Ä¤T»P²Ä¥|­Ó°Ñ¼Æ³]©w¤£¤@¼Ë¡I

¡@¦b²Ä¤T­Ó«ü©w¸ê®Æª«Recordset¶}±ÒÃþ«¬ªº°Ñ¼Æ¡A§Ú­ÌÅܧó«ü©wÃþ«¬­È¬°¢°(¥iŪ¼g¼Ò¦¡¥B¸ê®Æ¿ý¥i¦Û¥Ñ²¾°Ê)¡F²Ä¥|­Ó«ü©wÂê©wÃþ«¬ªº°Ñ¼Æ¡A§Ú­ÌÅܧó«ü©wÃþ«¬­È¬°¢²¡A¼ÖÆ[Âê©w¡A¦]¬°µ§ªÌ­Ó¤H»{¬°¤£¥i¯à¦³¨â¦ì³s½uªÌ¦P®É°õ¦æµ{¦¡¦Ó¶i¦æ¦P¤@µ§¸ê®Æ¿ý§ó·s§@·~¡A¦]¦¹¥u¦bUpdate¤èªk³Q©I¥s®É¤~±N¸ê®Æ¿ýÂê©w¡A¸ê®Æ¿ý¤@¼g¤J¸ê®Æ®w«á¥ß§Y¸Ñ°£Âê©w

¦pªG§Ú­Ì±N²Ä¥|­Ó«ü©wÂê©wÃþ«¬ªº°Ñ¼Æ¡A¨ÌµM«ü©wÃþ«¬­È¬°¢°¡A«hµ{¦¡±N·|¥X²{¤U¹Ïªº¿ù»~¡G

7-13.png
2010-5-23 23:01


¬°¤°»ò·|¥X²{¿ù»~©O¡H¦]¬°­Y«ü©wÂê©wÃþ«¬ªº°Ñ¼ÆÃþ«¬­È¬°¢°¡A«h§Ú­Ì±NµLªk¨Ï¥ÎRecordsetª«¥óªºAddNew¡BDelete»PUpdate¤èªk¡A¦ý¬O§Ú­Ì­n§ó·s§ë²¼²¼¼Æ´N±o¥Î¨ìRecordsetª«¥óªºUpdate¤èªk°Ú¡A©Ò¥H°Ñ¼ÆÃþ«¬­È¬°¢°¤£¯à¥Î¡A¨º§Ú­Ì¥i¤£¥i¥H«ü©w°Ñ¼ÆÃþ«¬­È¬°¢±¡H·íµM¥i¥H¡A¥u¬Oµ§ªÌ­Ó¤H°¾¦n³ßÅw«ü©w°Ñ¼ÆÃþ«¬­È¬°¢²(¦]¬°µ§ªÌ¤Ñ©Ê¼ÖÆ[¡H)¡A¨º¥i¤£¥i¥H«ü©w°Ñ¼ÆÃþ«¬­È¬°¢³¡H§Ú­Ì§ó·sªº¸ê®Æ¥u¦³¤@ÄæÁÙ¤£¦Ü©ó­n¶i¦æ§å¦¸Âê©w°Õ¡I

§ë²¼µ²ªGÀx¦sµ{¦¡¡yvotesave.asp¡z¡A¦b¥»µ{¦¡¤¤§¹¥þ¨S¦³ºô­¶¸ê®ÆªºÅã¥Ü¡A¥»µ{¦¡¥u­t³d±N§ë²¼µ{¦¡ºô­¶¤¤¡A©Ò¶Ç°e¹L¨Óªº§ë²¼¸ê®Æ§ó·s¨ì¸ê®Æ®w¤¤¡AµM«á±N³sµ²Âà¦V¦^§ë²¼µ{¦¡ºô­¶¡C

§ó·s§ë²¼µ²ªG

7-14.png
2010-5-23 23:02



  • ¥ý±µ¦¬¨Ó¦Û§ë²¼µ{¦¡ºô­¶¤¤ªí³æ©Ò¶Ç°e¹L¨Óªº§ë²¼¸ê®Æ¡A³o­Ó¸ê®Æ­È¨ä¹ê´N¬Oªí³æ¤¤¿ï¾Ü¶sªºValueÄÝ©Ê­È(¤W¹Ïºñ¦â³¡¤Àµ{¦¡±Ô­z)¡C
  • §Q¥Î¦h°õ¦æ¸ô®|ªº Select Case ±Ô­z¨Ó¨M©w­þ¦ì­Ô¿ï¤Hªº²¼¼Æ¥[¢°(¤W¹ÏÂŦⳡ¤Àµ{¦¡±Ô­z)¡C
  • §Q¥ÎUpdate¤èªk±N·sªº§ë²¼µ²ªG§ó·s¼g¤J¨ì¸ê®Æ®w¤¤(¤W¹Ï¬õ¦â³¡¤Àµ{¦¡±Ô­z)¡C


½Ðª`·N¡G
·í§Ú­Ì§Q¥ÎRS("Äæ¦ì¦WºÙ")="§ó·s«á¸ê®Æ"ªº±Ô­z±N¸ê®Æ¼g¤J¸ê®Æ¿ýÄæ¦ì¡A³o¼Ëªº±Ô­z¥u¬O±N¸ê®Æ¼g¨ìbuffer(½w½Ä°Ï)¤¤¡A¨Ã¨S¦³±N§ó·sªº¸ê®Æ¯u¥¿ªº¼g¤J¨ì¸ê®Æ®w¤¤¡A¥u¦³·í§Ú­Ì©I¥sRecordsetª«¥óªºUpdate¤èªk®É¡A§ó·s«áªº¸ê®Æ¤~·|¯u¥¿ªº¼g¤J¸ê®Æ®w¡C


³Ì«á¡A¤£­n§Ñ¤F¥[¤W Response.Redirect "vote.asp" ³o¦æµ{¦¡±Ô­z¡AÂà¦V³sµ²¦^§ë²¼µ{¦¡ºô­¶vote.asp¥hÅã¥Ü³Ì·sªº§ë²¼µ²ªG¡C
Votesave.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. '§ó·s§ë²¼µ²ªG        
  12. vote=Request("vote")
  13. Select case vote
  14.         case "±d¤p©ú"
  15.                  RS("±d¤p©ú")=RS("±d¤p©ú")+1
  16.         case "·¨¤p»x"
  17.                  RS("·¨¤p»x")=RS("·¨¤p»x")+1
  18.         case "¤ý¤pµá"
  19.                  RS("¤ý¤pµá")=RS("¤ý¤pµá")+1
  20.         case "±çµúµa"
  21.                  RS("±çµúµa")=RS("±çµúµa")+1
  22. End Select          
  23. RS.UPdate
  24. Response.Redirect "vote.asp"

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

TOP

µ{¦¡§Q¥Î»¡©ú

·í±zª½±µ¨Ï¥Î¥»½d¨Òµ{¦¡¶i¦æÀ³¥Î®É¡A½Ð¦Û¦æ­×§ï¸ê®Æ®w¤¤ªºÄæ¦ì¦WºÙ¡AÄæ¦ì­n¼W¥[©Î´î¤Ö¡A¥Ñ±z¦Û¦æ¨M©w(¬Û¹ïªº¡A¦Uµ{¦¡¤¤ªºµ{¦¡±Ô­z¤]­n¼W¥[)¡A§ó§ïÄæ¦ì¦WºÙ«á¡A½Ð°O±o­×§ïµ{¦¡ºô­¶vote.asp¤Î§ó·s²¼¿ïµ²ªGµ{¦¡votesave.asp¤¤ªºÄæ¦ì¦WºÙ³]©w¡A¨Ò¦p¡G±z±NÄæ¦ì¦WºÙ"±d¤p©ú"§ó§ï¬°"¼B±oµØ"¡A«hµ{¦¡ºô­¶vote.asp¤Î§ó·s²¼¿ïµ²ªGµ{¦¡votesave.asp¤¤ªºRS("±d¤p©ú")¦P¼Ë¥²¶·§ó§ï¬°RS("¼B±oµØ")¡F²¼¼Æªø±ø¹Ï¹Ï§Î­Y±z¤£³ßÅw¡A¤]¥i¨Ï¥Î¬ÛÃö½s¿è³nÅé¦Û¦æ³]­p¡C

(¹ê¾Ô±MÃD) ½u¤W²¼¿ï_§¹¾ãµ{¦¡½XÀ£ÁYÀɤU¸ü: vote1.zip (16.8 KB)
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD