圖書頁面
圖書頁面的代碼顯示圖書的有關信息，以及管理圖書的出借操作。
該頁面通過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 = “
& Request.QueryString（“BookID”） & “”“>借這本書”
如果圖書已經(jīng)借出，就創(chuàng)建一個不同的消息，并將鏈接設置為指向Library menu 頁面：
LinkText = “圖書已出借，返回主菜單?！?BR> 最后根據(jù)是否是管理員，顯示管理員菜單鏈接。
<% If Session（“Manager”） = 1 then %>&BOOKID=<% response.write RSBooks（”BOOKID“） %>”>管理員菜單<% end if %>
3.3網(wǎng)上評優(yōu)投票系統(tǒng)
3.3.1功能：
能實現(xiàn)全校性的評選，快捷、公平，且有效，不允許做票。
3.3.2組成構造
這個系統(tǒng)由3個部分組成——投票頁面vote.htm ，處理投票結果的腳本，顯示投票頁面 .
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%>
<%response.write“你無權投票”%>
本設計允許少選，不允許多選。通過判斷Vote投票界面?zhèn)鬟f過來的復選按紐值的長度看是否多選。
vo=request（“cand”）
if len（vo）>4 then%>
<%response.write “多選了，無效”%>
然后根據(jù)所投的票將對應候選人的投票結果字段加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)完成了絕大部分的工作，所以 顯示結果頁面就很簡單了，其功能是從 Stud表文件中讀取候選人所得票數(shù)，顯示在頁面上。
圖書頁面的代碼顯示圖書的有關信息，以及管理圖書的出借操作。
該頁面通過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 = “
& Request.QueryString（“BookID”） & “”“>借這本書”
如果圖書已經(jīng)借出，就創(chuàng)建一個不同的消息，并將鏈接設置為指向Library menu 頁面：
LinkText = “圖書已出借，返回主菜單?！?BR> 最后根據(jù)是否是管理員，顯示管理員菜單鏈接。
<% If Session（“Manager”） = 1 then %>&BOOKID=<% response.write RSBooks（”BOOKID“） %>”>管理員菜單<% end if %>
3.3網(wǎng)上評優(yōu)投票系統(tǒng)
3.3.1功能：
能實現(xiàn)全校性的評選，快捷、公平，且有效，不允許做票。
3.3.2組成構造
這個系統(tǒng)由3個部分組成——投票頁面vote.htm ，處理投票結果的腳本，顯示投票頁面 .
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%>
<%response.write“你無權投票”%>
本設計允許少選，不允許多選。通過判斷Vote投票界面?zhèn)鬟f過來的復選按紐值的長度看是否多選。
vo=request（“cand”）
if len（vo）>4 then%>
<%response.write “多選了，無效”%>
然后根據(jù)所投的票將對應候選人的投票結果字段加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)完成了絕大部分的工作，所以 顯示結果頁面就很簡單了，其功能是從 Stud表文件中讀取候選人所得票數(shù)，顯示在頁面上。