 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
功能：对软件和电脑工作室栏目进行投票，选择你喜欢的栏目。 实现方式：把投票的结果存在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) %> 返回类别: 教程 上一教程: 提高ASP性能的最佳选择2 下一教程: 转变字符串带有HTTP://的超级链接字符串为真正的超级链接 您可以阅读与"ASP实现的详细投票的程序"相关的教程: · 用ASP实现分页显示的具体讲解 · 用ASP实现的代码批量修改程序，FSO相关 · 用ASP实现的代码批量修改程序 · 用asp.net实现的把本文推荐给挚友功能 · 用ASP产生随即密码的程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
