- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
讓網站活起來(3)
投 票 例 子


功能:對軟件和電腦工作室欄目進行投票,選擇你喜歡的欄目。
實現方法:把投票的結果存在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)
%>



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2019 COOLASP All Rights Reserved