澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    让网站活起来(3)

    时间:2012/7/23 20:44:01 点击:

      核心提示:投 票 例 子功能:对软件和电脑工作室栏目进行投票,选择你喜欢的栏目。 实现方法:把投票的结果存在Result.txt文件中,当前工作的网页是Voting.asp,提交的对象是Voted.asp,当单...
    投 票 例 子
      
     功能:对软件和电脑工作室栏目进行投票,选择你喜欢的栏目。
     实现方法:把投票的结果存在Result.txt文件中,当前工作的网页是Voting.asp,提交的对象是Voted.asp,当单击查看按钮时,可以查看当前选票的结果。中间存在的Bug,就是当提交之后,继续刷新Voted.asp,这样选票结果会自动的添加,想想这是为什么?用什么方法来解决?你时候碰到过类似的网站。
      
      Voting.asp的关键是:
      1:显示查看结果
        
      2:提交数据给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)
      %>

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •