web小型圖書(shū)館管理系統(tǒng)_第1頁(yè)
web小型圖書(shū)館管理系統(tǒng)_第2頁(yè)
web小型圖書(shū)館管理系統(tǒng)_第3頁(yè)
web小型圖書(shū)館管理系統(tǒng)_第4頁(yè)
web小型圖書(shū)館管理系統(tǒng)_第5頁(yè)
已閱讀5頁(yè)，還剩5頁(yè)未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Web程序設(shè)計(jì)（2010-2011學(xué)年下學(xué)期）實(shí)驗(yàn)報(bào)告班級(jí)：08計(jì)算機(jī)科學(xué)與技術(shù)（2）學(xué)號(hào)： 姓名： 小型圖書(shū)館管理系統(tǒng)一、總體設(shè)計(jì)思想和結(jié)構(gòu)：這是一個(gè)簡(jiǎn)單的圖書(shū)館管理系統(tǒng)，它包含管理員和讀者兩個(gè)權(quán)限，管理員可以添加、修改、刪除書(shū)籍信息，讀者可以查詢書(shū)籍信息。一共包含14個(gè)文件，其文件名和作用分別如下：index.html：該系統(tǒng)首頁(yè)，設(shè)有管理員和讀者兩個(gè)入口；mana.asp：管理員登錄界面，若賬號(hào)或密碼錯(cuò)誤，則重新輸入，否則進(jìn)入管理界面；checkpass.asp：檢查管理員登錄時(shí)，賬號(hào)與密碼輸入是否正確；mmm.asp：管理員可操作界面，可分別進(jìn)行修改、添加、刪

2、除書(shū)本信息，或返回首頁(yè)；delete.asp：刪除書(shū)本信息的關(guān)鍵程序；add.asp：添加書(shū)本信息的輸入界面；do_add.asp：執(zhí)行添加書(shū)本信息的關(guān)鍵程序；update.asp：更改書(shū)本信息的輸入界面；do_update.asp：執(zhí)行更改書(shū)本信息的關(guān)鍵程序；read.html：讀者界面的框架結(jié)構(gòu)；11.asp：框架結(jié)構(gòu)的上面框架，可進(jìn)行全部查詢和按條件關(guān)鍵字查詢書(shū)籍；22.html：框架結(jié)構(gòu)的下面框架；allbook.asp：顯示全部書(shū)籍的關(guān)鍵程序；search.asp：按條件關(guān)鍵字查詢書(shū)籍的關(guān)鍵程序。二、系統(tǒng)流程圖三、數(shù)據(jù)庫(kù)結(jié)構(gòu)數(shù)據(jù)庫(kù)“l(fā)ll”一共包含2張表，分別是book和manage

3、r。四、關(guān)鍵技術(shù)/關(guān)鍵代碼1、11.asp<body><center><h2>書(shū)籍查詢</h2><a href="allbook.asp" target="22">全部書(shū)籍</a><br><form method=post action="search.asp" target="22">按條件查詢：<br>請(qǐng)輸入關(guān)鍵字:<input type=text name="key" size

4、=10 value=""><select name="ke"><option value="書(shū)名" <% If ke="書(shū)名" Then Response.Write "Selected"%>>書(shū)名</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>書(shū)名<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>價(jià)格<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(書(shū)名,作者,出版日期,價(jià)格,類型,出版社) Values ('" & varName & "','" & varWriter & "','" & varDate & "','" & varPrice & "','&quo

12、t; & varTyp & "','" & varPress & "')"db.Execute(strSql)Response.Redirect "mmm.asp"Else Response.Write "必須填寫書(shū)號(hào)、書(shū)名和類型！" 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 書(shū)號(hào) Desc"Set rs=d

14、b.Execute(strSql)%><center><table border="1" width="100%"><tr bgcolor="#FF99FF"><td>書(shū)號(hào)</td><td>書(shū)名</td><td>作者</td><td>價(jià)格</td><td>出版社</td><td>出版日期</td><td>類型</td></

15、tr><%Do While Not rs.Eof%><tr><td><%=rs("書(shū)號(hào)")%></td><td><%=rs("書(shū)名")%></td><td><%=rs("作者")%></td><td><%=rs("價(jià)格")%></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 書(shū)號(hào)='"&Request.QueryString("書(shū)號(hào)")&"'"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("密碼輸入錯(cuò)誤！")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 書(shū)名='" & varName & "',作者='" & varWriter & &quo

21、t;',價(jià)格='" & varPrice & "',出版社='" & varPress & "',出版日期='" & varDate & "',類型='" & varTyp & "' where 書(shū)號(hào)=" & 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>書(shū)號(hào)</b></td><td width="200"><b>書(shū)名</b></td><td width="120"><b>

23、;作者</b></td><td width="90" ><b>價(jià)格</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="書(shū)號(hào)"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("書(shū)號(hào)")%></td><td><%=rs("書(shū)名")%></td><td><%=rs("作者")%></td><td><%=rs("價(jià)格")%></td><td><%=rs("出版社")%></td

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論