第14章--图书管理系统实例课件.ppt

1、网页设计与制作教程网页设计与制作教程(第第2版版)机械工业出版社同名教材配套电子教案第第14章章 图书管理系统实例图书管理系统实例14.1 任务要求14.2 开发环境14.3 界面设计14.4 数据库设计 使用Access 2002建立一个book.mdb数据库将其保存在C:Inetpubwwwrootbook文件夹中也就是站内，库中有一个名为mytable的表。14.5 代码设计 使用FrontPage 2002的模板创建一个目录型框架页。主框架的文件名为default.htm代码清单如下：图书管理系统 此网页使用了框架，但您的浏览器不支持框架。左框架文件名为left.asp，图书管理系统的

2、功能界面在此页中显示。该页代码用于用户输入信息，根据用户输入的不同信息来触发服务器上对应的程序。该页代码清单如下：图书管理系统 图书查询请输入作者：添加新书书名：作者：删除图书:(输入编号)借阅图书图书编号：借阅人：归还图书：(输入编号)右框架页文件名为right.asp。本页程序用于判断数据库中是否有图书，如果有图则显示图书的目录和借阅情况。代码清单如下：图书管理系统 图书编号 书名作者是否在架借阅人 查询网页执行程序代码文件名为find.asp。本页程序用于当用户在查询表单中输入了要查询图书作者名子后将是该作者的图书显示出来。代码清单如下：图书管理%dim author,sql,rs,co

3、nn,totalput 声明变量set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库c o n n =D B Q=+s e r v e r.m a p p a t h(b o o k.m d b )+;DefaultDir=;DRIVER=Microsoft Access Driver(*.mdb);判断查询变量是否为空值。不为空使用该变量检索数据库，为空检索整个数据库if Request.form(author)thensql=select*from mytable where author like%&a

4、uthor&%elsesql=select*from mytableend ifRs.Open sql,conn,1,1 使用recordset对象的recordcount属性取得当前记录集的记录个数totalput=Rs.RecordCountif Rs.EOF and Rs.BOF thenResponse.Write 当前没有图书.else%符合条件的共有 本图书 图书编号 书名作者是否在架借阅人 添加图书执行程序代码文件名为add.asp。本页程序用于当用户执行添加图书表单的命令按钮后，将正确的图书信息输入数据库。代码清单如下：%以判断用户是否输入完整图书的信息if Request.f

5、orm(text1)=thenresponse.write&chr(13)&alert(请输入书名！);&history.back()&Response.Endend ifif Request.form(text2)=thenresponse.write&chr(13)&alert(请输入作者！);&history.back()&Response.Endend ifdim name,author,sql,rs,conn 声明变量name=Request.form(text1)赋值author=Request.form(text2)set Rs=server.createobject(adodb

6、.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL语句将用户输入的数据插入数据库sql=insert into mytable(name,author)values(&name&,&author&)Rs.Open sql,conn,1,1response.redirect right.asp 转到right.asp页%删除图书页文件名为del.asp。本页程序当用户执行删除图书表单中的命令按钮后执行，用于删除数据

7、库中的图书。代码清单如下：%将变量text3从表单中取出，以判断用户是否输入了图书编号if Request.form(text3)=thenresponse.write&chr(13)&alert(请输入图书编号！);&history.back()&Response.Endend ifdim sql,rs,conn,id 声明变量id=Request.form(text3)获取图书编号set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0

8、;Data Source=&Server.MapPath(book.mdb)使用SQL语句删除数据sql=delete from mytable where id=+idRs.Open sql,connresponse.redirect right.asp 转到right.asp页%借阅图书执行程序代码文件名为land.asp。本页程序用于当用户执行了借阅表单命令按钮后执行，用户输入正确的图书编号后程序将该图做标记并显示出来。代码清单如下：%判断是否输入了借书信息if Request.form(text4)=thenresponse.write&chr(13)&alert(请输入图书编号！);

9、&history.back()&Response.Endend ifif Request.form(text6)=thenresponse.write&chr(13)&alert(请输入借阅人姓名！);&history.back()&Response.Endend ifdim sql,rs,conn,islend,id,username 声明变量id=Request.form(text4)username=Request.form(text6)islend=trueset rs=server.createobject(adodb.recordset)使用recordset对象连接book.md

10、b数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL更新数据，注意单引号与双引号的使用 单引号作为字符串的分界符，双引号用作变量sql=update mytable set islend=&islend&,username=&username&where id=+idrs.Open sql,connresponse.redirect right.asp 转到right.asp页%还书执行程序代码文件名为still.asp，本页程序用于当用户执行了还书表单命令后，将借书标记清除并显

11、示出在架信息。代码清单如下：%将变量text5从表单中取出，以判断用户是否输入了图书编号if Request.form(text5)=thenresponse.write&chr(13)&alert(请输入图书编号！);&history.back()&Response.Endend ifdim sql,rs,conn,islend,id,name,author 声明变量id=Request.form(text5)将取出的编号变量赋给IDislend=false 赋值，用于取出的图书set Rs=server.createobject(adodb.recordset)使用recordset对象连

12、接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL语句更新数据sql=update mytable set islend=&islend&,username=where id=+idRs.Open sql,connresponse.redirect right.asp 转到right.asp页%14.6 在浏览器中测试习题14 14.1 为图书管理添加按图名查询程序代码。14.2 请参看第13.7节“分页技术”为图书管理添加分页模块。如果右框架页超过20条记录则分页显示。