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)
%>

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!