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

　　圖書頁面

　　圖書頁面的代碼顯示圖書的有關信息，以及管理圖書的出借操作。

　　該頁面通過Querystring 傳遞BookID

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

　　Response.Redirect “。/search.html”

　　end if

　　如果其中不存在，則訪問者將被重定向到搜索頁面：

　　如果同時傳遞表單中包含的變量Action不為空，則表明訪問者正借閱該圖書：

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

　　在這種情況下，需要將圖書狀態(tài)改為 Checkout， 同時需要將Checkedoutto 字段修改為該訪問者：

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

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

　　& Request.QueryString（“BookID”）

　　Response.Redirect “。/library_menu.asp”

　　end if

　　然后將該訪問者重定到圖書館菜單頁面：

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

　　未借出時鏈接如下：

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

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

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

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

　　LinkText = “<A HREF=”“……/html/library_menu.asp”“>圖書已出借，返回主菜單。</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)上評優(yōu)投票系統(tǒng)

　　3.3.1功能：

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

　　3.3.2組成構(gòu)造

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

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

　　3.3.4界面設計與重點、難點代碼設計

　　投票頁面

　　該頁面是一個純HTML文件，它讓用戶選擇自己想選舉的候選人，并填寫自己的詳細資料，以確認投票的有效性。頁面顯示如圖所示。

　　表單處理腳本

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

　　本次評優(yōu)共有4個候選人，但只能選兩個。故用復選框。

　　投票的有效性通過是否是本校學生，且是否投過票來判斷。

　　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“你無權(quán)投票”%></h2>

　　本設計允許少選，不允許多選。通過判斷Vote投票界面?zhèn)鬟f過來的復選按紐值的長度看是否多選。

　　vo=request（“cand”）

　　if len（vo）>4 then%>

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

　　然后根據(jù)所投的票將對應候選人的投票結(jié)果字段加1，同時將該投票人的已投字段置為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

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