别层次结构中的最顶层。代码如下：

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

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

再用下列循环语句：



>



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

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

搜索结果页面



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

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

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

set RSBooks = conn.Execute(select BookID, Author, Title, Subject from LibBooks where _

& Request.Form(SearchField) & Like % & Request.Form(SearchCriteria) & %)



注意：，符号%表示的是一个广义搜索。这一点类似于ACCESS中的符号*。

然后将所找到的书以表格形式显示出来。代码如下：





书名: >

著者:

主题:  



图书页面



图书页面的代码显示图书的有关信息，以及管理图书的出借操作。

该页面通过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

然后将该访问者重定到图书馆菜单页面：

下一步，利用图书的状态来确定不同的链接

未借出时链接如下：

if RSBooks(status) = Available then

LinkText = 借这本书

如果图书已经借出，就创建一个不同的消息，并将链接设置为指向Library menu 页面：

LinkText = 图书已出借，返回主菜单。

最后根据是否是管理员，显示管理员菜单链接。

&BOOKID=>管理员菜单



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=com.execute(sql)

if rs.eof then%>



本设计允许少选，不允许多选。通过判断Vote投票界面传递过来的复选按纽值的长度看是否多选。

vo=request(cand)

if len(vo)>4 then%>





然后根据所投的票将对应候选人的投票结果字段加1，同时将该投票人的已投字段置为1。

sqq=update stud set yitu=1 where password=&&request(passno)&

com.execute(sqq)

if instr(vo,1) then

com.execute(update stud set result=result+1 where name=李宁)

end if

if instr(vo,2) then



com.execute(update stud set result=result+1 where name=杨兰)

end if

if instr(vo,3) then

com.execute(update stud set result=result+1 where name=江道明)

end if

if instr(vo,4) then

com.execute(update stud set result=result+1 where name=段启文)

end if%>

显示当前投票情况show.asp

由于投票处理页面已经完成了绝大部分的工作，所以 显示结果页面就很简单了，其功能是从 Stud表文件中读取候选人所得票数，显示在页面上。

页面显示如图



值得注意的代码主要有以下几处：

该页面有自动刷新功能，使在线用户可以尽快的看到最新的选举情况。我们这里设定每隔30秒钟自动刷新一次。





显示投票时，我们采用了while循环，把候选人及其得票数，整齐地显示在一个表格中，这种技术在数据库查询结果的显示中也经常用到。代码如下：























3．4达级考试在线查分系统与计数器的制作

3．4．1功能：

它提供了在线查看成绩。考生可以在网上使用这一系统，通过输入准考证编号来查询达级考试的结果。

3．4．2数据表的设计

与评优系统共用STUd表，表设计同上。

3．4．3界面设计与重点难点代码的设计

该模块需要查询者输入准考证号后来查看结果。若ID1不为空时，表示有表单输入，开始查询数据库。使用 SELECT的SQL指令查询数据库的数据。先设定SQL指令，查询ID符合准考证编号Request.Form(ID1)的数据，下个“Execute”指令，即可开始执行存取、查询数据的动作了。并将查询结果储存到Recordsets组件RS中

上一页  [1] [2] [3] [4] [5] [6]  下一页