【導(dǎo)讀】四周至六周，熟練開(kāi)發(fā)語(yǔ)言、規(guī)劃功能。數(shù)據(jù)庫(kù)結(jié)構(gòu)，編寫調(diào)試代碼。十周至十二周，測(cè)試，修改模塊。5月20十三周至十五周，完成修改、提交論文。出相應(yīng)的判斷和處理。投票管理者的決策只能依據(jù)手工表數(shù)據(jù)，在浪費(fèi)大量人力、物力的同時(shí)無(wú)法做到實(shí)時(shí)監(jiān)控，難以保證數(shù)據(jù)的準(zhǔn)確性和及時(shí)性。管理思想就成為了一個(gè)可望而不可及的目標(biāo)。投票非常急需一套既有先進(jìn)管理思。想的系統(tǒng)，作為實(shí)現(xiàn)目標(biāo)和提高現(xiàn)有投票管理水平的一種重要手段。進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部。成方法，逐步建立一個(gè)智能化的投票系統(tǒng)。開(kāi)發(fā)該系統(tǒng)我主要采用ASP技術(shù)和SQL數(shù)據(jù)庫(kù)相結(jié)合的方式。Web服務(wù)器從磁盤上讀取含有服務(wù)器端腳本的網(wǎng)頁(yè)，在網(wǎng)頁(yè)發(fā)送給客戶端瀏。數(shù)據(jù)庫(kù)采用SQLServer2020大型數(shù)據(jù)庫(kù)，能夠勝投票系統(tǒng)中的數(shù)據(jù)處。本文在相關(guān)理論指導(dǎo)下，在分析其他一些系統(tǒng)的基礎(chǔ)上，開(kāi)發(fā)出了一個(gè)簡(jiǎn)單

　　

【正文】 39。amp。newTitleamp。39。) (sql) 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 30 投票項(xiàng)目已經(jīng)成功添加！ End If ElseIf Soperate = edit Then 39。修改項(xiàng)目 newTitle = Request(txttitle) Title = Request(sOrgTitle) 39。如果新類別名稱和舊的不同則執(zhí)行 If newTitleTitle Then 39。判斷數(shù)據(jù)庫(kù)中是否存在此類別 sql = Select * from VoteItem where Item=39。amp。newTitleamp。39。 Set rsInsert = (sql) If NOT Then 已經(jīng)存在此投票項(xiàng)目 ,添加失敗 ! Else (Update VoteItem set Item=39。amp。newTitleamp。39。 where Id=amp。cint(Operid)) 投票項(xiàng)目已經(jīng)成功修改 ！ End If End If ElseIf Soperate=delete Then 39。刪除項(xiàng)目 sqldelt = Delete from VoteItem Where Id IN(amp。Cstr(Operid)amp。) (sqldelt) 投票項(xiàng)目已經(jīng)成功刪除 ！ End If % 刪除項(xiàng)目 function sltAll() { var nn = (dept)。 for(j=0。j。j++) { 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 31 (dept,j).checked = true。 } } function sltNull() { var nn = (dept)。 for(j=0。j。j++) { (dept,j).checked = false。 } } 得到要?jiǎng)h除的項(xiàng)目的編號(hào)，然后刪除項(xiàng)目 function SelectChk() { var s=false。 var deptid,n=0。 var strid,strurl。 var nn = (dept)。 for (j=0。j。j++) { if ((dept,j).checked) { n = n + 1。 s=true。 deptid = (dept,j).id+。 if(n==1) { strid = deptid。 } else 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 32 { strid = strid + , + deptid。 } } } strurl = ?Oper=deleteamp。id= + strid。 if(!s) { alert(請(qǐng)選擇要?jiǎng)h除的投票項(xiàng)目 ！ )。 return false。 } if ( confirm(你確定要?jiǎng)h除這些投票項(xiàng)目嗎 ？ )) { = strurl。 ()。 } } 圖 43是 修改 投票選項(xiàng)頁(yè)面 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 33 圖 44是添加投票選項(xiàng)頁(yè)面 投票結(jié)果 模塊的設(shè)計(jì) 投票結(jié)果 模塊設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及系統(tǒng)實(shí)現(xiàn)產(chǎn)生一定影響，較好的 投票結(jié)果 模塊設(shè)計(jì)會(huì)減少數(shù) 管理 人員的操作時(shí)間，提高操作數(shù)據(jù)的完整性和一致性，使 投票結(jié)果 得到準(zhǔn)確而又快速的下發(fā)。 投票數(shù)百分比的計(jì)算代碼如下 % Dim imgvote 39。取得這批投票總數(shù) sql = Select Sum(voteCount) AS tl From VoteItem Set voters = (sql) If NOT Then total = voters(tl) End If Set voters = Nothing 39。取得每個(gè)投票項(xiàng)目信息 sql = Select * From VoteItem Order By Id Set voters = (sql) Do While NOT If total=0 Then 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 34 itotal=1 Else itotal = total End If 39。計(jì)算每個(gè)投票項(xiàng)目百分比圖片長(zhǎng)度 imgvote = FormatNumber(voters(voteCount)/itotal,2)*170 % trtd bgcolor=FFFFFF%=voters(item)%/td td colspan=2 bgcolor=FFFFFF img src=images/ width=%=imgvote% height=10font style=font:7pt face=Verdana %=Cstr(FormatNumber(voters(voteCount)/itotal*100,0))%%/font/td td bgcolor=FFFFFF align=center%=voters(voteCount)%/td /tr % Loop % % 39。收集需要統(tǒng)計(jì)的信息 theurl = amp。 (_host) amp。 (url) vSoft = (HTTP_USER_AGENT) 39。IIS版本 vRef = (HTTP_REFERER) 39。訪問(wèn)前的網(wǎng)址 39。取得客戶端的真實(shí) IP地址 vIP = (HTTP_X_FORWARDED_FOR) 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 35 If vIP = Then vIP = (REMOTE_ADDR) End If vExplorer = Browser(vSoft) 39。瀏覽器 vOS = System(vSoft) 39。操作系統(tǒng) vDateTime = DateTimeFormat(now(),1)amp。 amp。DateTimeformat(now(),6) 39。訪問(wèn)的時(shí)間 If vRef= Then vRef = 直接輸入或書簽導(dǎo)入 End If % 圖 45重復(fù)投票提示框 圖 46投票結(jié)果百分比顯示 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 36 數(shù)據(jù)導(dǎo) 入 圖 47 投票生成圖 用戶管理模塊的設(shè)計(jì) 管理員登錄的設(shè)計(jì)與實(shí)現(xiàn) 設(shè)計(jì)管理員登錄表單 管理員登錄表單由以下 3部分組成 ［ 1］ ： 文本框 —— 用來(lái)輸入用戶名。 密碼框 —— 用來(lái)輸入密碼。 提交和重填按鈕。 驗(yàn)證 管理員的用戶和密碼 驗(yàn)證管理員的用戶和密碼的步驟如下： (1) 使用 Request對(duì)象的 Form集合得到用戶輸入的用戶名和密碼 代碼如下： % dim user_id,user_password user_id=request(user_id) user_password=request(user_password) % (2) 建立數(shù)據(jù)庫(kù)連接，代碼與前面連接數(shù)據(jù)庫(kù)的代碼相同。 (3) 查詢?cè)跀?shù)據(jù)庫(kù)中是否存在用戶輸入的用戶名。要判斷數(shù)據(jù)庫(kù)中是否存在 投票選項(xiàng) 投票結(jié)果運(yùn)算 編輯 編輯、添加、 刪除 生成最 終結(jié)果 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 37 用戶輸入的用戶名，可以在表“ classuser”中統(tǒng)計(jì) user_id 字段的內(nèi)容與用戶輸入的用戶名相匹配的記錄總數(shù)，如果為 0，表示用戶名錯(cuò)誤，提示用戶重新輸：如果不為 0，說(shuō)明用戶名存在，然后進(jìn)入驗(yàn)證密碼步驟。實(shí)現(xiàn)代碼如下： % =Select COUNT(*) From classuser Where user_id like 39。+user_id+39。 Set rs= If rs(0).Value Then P無(wú)效的用戶名 /P Pa href=重新輸入 /a/p Else 39。驗(yàn)證密碼 End If % (4)驗(yàn)證用戶名密碼是否正確。驗(yàn)證的方法是在數(shù)據(jù)庫(kù)中查出用戶輸入的用戶名的密碼，然后與用戶輸入的密碼相比較。如果相同則表示用戶輸入的密碼正確，否則表示用戶輸入的密碼錯(cuò)誤。代碼如下： % =Select user_password From classuser Where user_id like 39。%+user_id+%39。 Set rs= 39。 rs(user_password).Value If Rtrim(rs(0).Value)=user_password Then Session(logined)=1 在這段程序中，使用 Session對(duì)象的 logined變量來(lái)記錄用戶是否登錄成功，當(dāng) logined 變量為 1,表示登錄成功，變量為 0 則表示登錄失敗。由于在數(shù)據(jù)庫(kù)中 查詢到的密碼的右邊是包含空格符的，在密碼驗(yàn)證時(shí)要使用函數(shù) Rtrim 把空格符過(guò)濾掉。圖 47 為用戶登錄頁(yè)面。 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 38 圖 48 用戶登錄頁(yè)面 修改密碼的設(shè)計(jì)與實(shí)現(xiàn) 為了保證數(shù)據(jù)庫(kù)的安全，有時(shí)需要修改用戶的密碼，管理員可以通過(guò)修改密碼的功能將系統(tǒng)的密碼修改為自己喜歡或者容易記憶的密碼。 設(shè)計(jì)修改密碼表單 修改密碼表單由以下幾部分組成。 文本框 —— 用來(lái)輸入用戶名。 密碼框 —— 用來(lái)輸入原密碼。 密碼框 —— 用來(lái)輸入新密碼。 密碼框 —— 用來(lái)驗(yàn)證新密碼。 提交和重填 按鈕。 在數(shù)據(jù)庫(kù)中修改管理員密碼 在數(shù)據(jù)庫(kù)中修改管理員密碼的步驟如下： (1)使用 Request 對(duì)象的 Form 集合得到用戶輸入的信息，這些信息包括用戶名、原密碼、新密碼和確認(rèn)新密碼。代碼如下： % dim user_id,old_password,new_password1,new_password2 user_id=request(user_id) old_password=request(old_password) 重慶郵電 大學(xué) 移通學(xué)院畢業(yè)設(shè)計(jì)（論文） 39 new_password1=request(new_password1) %