您的位置:自考365 > 复习指导 > 笔记串讲 > 工学 > 自考“计算机及应用”专业论文参考范文(27)

自考“计算机及应用”专业论文参考范文(27)

2007-04-26 10:52   【 】【我要纠错

  管理菜单页面

  管理菜单页面有一个HTML表单,根据选择的按钮的不同,可以进行5种不同的操作:图书的归还、图书的编辑、图书的删除、图书的添加和类别的添加。不管选择了哪一个按钮,该表单都提交人其自身进行处理。

  要进行图书的归还、图书的编辑、图书的删除三种操作,须先进行搜索,找到该书后,由图书Book.asp返回一个链接:

  <% If Session(“Manager”) = 1 then %>

  <A HREF=“……/html/management_menu.asp?title=<% response.write RSBooks(”Title“) %>&BOOKID=<% response.write RSBooks(”BOOKID“) %>”>管理员菜单</A>

  <% end if %>

  而管理者页面通过下列语句

  <%=request.querystring(“title”)%>

  <inputzztype=hidden name=“BOOKID1”value=“<%=request.querystring(”BOOKID“)%>>

  这样就将所找到的书的书号BookID、书名Title传递管理者页面。再进行所须操作。共有3个不同的铵纽,可以进行3种操作。若单击“修改”钮:

  则重定向到编辑图书页面,同时把Bookid 传递给该页面。

  Response.Redirect “。/edit_book.asp?BOOKID=”&request(“BOOKID1”)

  将其他的情况需要建立到数据库的连接:

  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

  页面中的添加新的种类部分包含一个文本控件和一个选择控件。其中选择控件是用所有已经存在的类别列表进行填充的,包括特殊类别 Top level ,该类别表明当前类别是处于类别层次结构中的最顶层。代码如下:

  先用一个记录集来填充父类别选择控件:

  set RSCategories = conn.Execute(“select CategoryName from LibCategories order by CategoryName”)

  再用下列循环语句:

  <%

  Do Until RSCategories.EOF

  %>

  <OPTION VALUE=“<% response.write RSCategories(”CategoryName“) %>”><% response.write RSCategories(“CategoryName”) %></OPTION>

  <%

  RSCategories.MoveNext

  Loop

  %>

  遍历RSCategories记录集中的每个记录,并作为一个选项添加到列表中,而记录集中CategoryName 同时作为显示值和传递值:

  本页面还包含一个指向添加图书页面的链接。

  搜索结果页面

  搜索页面的代码获取与访问者查找规则相匹配的图书,然后将这些图书显示给访问者。

  搜索页面上的表单包含一个选择控件和一个文本控件。选择控件中的选项是用可搜索 的字段填充的:

  需要用一个记录集来保存与访问者的查找规则相匹配的记录:

  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 %>

本文转载链接:自考“计算机及应用”专业论文参考范文(27)

分享到:
  • 站内搜索
  • 课程搜索
  • 试题搜索

热门搜索:教材 报名 查分 免考 考试计划