自考計算機應(yīng)用畢業(yè)論壇-校園網(wǎng)站設(shè)計
日期:
2014/1/5 8:45:38 來源:
本站原創(chuàng) 訪問量:
次
而管理者頁面通過下列語句
<%=request.querystring("title")%>
<inputzztype=hidden name="BOOKID1"value="<%=request.querystring("BOOKID")%>>
這樣就將所找到的書的書號BookID、書名Title傳遞管理者頁面。再進行所須操作。共有3個不同的銨紐,可以進行3種操作。若單擊“修改”鈕:
則重定向到編輯圖書頁面,同時把Bookid 傳遞給該頁面。
Response.Redirect "./edit_book.asp?BOOKID="&request("BOOKID1")
將其他的情況需要建立到數(shù)據(jù)庫的連接:
set conn = server.createobject ("adodb.connection")
Conn.Open("FILEDSN=c:\Program Files\Common Files\ODBC\Data Sources\ms access database.dsn")
if NOT isempty(Request.Form("Delete")) and request("BOOKID1")<>"" then
conn.Execute "delete from LibBooks where BOOKID ="&request("BOOKID1")
end if
if (NOT isempty(Request.Form("checkin"))) and request("BOOKID1")<>"" then
conn.Execute "update LibBooks set checkedoutto= 0, status= 'Available' where BookID="&Request("BOOKID1")
end if
頁面中的添加新的種類部分包含一個文本控件和一個選擇控件。其中選擇控件是用所有已經(jīng)存在的類別列表進行填充的,包括特殊類別 Top level ,該類別表明當(dāng)前類別是處于類別層次結(jié)構(gòu)中的最頂層。代碼如下:
先用一個記錄集來填充父類別選擇控件:
set RSCategories = conn.Execute("select CategoryName from LibCategories order by CategoryName")
再用下列循環(huán)語句:
<%
Do Until RSCategories.EOF
%>
<OPTION VALUE="<% response.write RSCategories("CategoryName") %>"><% response.write RSCategories("CategoryName") %></OPTION>
<%
RSCategories.MoveNext
Loop
%>
遍歷RSCategories記錄集中的每個記錄,并作為一個選項添加到列表中,而記錄集中CategoryName 同時作為顯示值和傳遞值:
本頁面還包含一個指向添加圖書頁面的鏈接。
搜索結(jié)果頁面
搜索頁面的代碼獲取與訪問者查找規(guī)則相匹配的圖書,然后將這些圖書顯示給訪問者。
搜索頁面上的表單包含一個選擇控件和一個文本控件。選擇控件中的選項是用可搜索 的字段填充的:
需要用一個記錄集來保存與訪問者的查找規(guī)則相匹配的記錄:
set RSBooks = conn.Execute("select BookID, Author, Title, Subject from LibBooks where " _
& Request.Form("SearchField") & " Like '%" & Request.Form("SearchCriteria") & "%'")
注意:,符號%表示的是一個廣義搜索。這一點類似于ACCESS中的符號*。
然后將所找到的書以表格形式顯示出來。代碼如下:
<% Do Until RSBooks.EOF %>
<TR VALIGN="top" ALIGN="left">
<TD WIDTH=40% height="20"><B>書名:</B> <A HREF="../html/book.asp?BookID=<% Response.Write RSBooks("BookID") %>"><% Response.Write RSBooks("Title") %></A></TD>
<td width=20% height="20"><B>著者:</B> <% Response.Write RSBooks("Author") %></td>
<td width=30% height="20"><B>主題:</B> <% Response.Write RSBooks("Subject") %> </td>
<% RSBooks.MoveNext
Loop %>
圖書頁面
圖書頁面的代碼顯示圖書的有關(guān)信息,以及管理圖書的出借操作。
該頁面通過Querystring 傳遞BookID
if isempty(Request.QueryString("BookID")) then
Response.Redirect "./search.html"
end if
如果其中不存在,則訪問者將被重定向到搜索頁面:
如果同 << 上一頁 [11] [12] [13] [14] [15] [16] 下一頁