学历改变命运
24小时客服:4008135555/010-82335555
当前位置:首页 > 笔记串讲 > 自考“计算机及应用”专业论文参考范文(28

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

2007年04月26日    来源:   字体:   打印

  图书页面

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

  该页面通过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 = “<A HREF=”“……/html/book.asp?Action=CheckOut&BookID=” _

  & Request.QueryString(“BookID”) & “”“>借这本书</A>”

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

  LinkText = “<A HREF=”“……/html/library_menu.asp”“>图书已出借,返回主菜单。</A>”

  更后根据是否是管理员,显示管理员菜单链接。

  <% If Session(“Manager”) = 1 then %><A HREF=“……/html/management_menu.asp?title=<% response.write RSBooks(”Title“) %>&BOOKID=<% response.write RSBooks(”BOOKID“) %>”>管理员菜单</A><% 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%>

  <h2 align=center><%response.write“你无权投票”%></h2>

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

  vo=request(“cand”)

  if len(vo)>4 then%>

  <h2 align=center><%response.write “多选了,无效”%></h2>

  然后根据所投的票将对应候选人的投票结果字段加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

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

关闭