web小型图书馆管理系统_第1页
web小型图书馆管理系统_第2页
web小型图书馆管理系统_第3页
web小型图书馆管理系统_第4页
web小型图书馆管理系统_第5页
已阅读5页，还剩5页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、精选优质文档-倾情为你奉上Web程序设计（2010-2011学年下学期）实验报告班级：08计算机科学与技术（2）学号： 姓名： 小型图书馆管理系统一、总体设计思想和结构：这是一个简单的图书馆管理系统，它包含管理员和读者两个权限，管理员可以添加、修改、删除书籍信息，读者可以查询书籍信息。一共包含14个文件，其文件名和作用分别如下：index.html：该系统首页，设有管理员和读者两个入口；mana.asp：管理员登录界面，若账号或密码错误，则重新输入，否则进入管理界面；checkpass.asp：检查管理员登录时，账号与密码输入是否正确；mmm.asp：管理员可操作界面，可分别进行修改、添加、删

2、除书本信息，或返回首页；delete.asp：删除书本信息的关键程序；add.asp：添加书本信息的输入界面；do_add.asp：执行添加书本信息的关键程序；update.asp：更改书本信息的输入界面；do_update.asp：执行更改书本信息的关键程序；read.html：读者界面的框架结构；11.asp：框架结构的上面框架，可进行全部查询和按条件关键字查询书籍；22.html：框架结构的下面框架；allbook.asp：显示全部书籍的关键程序；search.asp：按条件关键字查询书籍的关键程序。二、系统流程图三、数据库结构数据库“lll”一共包含2张表，分别是book和manage

3、r。四、关键技术/关键代码1、11.asp<body><center><h2>书籍查询</h2><a href="allbook.asp" target="22">全部书籍</a><br><form method=post action="search.asp" target="22">按条件查询：<br>请输入关键字:<input type=text name="key" size

4、=10 value=""><select name="ke"><option value="书名" <% If ke="书名" Then Response.Write "Selected"%>>书名</a></option><option value="类型" <% If ke="类型" Then Response.Write "Selected"%>&

5、gt;类型</a></option><option value="出版社" <% If ke="出版社" Then Response.Write "Selected"%>>出版社</a></option></select><input type=submit value="查询"></form></center></body>2、add.asp<div id="Laye

6、r1" style="position:absolute;width:360px;height:402px; z-index:1;left:21px;top:22px; "><form name="form2" method="post" action="do_add.asp"> <p>书名<textarea name="name1" cols=45 rows=3 id="name1"></textarea>&l

7、t;/p> <p>作者<textarea name="writer1" cols=45 rows=3 id="writer1"></textarea></p> <p>价格<textarea name="price1" cols=45 rows=3 id="price1"></textarea></p> <p>类型<textarea name="type1" cols=45 ro

8、ws=3 id="type1"></textarea></p> <p>出版社<textarea name="press1" cols=45 rows=3 id="press1"></textarea></p> <p>出版日期<textarea name="date1" cols=45 rows=3 id="date1"></textarea></p><input t

9、ype=submit value="提交"></form></div>3、do_add.asp<%If Request.Form("name1")<>"" And Request.Form("type1")<>"" ThenDim dbSet db=Server.CreateObject("ADODB.Connection")db.open"driver=SQL server;server=B46CDEFA

10、3C304D2;user id=sa; password=sa;database=lll"Dim varName,varWriter,varPrice,varTyp,varPress,varDate,strSqlvarName=Request.Form("name1")varWriter=Request.Form("writer1")varPrice=Request.Form("price1")varTyp=Request.Form("type1")varPress=Request.Form("

11、press1")varDate=Request.Form("date1")StrSql="Insert Into book(书名,作者,出版日期,价格,类型,出版社) Values ('" & varName & "','" & varWriter & "','" & varDate & "','" & varPrice & "','&quo

12、t; & varTyp & "','" & varPress & "')"db.Execute(strSql)Response.Redirect "mmm.asp"Else Response.Write "必须填写书号、书名和类型！" Response.Write "<br>" Response.Write "<a href='add.asp'>重新添加</a>"End

13、 If %>4、allbook.asp<% Option Explicit %><html><%Dim dbSet db=Server.CreateObject("ADODB.Connection")db.Open "driver=SQL server;server=B46CDEFA3C304D2;user id=sa; password=sa;database=lll"Dim strSql,rsstrSql="Select * From book Order By 书号 Desc"Set rs=d

14、b.Execute(strSql)%><center><table border="1" width="100%"><tr bgcolor="#FF99FF"><td>书号</td><td>书名</td><td>作者</td><td>价格</td><td>出版社</td><td>出版日期</td><td>类型</td></

15、tr><%Do While Not rs.Eof%><tr><td><%=rs("书号")%></td><td><%=rs("书名")%></td><td><%=rs("作者")%></td><td><%=rs("价格")%></td><td><%=rs("出版社")%></td><

16、td><%=rs("出版日期")%></td><td><%=rs("类型")%></td></tr><%rs.MoveNextLoop%></table></center></html>5、delete.asp<% Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open "driver=SQL server;server=B46

17、CDEFA3C304D2;user id=sa; password=sa;database=lll" db.Execute "delete from book where 书号='"&Request.QueryString("书号")&"'"Response.Redirect "mmm.asp" %>6、checkpass.asp<%Dim na,pwdna=Request.Form("n")pwd=Request.Form("pw

18、d")Dim db,rs,sqlSet db=Server.CreateObject("ADODB.Connection")db.open "driver=SQL server;server=B46CDEFA3C304D2;user id=sa; password=sa;database=lll"set rs=Server.CreateObject("ADODB.Recordset")sql="select * from manager where 管理员名字='"&na&&quo

19、t;'"rs.open sql,db,1,1if rs.eof then Response.Write("用户名不存在！")Response.Write"<a href=mana.asp>"Response.Write"重新登录</a>"Response.Endelseif rs("密码")<>pwd thenResponse.Write("密码输入错误！")Response.Write"<a href=mana.asp>

20、;"Response.Write"重新登录</a>"Response.EndelseResponse.Redirect("mmm.asp")Response.Endend ifrs.closeset rs=nothingdb.closeset db=nothing%>7、do_update.aspstrSql="Update book Set 书名='" & varName & "',作者='" & varWriter & &quo

21、t;',价格='" & varPrice & "',出版社='" & varPress & "',出版日期='" & varDate & "',类型='" & varTyp & "' where 书号=" & iddb.Execute(strSql) 8、search.asp<body><table border="1" wi

22、dth="900" align="center"><tr bgcolor="#B7B7B7" align="center"><td width="60" height="30"><b>书号</b></td><td width="200"><b>书名</b></td><td width="120"><b>

23、;作者</b></td><td width="90" ><b>价格</b></td><td width="200"><b>出版社</b></td><td width="120"><b>出版日期</b></td><td width="110"><b>类型</b></td></tr><%D

24、im dbSet db=Server.CreateObject("ADODB.Connection")db.Open "driver=SQL server;server=B46CDEFA3C304D2;user id=sa; password=sa;database=lll"Dim key,ke If Request.Form("key")<>"" Thenkey=Request.Form("key")ke=Request.Form("ke")Elsekey=&q

25、uot;"ke="书号"End IfDim Sql,rsIf key<>"" ThenSql="Select * From book Where " & ke & " Like '%" & key & "%'"ElseSql="Select * From book" End IfSet rs=db.execute(Sql)Do While Not rs.Eof %><tr bgcolor="#F2F2F2" align="center"><td><%=rs("书号")%></td><td><%=rs("书名")%></td><td><%=rs("作者")%></td><td><%=rs("价格")%></td><td><%=rs("出版社")%></td

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论