ASP网页设计ASP完成的详细投票的法式

源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多. 纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码法式|投票   　　功效：对软件和电脑任务室栏目停止投票，选择你喜好的栏目。
　　完成办法：把投票的了局存在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)
  %>
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)