自考計算機應用畢業(yè)論壇-校園網(wǎng)站設計
日期:
2014/1/5 8:45:38 來(lái)源:
本站原創(chuàng ) 訪(fǎng)問(wèn)量:
次
然后根據所投的票將對應候選人的投票結果字段加
1,同時(shí)將該投票人的已投字段置為1。
sqq="update stud set yitu=1 where password="&"'"&request("passno")&"'"
cn.execute(sqq)
if instr(vo,"1") then
cn.execute("update stud set result=result+1 where name='李寧'")
end if
if instr(vo,"2") then
cn.execute("update stud set result=result+1 where name='楊蘭'")
end if
if instr(vo,"3") then
cn.execute("update stud set result=result+1 where name='江道明'")
end if
if instr(vo,"4") then
cn.execute("update stud set result=result+1 where name='段啟文'")
end if%>
顯示當前投票情況show.asp
由于投票處理頁(yè)面已經(jīng)完成了絕大部分的工作,所以 顯示結果頁(yè)面就很簡(jiǎn)單了,其功能是從 Stud表文件中讀取候選人所得票數,顯示在頁(yè)面上。
頁(yè)面顯示如圖
值得注意的代碼主要有以下幾處:
該頁(yè)面有自動(dòng)刷新功能,使在線(xiàn)用戶(hù)可以盡快的看到最新的選舉情況。我們這里設定每隔30秒鐘自動(dòng)刷新一次。
<meta http-equiv="refresh" content="10;URL=show.asp">
顯示投票時(shí),我們采用了while循環(huán),把候選人及其得票數,整齊地顯示在一個(gè)表格中,這種技術(shù)在數據庫查詢(xún)結果的顯示中也經(jīng)常用到。代碼如下:
<%while not hs.eof %>
<tr>
<td width="100%"><center>
<font color="#8000ff"><big>
<%=hs("name")&" "&hs("result")&"票"%>
</big> </font>
</center>
</td>
</tr>
<%hs.movenext%>
<%wend%>
3.4達級考試在線(xiàn)查分系統與計數器的制作
3.4.1功能:
它提供了在線(xiàn)查看成績(jì)?忌梢栽诰W(wǎng)上使用這一系統,通過(guò)輸入準考證編號來(lái)查詢(xún)達級考試的結果。
3.4.2數據表的設計
與評優(yōu)系統共用STUd表,表設計同上。
3.4.3界面設計與重點(diǎn)難點(diǎn)代碼的設計
該模塊需要查詢(xún)者輸入準考證號后來(lái)查看結果。若ID1不為空時(shí),表示有表單輸入,開(kāi)始查詢(xún)數據庫。使用 SELECT的SQL指令查詢(xún)數據庫的數據。先設定SQL指令,查詢(xún)ID符合準考證編號Request.Form("ID1")的數據,下個(gè)“Execute”指令,即可開(kāi)始執行存取、查詢(xún)數據的動(dòng)作了。并將查詢(xún)結果儲存到Recordsets組件RS中。
IF Request.Form("ID1")<>"" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("FILEDSN=c:\Program Files\Common Files\ODBC\Data Sources\ms access database.dsn")
SQL = "SELECT name,id,score FROM stud WHERE id='" & Request.Form("ID1") & "'"
Set RS = Conn.Execute(SQL)
<< 上一頁(yè) [11] [12] [13] [14] [15] [16] 下一頁(yè)