ASP实现的具体投票的程序--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)
%>

创建网站的 RSS 内容摘要2006-4-30

正则表达式高级学习技巧2006-4-30

网页链接详细介绍（上）2006-4-30

网页链接详细介绍（下）2006-4-30

Sql联合查询2006-4-30

ASP实现的具体投票的程序2006-4-30

ASP显示当前网页在线人数和IP地址2006-4-30

正则表达式简介2006-4-30

ASP小偷(远程数据获取)程序入门教程2006-4-30

让IE后退时不取出Cache里的内容2006-4-30