自考“計(jì)算機(jī)及應(yīng)用”專(zhuān)業(yè)論文參考范文（28） -自考串講筆記

　　圖書(shū)頁(yè)面

　　圖書(shū)頁(yè)面的代碼顯示圖書(shū)的有關(guān)信息，以及管理圖書(shū)的出借操作。

　　該頁(yè)面通過(guò)Querystring 傳遞BookID

　　if isempty（Request.QueryString（“BookID”）） then

　　Response.Redirect “。/search.html”

　　end if

　　如果其中不存在，則訪(fǎng)問(wèn)者將被重定向到搜索頁(yè)面：

　　如果同時(shí)傳遞表單中包含的變量Action不為空，則表明訪(fǎng)問(wèn)者正借閱該圖書(shū)：

　　if Not isempty（Request.QueryString（“Action”）） then

　　在這種情況下，需要將圖書(shū)狀態(tài)改為 Checkout， 同時(shí)需要將Checkedoutto 字段修改為該訪(fǎng)問(wèn)者：

　　conn.Execute “update LibBooks set Status = 'Checked Out'， ” _

　　& “CheckedOutTo = ” & Session（“EmpID”） & “ where BookID = ” _

　　& Request.QueryString（“BookID”）

　　Response.Redirect “。/library_menu.asp”

　　end if

　　然后將該訪(fǎng)問(wèn)者重定到圖書(shū)館菜單頁(yè)面：

　　下一步，利用圖書(shū)的狀態(tài)來(lái)確定不同的鏈接

　　未借出時(shí)鏈接如下：

　　if RSBooks（“status”） = “Available” then

　　LinkText = “<A HREF=”“……/html/book.asp？Action=CheckOut&BookID=” _

　　& Request.QueryString（“BookID”） & “”“>借這本書(shū)</A>”

　　如果圖書(shū)已經(jīng)借出，就創(chuàng)建一個(gè)不同的消息，并將鏈接設(shè)置為指向Library menu 頁(yè)面：

　　LinkText = “<A HREF=”“……/html/library_menu.asp”“>圖書(shū)已出借，返回主菜單。</A>”

　　最后根據(jù)是否是管理員，顯示管理員菜單鏈接。

　　<% If Session（“Manager”） = 1 then %><A HREF=“……/html/management_menu.asp？title=<% response.write RSBooks（”Title“） %>&BOOKID=<% response.write RSBooks（”BOOKID“） %>”>管理員菜單</A><% end if %>

　　3.3網(wǎng)上評(píng)優(yōu)投票系統(tǒng)

　　3.3.1功能：

　　能實(shí)現(xiàn)全校性的評(píng)選，快捷、公平，且有效，不允許做票。

　　3.3.2組成構(gòu)造

　　這個(gè)系統(tǒng)由3個(gè)部分組成——投票頁(yè)面vote.htm ，處理投票結(jié)果的腳本，顯示投票頁(yè)面 .

　　3.3.3數(shù)據(jù)表的設(shè)計(jì)：

　　3.3.4界面設(shè)計(jì)與重點(diǎn)、難點(diǎn)代碼設(shè)計(jì)

　　投票頁(yè)面

　　該頁(yè)面是一個(gè)純HTML文件，它讓用戶(hù)選擇自己想選舉的候選人，并填寫(xiě)自己的詳細(xì)資料，以確認(rèn)投票的有效性。頁(yè)面顯示如圖所示。

　　表單處理腳本

　　在vote.htm中各項(xiàng)數(shù)據(jù)都填寫(xiě)完畢后，單擊確定投票按鈕，表單的數(shù)據(jù)就被提交，

　　本次評(píng)優(yōu)共有4個(gè)候選人，但只能選兩個(gè)。故用復(fù)選框。

　　投票的有效性通過(guò)是否是本校學(xué)生，且是否投過(guò)票來(lái)判斷。

　　if request（“passno”）<>“” then

　　sql=“select * from stud where password=”&“'”&request（“passno”）&“'” &“and yitu=0”

　　set rs=cn.execute（sql）

　　if rs.eof then%>

　　<h2 align=center><%response.write“你無(wú)權(quán)投票”%></h2>

　　本設(shè)計(jì)允許少選，不允許多選。通過(guò)判斷Vote投票界面?zhèn)鬟f過(guò)來(lái)的復(fù)選按紐值的長(zhǎng)度看是否多選。

　　vo=request（“cand”）

　　if len（vo）>4 then%>

　　<h2 align=center><%response.write “多選了，無(wú)效”%></h2>

　　然后根據(jù)所投的票將對(duì)應(yīng)候選人的投票結(jié)果字段加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%>

　　顯示當(dāng)前投票情況show.asp

　　由于投票處理頁(yè)面已經(jīng)完成了絕大部分的工作，所以 顯示結(jié)果頁(yè)面就很簡(jiǎn)單了，其功能是從 Stud表文件中讀取候選人所得票數(shù)，顯示在頁(yè)面上。