ASP實現的具體投票的程式

程式|投票

　　功能：對軟體和電腦工作室欄目進行投票，選擇你喜歡的欄目。

　　實現方法：把投票的結果存在Result.txt檔案中，當前工作的網頁是Voting.asp，提交的對象是Voted.asp，當單擊查看按鈕時，可以查看當前選票的結果。中間存在的Bug，就是當提交之後，繼續重新整理Voted.asp，這樣選票結果會自動的添加，想想這是為什嗎？用什麼方法來解決？你時候碰到過類似的網站。 
  
　　Voting.asp的關鍵是：

　　1：顯示查看結果

  <script language=javascript>
  function windowOpen(loadpos)
  { window.open(loadpos,"surveywin","toolbar,resizable,scrollbars,dependent,width=400,height=480");
  }
  </SCRIPT> 
  
　　2：提交資料給Voted.asp <form method="POST" action="Voted.asp"> 
  
　　3：Voted.asp的關鍵是對下面兩句話，第一行儲存的是軟體欄目選票的數量，第二行儲存的是電腦工作室欄目的選票數量。下面一段程式，就是根據提交的資料自動的更新軟體欄目的選票數量或者電腦工作室欄目的選票數量。

  <%
  Set FileS= Server.CreateObject("Scripting.FileSystemObject")
  If Request.Form("R1")="Soft" then
  Set FileR= FileS.OpenTextFile(Server.MapPath("Result.txt"), 1, True)
  Soft = FileR.Readline
  Studio = FileR.Readline
  FileR.Close
  
  Soft=Int(Soft)+1
  Set FileR= FileS.OpenTextFile(Server.MapPath("Result.txt"), 2, True)
  FileR.WriteLine Soft
  FileR.WriteLine Studio
  FileR.Close
  Else
  Set FileR= FileS.OpenTextFile(Server.MapPath("Result.txt"), 1, True)
  Soft = FileR.Readline
  Studio = FileR.Readline
  FileR.Close
  
  Studio=Int(Studio)+1
  Set FileR= FileS.OpenTextFile(Server.MapPath("Result.txt"), 2, True)
  FileR.WriteLine Soft
  FileR.WriteLine Studio
  FileR.Close
  End If
  %>
  
  4：下面一段程式時擷取兩個欄目的選票數量，同時計算出百分比，和得到選票的數量。

  <%
  Set FileS= Server.CreateObject("Scripting.FileSystemObject")
  Set FileR= FileS.OpenTextFile(Server.MapPath("result.txt"), 1, True)
  OSoft=FileR.Readline
  OStudio=FileR.Readline
  FileR.Close
  
  nCount = Int(OSoft)+Int(OStudio)
  Soft= (100 * Int(OSoft) ) / Int(nCount)
  Studio= (100 * Int(OStudio)) / Int(nCount)
  
  Soft = FormatNumber(Soft, 2)
  Studio = FormatNumber(Studio, 2)
  %>