電影院網(wǎng)站的課程設(shè)計--bs模式的電影院網(wǎng)站的設(shè)計與實現(xiàn)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：27 大?。?49.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩26頁未讀，繼續(xù)免費閱讀

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

文檔簡介

1、　　課程設(shè) 計報告　　課程設(shè)計名稱 WEB技術(shù)（ASP）課程設(shè)計 　題目B/S模式的電影院網(wǎng)站的設(shè)計與實現(xiàn) 　院系信息工程學(xué)部

2、 　專業(yè) 電子商務(wù)（本）　班級 　姓名 　指導(dǎo)教師 　　編號：044　　設(shè)計題目

3、: B/S模式的電影院網(wǎng)站的設(shè)計與實現(xiàn)　　1. 課程設(shè)計教學(xué)條件要求 Dreamweaver+ASP+ACCESS　　2. 課程設(shè)計任務(wù)　　1、設(shè)計內(nèi)容　　設(shè)計一個網(wǎng)站使得顧客可以通過網(wǎng)絡(luò)的方式

4、實現(xiàn)對電影信息的查詢，既免去了人們?nèi)テ胀娪霸河^看電影所消耗的金錢和精力，也使得觀看電影成為一種更加簡單的方式。用Access創(chuàng)建后臺數(shù)據(jù)庫，然后利用ASP技術(shù)編寫程序?qū)崿F(xiàn)對數(shù)據(jù)庫的操作，按照要求完成所有的功能和模塊。　　一般用戶的主要功能模塊包括：　?。?）用戶注冊與登陸　　（2）電影信息查詢

5、　?。?）影片點評　　系統(tǒng)管理員的主要功能模塊包括：　?。?）用戶信息管理和維護　?。?）影片信息管理　?。?）影評

6、信息管理　　2、主要數(shù)據(jù)庫表單　?。?）用戶表　　主要字段有：用戶編號、用戶名、密碼、真實姓名、性別、電話、地址、電子郵件　?。?）電影信息表</b&g

7、t;　　主要字段有：新聞編號、新聞標(biāo)題、電子郵件、發(fā)布人、發(fā)布日期、描述、文章、圖片　　（3）影評信息表　　主要字段有：編號、姓名、性別、聯(lián)系電話、電子郵件、文章標(biāo)題、描述、文章、發(fā)表時間　　3. 課程設(shè)計報告書主要內(nèi)容</p&

8、gt;　　1、系統(tǒng)功能模塊設(shè)計：　　2、數(shù)據(jù)庫設(shè)計：系統(tǒng)主要的數(shù)據(jù)庫表單的結(jié)構(gòu)定義。　　3、各功能模塊的程序設(shè)計及運行測試結(jié)果。　　4、小結(jié)：收獲、體會與建議　　5、參考文獻：按正確格式列出3篇以上的參考文獻

9、 　　4．課程設(shè)計參考資料　　[1] 石志國. ASP程序設(shè)計. 北京：清華大學(xué)出版社. 2006　　[2] 吳鵬. ASP程序設(shè)計教程與實訓(xùn). 北京：北京大學(xué)出版社.2006　　[3] 王黎. 動態(tài)網(wǎng)站開發(fā)典型案例. 北京：清華大學(xué)出版社.2010

10、　　目錄　　1 需求分析1　　1．1 系統(tǒng)概述1　　1．2 具體分析1　　1．3 用戶需求1

11、　　2 系統(tǒng)概要設(shè)計2　　2．1 系統(tǒng)結(jié)構(gòu)圖2　　2．2 數(shù)據(jù)字段說明3　　3 詳細(xì)設(shè)計5　　3．1 界面設(shè)計5　　4 系統(tǒng)實現(xiàn)12<p&

12、gt;　　5 課程設(shè)計體會22　　參考文獻23　　1 需求分析　　1．1 系統(tǒng)概述　　立足于實際，著眼于未來發(fā)展，建成符合標(biāo)準(zhǔn)化協(xié)議、通用性較強、實用的系統(tǒng)，以提高影視現(xiàn)代化管理

13、水平，使得顧客可以通過網(wǎng)絡(luò)的方式實現(xiàn)對電影信息的查詢，既免去了人們?nèi)テ胀娪霸河^看電影所消耗的金錢和精力，也使得觀看電影成為一種更加簡單的方式。同時可利用在線論壇，發(fā)表自己的感言，與網(wǎng)友交流，實現(xiàn)信息資源的共享。　　本系統(tǒng)的宗旨是提電影院網(wǎng)站的影視信息管理工作的效率，減少相關(guān)人員的工作量，使影視信息管理工作真正做到科學(xué)、合理的規(guī)劃，系統(tǒng)、高效的實施。

14、此系統(tǒng)的主要功能： 　?。?）登錄注冊系統(tǒng)：用戶登錄、管理員登錄、用戶注冊。 　?。?）用戶系統(tǒng)：查詢影視信息、發(fā)表個人感言。 　　（3）管理員系統(tǒng)：用戶信息管理與維護、影片信息管理、影評信息管理。　　1．2 具體分析　?。?/p>

15、1）用戶系統(tǒng)：用戶可以直接查詢影視信息（追影網(wǎng)站簡介、影視資訊、動感論壇）、發(fā)表個人感言。 　?。?）管理員：該系統(tǒng)為后臺管理員使用，可以實現(xiàn)對用戶信息管理與維護（刪除）、影片信息管理（添加、修改、刪除、）、影評信息管理（刪除）。　　1．3 用戶需求　　普通用戶：可以瀏覽首頁、追影網(wǎng)站簡介、影視資訊、動感

16、論壇，通過此系統(tǒng)，用戶可以查詢最新影視資訊，了解論壇上用戶的個人心得。但發(fā)表個人感言，與網(wǎng)友交流互動則需要用戶登陸和注冊才可以操作。2 系統(tǒng)概要設(shè)計　　2．1 系統(tǒng)結(jié)構(gòu)圖　　圖2.1用戶功能結(jié)構(gòu)圖　　圖2.2管理員功能結(jié)構(gòu)圖　　此圖主要是對系統(tǒng)結(jié)構(gòu)的簡單描述，

17、此系統(tǒng)包括兩類用戶：用戶和管理員，用戶的功能是登陸注冊和查詢電影信息以及發(fā)表評論；管理員的功能是登陸以及管理個人用戶信息、影視資訊信息、影評信息。　　2．2 數(shù)據(jù)字段說明　　表2-1 user_info表　　這是一張存儲用戶信息的表　　表2-2 news表</

18、p>　　這是一張存儲新聞信息的表　　表2-3 criticl表　　這是一張存儲評論信息的表　　表2-4 admin表　　這是一張存儲管理員信息的表　　表2-5 head表<

19、p>　　這是一張存儲管理員信息的表　　3 詳細(xì)設(shè)計　　3．1 界面設(shè)計　　圖3.1首頁導(dǎo)航圖　　首頁主要是實現(xiàn)的功能有：用戶管理和管理員可以根據(jù)用戶名和密碼進行登錄，普通用戶可以

20、點擊“登陸”進入登陸頁面，新用戶可以點擊“注冊”進入用戶注冊頁面，管理員用戶可以點擊“管理員通道”導(dǎo)航，進入系統(tǒng)后臺管理。　　圖3.2 用戶登陸界面　　用戶登陸主要是實現(xiàn)的功能有：用戶通過身份驗證，則在首頁會顯示“歡迎您**”，如圖3.3　　圖3.3用戶登陸后的首頁部分圖

21、　　圖3.4 新用戶注冊界面　　新用戶注冊主要是實現(xiàn)的功能有：新用戶可以通過填寫注冊表單，經(jīng)過判斷，正確后即成為該網(wǎng)站的用戶，可進行用戶登陸等網(wǎng)站用戶的操作服務(wù)。 　　圖3.5管理員登陸界面　　管理員登陸主要是實現(xiàn)的功能有：管理員通過身份驗證進入網(wǎng)站的系統(tǒng)后臺管理頁面。

22、　　圖3.6后臺管理界面　　首頁主要是實現(xiàn)的功能有：管理員對用戶信息管理與維護、影片信息管理、影評信息管理。　　圖3.6-1后臺管理界面詳圖　　后臺管理界面導(dǎo)航主要是實現(xiàn)的功能有：為管理員后臺操作提供導(dǎo)航服務(wù)　　圖3.7添加最新資訊頁面<p&

23、gt;　　主要是實現(xiàn)的功能有：供管理員添加新聞到數(shù)據(jù)庫，并且可在網(wǎng)站頁面可見，為用戶發(fā)布可見的新聞資訊。 　　圖3.8影片信息管理 　　主要是實現(xiàn)的功能有：羅列出數(shù)據(jù)庫中news表的所有內(nèi)容。　　圖3.8-1影片信息管理（修改新聞） 　　影片信息管理中的修改新聞頁面，用于

24、將管理員所選中的新聞從表中讀出，顯示與頁面，其修改后彈出“新聞修改成功”對話框。　　圖3.8-2影片信息管理（刪除新聞） 　　影片信息管理中的刪除新聞頁面，用于將管理員所選中的新聞從news表中刪除，其修改后彈出“刪除成功”對話框。　　圖3.8影評信息管理 　　主要是實現(xiàn)

25、的功能有：羅列出數(shù)據(jù)庫中criticl表的所有內(nèi)容　　圖3.8-1影評信息管理 　　影評信息管理中的刪除新聞頁面，用于將管理員所選中的影評從criticl表中刪除，其修改后彈出“刪除成功”對話框。　　圖3.9用戶信息管理與維護　　主要是實現(xiàn)的功能有：羅列出數(shù)據(jù)庫中news

26、表的所有內(nèi)容。　　4 系統(tǒng)實現(xiàn)　　用戶登錄　　<%　　if request("logout")<>"&q

27、uot; then ‘判斷session值是否為空，即是否登錄過　　session("admin")=""　　session("password")=""　　response.redirect "login.asp

28、"　　end if　　%>　　<form action="ck.asp" method="post" name="form1">

29、　　<div align="center">　　<img src="img/loge1.png"/>登錄頁面　　用戶名：<input name="user_

30、name" type="text">　　密碼：<input name="psw" type="password">

31、　　<input type="submit" name="Submit" value="提交">　　<input type="reset" name="Submit2" value="重置">

32、　　還沒有登錄請<a href="register.htm">注冊</a>　　</div>　　</form><

33、;b>　　用戶登錄判斷　　<% ‘判斷session值是否為空，即是否登錄過　　if request("logout")<>"" then 　　session("user_n

34、ame")=""　　session("password")=""　　response.redirect "login.asp"　　end if&

35、lt;b>　　%>　　<%　　dim u,p,conn,rs　　u=request.Form("user_name"):m=request.Form("psw")<p&

36、gt;　　set conn = server.createobject("adodb.connection" ) '建立一個連接對象　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_　　Server.MapPath(&qu

37、ot;Users.mdb"))　　set rs=conn.Execute("select * from user_info where user_name = '"&u&"' and password = '"&m&"'") <

38、p>　　if rs.eof AND rs.bof then　　response.write"<SCRIPT language=JavaScript>alert('用戶名或密碼不正確！');"　　response.write"javascript:history.go(-1)</SCRI

39、PT>"　　else　　session("user_name")=u　　response.Redirect("index.asp")　　end if</b

40、>　　conn.close()　　%>　　新用戶注冊　　<form action="r.asp" method="post" name=

41、"form1" >　　<table width="350" border="0" align="center" cellpadding="0" cellspacing="0">　　<tr><img s

42、rc="img/loge1.png"/><td width="72"></td><td align="center">用戶注冊</td></tr><

43、;p>　　<tr>　　<td width="72">用戶名：</td>　　<td width="232"><input name="user_name" type="text"

44、size="25" /> *</td>　　</tr>　　<tr>　　<

45、td>密碼：</td>　　<td><input name="pwd" type="text" size="25" />　　*</td><

46、/p>　　</tr>　　<tr>　　<td>確認(rèn)密碼：</td>　　<td><input name="repwd" type

47、="password" size="27" />　　*</td>　　</tr>　　<

48、;tr>　　<td colspan="2">-------------以下為您的私人資料-----------</td>　　</tr>　　<tr>

49、;　　<td>真實姓名：</td>　　<td><input name="rename" type="text" size="25" />　　<span class="STYLE1"

50、>*</td>　　</tr>　　<tr>　　<td>性別：</td>　　<td><sp

51、an class="STYLE1">　　<select name="gender">　　<option value="">--</option>　　<option value="男"&g

52、t;男</option>　　<option value="女">女</option>　　</select>　　*</td><

53、;b>　　</tr>　　<tr>　　<td>聯(lián)系電話：</td>　　<td><input name="tel" type="text" size

54、="25" />　　</td>　　</tr>　　<tr>　　<td>地址：</

55、td>　　<td><input name="address" type="text" size="25" /></td>　　</tr>　　<

56、;tr>　　<td>E-mail:</td>　　<td><input name="e_mail" type="text" size="25" />　　<span class=

57、"STYLE1">*</td>　　</tr>　　<tr>　　<td colspan="2"> <

58、;/td>　　</tr>　　<tr>　　<td colspan="2"><div align="center"><

59、p>　　<input type="submit" name="Submit" value="注冊" />　　     <input type="reset" name="reset" value="重置&quo

60、t; />　　</div></td>　　</tr>　　</table>　　</form>&l

61、t;/p>　　新用戶注冊判斷　　<%　　dim u,m,m1,l,k,j,i,v,conn,rs ‘將上表單中的值傳過來賦給變量　　u=request.Form("user_

62、name")　　m=request.Form("pwd")　　m1=request.Form("repwd")　　l=request.Form("rename")　　k=request.Form(&qu

63、ot;gender")　　j=request.Form("tel")　　i=request.Form("address")　　v=request.Form("e_mail")　　set conn = s

64、erver.createobject("adodb.connection" ) '建立一個連接對象　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_　　Server.MapPath("Users.mdb

65、"))　　if u="" then ‘判斷輸入信息是否合理　　response.write"<SCRIPT language=JavaScript>alert('用戶名不能為空！');"

66、　　response.write"javascript:history.go(-1)</SCRIPT>"　　response.end　　end if　　if m="" then　　r

67、esponse.write"<SCRIPT language=JavaScript>alert('密碼不能為空！');"　　response.write"javascript:history.go(-1)</SCRIPT>"　　response.end

68、　　end if　　if m1="" then　　response.write"<SCRIPT language=JavaScript>alert('再次輸入密碼不能為空！');"　　res

69、ponse.write"javascript:history.go(-1)</SCRIPT>"　　response.end　　end if　　if m<>m1 then　　response.

70、write"<SCRIPT language=JavaScript>alert('密碼不一致！');"　　response.write"javascript:history.go(-1)</SCRIPT>"　　response.end

71、　　end if　　if l="" then　　response.write"<SCRIPT language=JavaScript>alert('真實姓名不能為空！');"　　response.write&

72、quot;javascript:history.go(-1)</SCRIPT>"　　response.end　　end if　　if k="" then　　response.write&quo

73、t;<SCRIPT language=JavaScript>alert('性別選項不能為空！');"　　response.write"javascript:history.go(-1)</SCRIPT>"　　response.end<b&

74、gt;　　end if　　if v="" then　　response.write"<SCRIPT language=JavaScript>alert('E-mail地址不能為空！');"　　response.write&qu

75、ot;javascript:history.go(-1)</SCRIPT>"　　response.end　　end if　　set rs=conn.Execute("select * from user_info where user_name

76、 = '"&u&"'") 　　if rs.eof AND rs.bof then　　set rs=conn.Execute("insert into user_info (user_name,password,realname,gender,tel,address,e_mail

77、) values ('"&u&"','"&m&"','"&l&"','"&k&"','"&j&"','"&i&"','&

78、quot;&v&"')") 　　response.Redirect "login.asp?Message=注冊成功！"　　session("username")=u　　else</p&g

79、t;　　response.write"<SCRIPT language=JavaScript>alert('用戶名已存在，請重新輸入！');"　　response.write"javascript:history.go(-1)</SCRIPT>"　　co

80、nn.close　　conn=null　　end if　　%>　　新聞信息顯示頁面<

81、p>　　<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">　　<tr>　　<

82、td> </td>　　</tr>　　</table>　　<table width="95%" border="0" align=&q

83、uot;center" cellpadding="0" cellspacing="1" bgcolor="#000000">　　<tr> 　　<td height="25" align="ce

84、nter" bgcolor="#CCCCCC">ID</td>　　<td align="center" bgcolor="#CCCCCC">新聞標(biāo)題</td>　　<td width="10%" align="

85、;center" bgcolor="#CCCCCC">發(fā)布者</td>　　<td width="10%" align="center" bgcolor="#CCCCCC">發(fā)布日期</td>　　<td width=&q

86、uot;20%" align="center" bgcolor="#CCCCCC">文章描述</td>　　<td width="10%" align="center" bgcolor="#CCCCCC">操作</td>&l

87、t;p>　　</tr>　　<%　　page=clng(request("page"))　　dim conn,rs　　set conn=server.cr

88、eateobject ("adodb.connection") '建立一個連接對象　　conn.open("driver={microsoft access driver (*.mdb)};dbq=" &_　　server.mappath("../data/news.mdb"

89、))　　Set rs=Server.CreateObject("ADODB.RecordSet") 　　sql="select * from news order by id desc"　　rs.Open sql,conn,1,1

90、　rs.PageSize = 3 '分頁顯示　　'第一次顯示沒有頁碼，默認(rèn)顯示第一頁　　If Request("page") <> "" Then　　iPage = Cint(Request

91、("page"))　　If iPage < 1 TheniPage = 1 '頁碼小于1，則顯示第一頁　　'當(dāng)大于總頁數(shù)的時候，顯示最后一頁　　If iPage > rs.PageCount Then iPage = rs.PageCount

92、　　Else　　iPage = 1　　End If　　Response.Write("當(dāng)前第" & iPage & "頁，共"

93、; & rs.PageCount & "頁")　　rs.AbsolutePage = iPage　　for j=1 to rs.PageSize 　　%>　　<tr bgcolor=&q

94、uot;#FFFFFF"> ‘將數(shù)據(jù)庫中的信息顯示于頁面　　<td height="22" align="center"><%=rs("id")%></td>　　<td>　</b&g

95、t;　　<a href="../zixun.asp?id=<%=rs("id")%>" target="_blank" headline="<%=rs("headline")%>"><%=left(rs("headline"),12)%

96、></a></td>　　<td align="center"><%=left(rs("poster"),3)%></td>　　<td align="center"><%=rs("addate"

97、)%> </td>　　<td align="center"><%=rs("description")%></td>　　<td align="center"><a href="admin_infomodi.asp?i

98、d=<%=rs("id")%>">修改</a> <a href="admin_infodel.asp?id=<%=rs("id")%>">刪除</a></td>　　</tr>&

99、lt;p>　　<%　　rs.movenext　　if rs.eof then exit for　　next <

100、;b>　　%>　　</table>　　<table width="95%" border="0" align="center" cellpadding="0" cellspacing=&q

101、uot;0">　　<tr>　　<td> </td>　　</tr>　　<tr bgcolor="#F

102、FFFFF"> 　　<form method=Post action="admin_info.asp"> 　　<td height="30" align="center"> 　　<%<

103、;/b>　　If iPage <> 1 Then %> '優(yōu)化分頁　　<A HREF="admin_info.asp?page=1">第一頁</A>　　<A HREF="ad

104、min_info.asp?page=<%=iPage - 1 %>">上一頁</A>　　<% End If 　　'當(dāng)前是最后一頁的時候，不顯示"最后頁"　　IF iPage <> rs.PageCount Then %&g

105、t;　　<A HREF="admin_info.asp?page=<%=iPage+1%>">下一頁</A>　　<A HREF="admin_info.asp?page=<%=rs.pageCount%>">最后頁</A>

106、　　<% End If　　conn.close()　　%>　　</td></form>　　</tr>

107、　　</table>　　刪除新聞信息　　<%　　dim conn,rs　　set conn = server.create

108、object("adodb.connection" ) '建立一個連接對象　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_　　Server.MapPath("../data/news.mdb"))<

109、/p>　　Set rs=Server.CreateObject("ADODB.RecordSet") 　　rs.Open "delete * from news where id="&request.QueryString("id"),conn,1,1

110、set rs=nothing　　response.write "<script language='javascript'>" & chr(13)　　response.write "alert('刪除成功！');" & Chr(13)

111、　　response.write "window.document.location.href='admin_info.asp';"&Chr(13)　　response.write "</script>" & Chr(13)　　Response.End

112、　　%> 　　修改新聞信息　　<table width="90%" border="0" align="center" cellpadding="0&q

113、uot; cellspacing="2">　　<form name="addnews" method="post" action="admin_infomodi_ok.asp?no=modi" onSubmit="return CheckForm();">

114、　　<tr align="center" bgcolor="#FFFFEE"> 　　<td height="30" colspan="2"><strong

115、>修改新聞</td>　　</tr>　　<tr> 　　<td width="15%" height="24

116、" bgcolor="#FFFFEE">*新聞標(biāo)題：</td>　　<td width="80%" valign="top" bgcolor="#FFFFEE"><inp

117、ut name="headline" type="text" class="input" value="<%=rs("headline")%>" size="30"></td>　　</tr><

118、/p>　　<tr> 　　<td width="15%" height="24" bgcolor="#FFFFEE">*簡單描述：</td&

119、gt;　　<td width="80%" valign="top" bgcolor="#FFFFEE"><input name="des" type="text" class="input" value="<%=rs("descrip

120、tion")%>" size="30"></td>　　</tr>　　<tr> 　　<td valign="top" bgco

121、lor="#FFFFEE">*新聞內(nèi)容：</td>　　<td valign="top" bgcolor="#FFFFEE"> 　　<textarea nam

122、e="content" rows="20" cols="50" id="<%=id%>"><%=rs("artikel")%></textarea></td>　　</tr>

123、　　<tr> 　　<td height="24" bgcolor="#FFFFEE">*發(fā)布人：</td>　　<

124、td valign="top" bgcolor="#FFFFEE"><input name="editer" type="text" class="input" size="30" value="<%=rs("poster")%>"></td&

125、gt;　　</tr>　　<tr> 　　<td width="15%" height="24" bgcolor="#FFFFEE"><f

126、ont color="#FF0000">*發(fā)布人E-MAIL：</td>　　<td width="80%" valign="top" bgcolor="#FFFFEE"

127、;><input name="email" type="text" class="input" value="<%=rs("email")%>" size="30"></td>　　</tr></b&g

128、t;　　<tr> 　　<td width="15%" height="24" bgcolor="#FFFFEE">*發(fā)布時間：&l

129、t;/td>　　<td width="80%" valign="top" bgcolor="#FFFFEE"><input name="addtime" type="text" class="input" value="<%=rs(&qu

130、ot;addate")%>" size="30"></td>　　</tr>　　<tr>　　<td bgcolor="#FFFFEE&q

131、uot;></td>　　</tr>　　<tr align="center"> 　　<td height="35" colspan="2" bgcolor="#

132、FFFFEE"> 　　<input type="submit" name="Submit" value="提交" class="input">　　<input type="hidden" name="id&quo

133、t; value="<%=id%>">　 　　<input type="reset" name="Submit2" value="重置" class="input"> </td>　　&l

134、t;/tr>　　</form>　　</table>　　<% 　　rs.close&l

135、t;/b>　　set rs=nothing　　end if　　%>　　修改新聞信息判斷

136、　　<%　　if session("admin")="" then ‘判斷管理員是否登錄　　response.redirect "admin_login.asp"　　response.end</p&g

137、t;　　end if　　%>　　<%　　if request("no")="modi" then ‘將表單數(shù)據(jù)傳值

138、給變量　　id=request("id")　　headline=request("headline")　　des=request("des")　　content=request("content&quo

139、t;)　　editer=request("editer")　　em=request("email")　　addtime=request("addtime")　　dim conn,rs<

140、;p>　　set conn=server.createobject ("adodb.connection") ‘建立數(shù)據(jù)庫連接對象　　conn.open("driver={microsoft access driver (*.mdb)};dbq=" &_　　server.mappath(&qu

141、ot;../data/news.mdb"))　　set rs=server.createobject("adodb.recordset")　　sql="select * from news where id="&id　　rs.open sql,conn,1

142、,3　　rs("headline")=headline ‘將新的數(shù)據(jù)信息傳入表中　　rs("description")=des　　rs("artikel")=content<

143、p>　　rs("poster")=editer　　rs("email")=em　　rs("addate")=addtime　　rs.update　　r

144、s.close　　set rs=nothing　　response.write "<script language='javascript'>" & chr(13)　　response.write "alert('新聞修

145、改成功！');" & Chr(13)　　response.write "window.document.location.href='admin_info.asp';"&Chr(13)　　response.write "</script>" &

146、Chr(13)　　Response.End　　end if　　%>　　將后臺新聞?wù){(diào)用于前臺　　<%<

147、;/p>　　dim conn,rs,t　　set conn = server.createobject("adodb.connection" ) '建立一個連接對象　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="

148、; &_　　Server.MapPath("data/news.mdb"))　　Set rs=Server.CreateObject("ADODB.RecordSet") 　　sql="SELECT * from news order by id &q

149、uot; 　　rs.Open sql,conn,1,1　　if not Rs.eof then ‘循環(huán)輸出　　do while not rs.eof　　t=t+1 <p&

150、gt;　　%>　　<td align="center" width="400" bgcolor="#f1f1f1" background="img/bg3.png" > 　　‘將數(shù)據(jù)庫中的數(shù)據(jù)傳入

151、　　  <%=rs("id")%>  <a href="zixun-1.asp?id=<%=rs("id")%>"><%=rs("headline")%></a> </td> </p&

152、gt;　　‘超鏈接到具體新聞頁面　　<td valign="top" width="400" bgcolor="#f1f1f1" background="img/bg3.png" > <%=rs("description")%>&

153、lt;/td>　　<td align="center" width="350" bgcolor="#f1f1f1" background="img/bg3.png" > 作者：<%=rs("poster")%>  更新時間：<

154、;%=rs("addate")%></td>　　</tr>　　<% 　　if t>=10 then exit do 　　rs.move

155、next 　　loop 　　else 　　response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚無收錄</td><

156、;/tr>" 　　end if 　　rs.close 　　%> 　　5 課程設(shè)計體會<

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

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

電影院網(wǎng)站的課程設(shè)計--bs模式的電影院網(wǎng)站的設(shè)計與實現(xiàn)

文檔簡介

溫馨提示

最新文檔

評論

免費下載