台灣最大的程式設計社群網站
線上人數
1394
 
會員總數:354574
討論主題:190613
免費程式:2730
歡迎您免費加入會員
首頁 >> 程式下載 >> 程式資料檢視
程式資料
名稱 當紅氣質美少女選拔投票系統
類別 投票系統 使用者介面 網頁系統
程式語言 ASP 開發狀態 100% - 成熟
語系 其他 難易度 難度二(初學者入門)
原創者 小藍  原創者網址  
提供者 小藍 執行網址  
版權 開放源碼 評分
(共有 14 人投票,總分 53)
我要評分 : 不好<- 1 2 3 4 5 -> 很好   這個程式不能有問題歐! 加入我的收藏夾!
說明
簡單的投票系統
-
預覽畫面
目前尚無任何預覽畫面
檔案列表
檔名 : 20040804103502194A.rar  下載數:549
檔案大小:69353 Bytes  上傳時間:2004-08-04 10:35
下載此檔案
--
當紅氣質美少女選拔投票系統
網友回應  
如要發送訊息請先登入.
vote.asp 有問題 jack [2008-05-07 08:15]
我都選好美少女的checkbox
也填好身分証字號
然後就跳到vote.asp,但是沒顯示什麼,資料庫也沒新增一筆資料,
請問是我還要設定資料庫可寫入嗎(請問要如何設定)或其他問題?? 請各位大大幫忙 a1111.a3405@msa.hinet.net
貼上vote.asp程式碼
<style type="text/css">
<!--
body {
background-color: #FFE6CC;
}
.style1 {font-size: 24px}
-->
</style>
<h3> </h3>
<p>
<%
Name = Request("Name")
Id = UCase(Request("Id"))

'檢查是否有核取候選人
If IsEmpty(Name) Then
Response.Write "您沒有選擇候選人,回上一頁重新投票<p align='center'>"
Response.Write "<a href='VBScript:History.Back'>回上一頁</a></p>"
Response.end
End If

'用身份證來檢驗此人是否有投過票
Dim strSQL, objRS
strSQL = "Select * From UserId Where Id='" & Id & "'"
Set objRS = GetSQLRecordset(strSQL, "data.mdb", "UserId")
If objRS.EOF Then
objRS.AddNew
objRS("Id") = Id
objRS.Update
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Name = Split(Name,",")
For I = 0 To UBound(Name)
strSQL = "Select * From Vote Where Name='" & Trim(Name(I)) & "'"
Set objRS = GetSQLRecordset(strSQL, "data.mdb", "Vote")
objRS("Grade") = objRS("Grade") + 1
objRS.Update
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Next
Response.Redirect "Result.asp"
Else
Response.Write "您已經參加過本次活動了"
End If
%>
<!-- #include file="ADOFunctions.asp" -->
</p>
<p> </p>
<p><a href="index.asp">回首頁</a></p>

和這一段的說明~麻煩您了~~! hui [2008-01-21 14:12]
For I = 1 To ObjRS.RecordCount
Percent = Round((objRS("Grade")/Amount)*100,2)

還有這一段的說明 hui [2008-01-21 14:11]
For I = 0 To UBound(Name)
strSQL = "Select * From Vote Where Name='" & Trim(Name(I)) & "'"
Set objRS = GetSQLRecordset(strSQL, "data.mdb", "Vote")
objRS("Grade") = objRS("Grade") + 1
objRS.Update

新增紀錄 hui [2008-01-21 14:09]
我想請問這一段程式是什麼意思。您可以幫我說明嗎?
objRS.AddNew Array("Name", "Intro","Grade"), Array(Name, Intro,1)
objRS.Update
Response.Redirect "Result.asp"

位什麼我的電腦沒辦法顯示出來呢? LU [2007-12-11 20:29]
如題

候選人名字不能打中文~"~ pierce [2007-12-08 13:54]
怎麼辦阿?

推薦候選人中文名字出不來英文可以 烏龜 [2007-06-08 22:20]
推薦候選人中文名字出不來英文可以,大大幫幫忙

多加一個姓名欄位 阿達 [2006-10-03 23:23]
如果我要在資料庫中多加一個姓名欄位,我該修改程式?

關於推薦候選人的項目 幻龍 [2006-03-27 18:25]
我推薦一個候選人時輸入的中文字會顯現不出來(候選人那一項)
回應 : 關於推薦候選人的項目 [2006-03-27 22:02] 小藍
????
可是我在測試的時候,都ok呀