|
论文大纲，目录 |
| 关键词搜索： |
Name") %>
<%
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 %>
书名: "><% Response.Write RSBooks("Title") %>
著者: <% Response.Write RSBooks("Author") %>
主题: <% Response.Write RSBooks("Subject") %>
<% RSBooks.MoveNext
Loop %>
图书页面
图书页面的代码显示图书的有关信息，以及管理图书的出借操作。
该页面通过Querystring 传递BookID
if isempty(Request.QueryString("BookID")) then
Response.Redirect "./search.html"
end if
如果其中不存在，则访问者将被重定向到搜索页面：
如果同时传递表单中包含的变量Action不为空，则表明访问者正借阅该图书：
if Not isempty(Request.QueryString("Action")) then
在这种情况下，需要将图书状态改为 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
然后将该访问者重定到图书馆菜单页面：
无忧论文 【http://www.uklunwen.com】
下一步，利用图书的状态来确定不同的链接
未借出时链接如下：
if RSBooks("status") = "Available" then
LinkText = "& Request.QueryString("BookID") & """>借这本书"
如果图书已经借出，就创建一个不同的消息，并将链接设置为指向Library menu 页面：
LinkText = "图书已出借，返回主菜单。"
最后根据是否是管理员，显示管理员菜单链接。
<% If Session("Manager") = 1 then %>&BOOKID=<% response.write RSBooks("BOOKID") %>">管理员菜单<% end if %>
3.3网上评优投票系统
3.3.1功能：
能实现全校性的评选，快捷、公平，且有效，不允许做票。
3.3.2组成构造
这个系统由3个部分组成——投票页面vote.htm ，处理投票结果的脚本，显示投票页面 。
3．3．3数据表的设计：
3．3．4界面设计与重点、难点代码设计
投票页面
该页面是一个纯HTML文件，它让用户选择自己想选举的候选人，并填写自己的详细资料，以确认投票的有效性。页面显示如图所示。
表单处理脚本
在vote.htm中各项数据都填写完毕后，单击确定投票按钮，表单的数据就被提交，
本次评优共有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投票界面传递过来的复选按纽值的长度看是否多选。
vo=request("cand")
if len(vo)>4 then%>
<%response.write "多选了，无效"%>
然后根据所投的票将对应候选人的投票结果字段加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='杨兰'" |
|
|
第1页 第2页 第3页 第4页 第5页 第6页 第7页 |
|
|
| 上一篇：ASP技术访问WEB数据库下一篇：网络办公自动化系统开发分析
|
| 最新论文 |
最热门论文 |
|
|
|
|
|
