web程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告-選課系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)_第1頁(yè)
已閱讀1頁(yè),還剩22頁(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、<p>  Web程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告</p><p>  學(xué) 生: </p><p>  學(xué) 號(hào): </p><p>  班 級(jí): </p><p>  專 業(yè): </p&g

2、t;<p><b>  2017年3月</b></p><p><b>  目 錄</b></p><p>  選課系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)3</p><p>  一、實(shí)驗(yàn)?zāi)康募耙?</p><p>  二、實(shí)驗(yàn)環(huán)境及相關(guān)情況(包含使用軟件、實(shí)驗(yàn)設(shè)備、主要儀器等)3</p>

3、<p>  三、實(shí)驗(yàn)內(nèi)容及步驟3</p><p>  (一)、網(wǎng)站總體設(shè)計(jì)3</p><p><b>  1.1系統(tǒng)概述3</b></p><p> ?。ǘ?shù)據(jù)庫(kù)設(shè)計(jì)3</p><p>  1、數(shù)據(jù)庫(kù)E-R圖分析3</p><p>  2、數(shù)據(jù)表概要說(shuō)明5</p

4、><p>  Account表:5</p><p><b>  Admin表:5</b></p><p>  Course表:5</p><p>  Selection表:6</p><p>  Student表:6</p><p>  Teacher表:6<

5、/p><p>  3、主要數(shù)據(jù)表的結(jié)構(gòu)6</p><p> ?。ㄈ?、文件架構(gòu)設(shè)計(jì)8</p><p>  (四)、前臺(tái)頁(yè)面設(shè)計(jì)(普通用戶模塊)8</p><p>  1、前臺(tái)各個(gè)主要頁(yè)面概述8</p><p>  2、前臺(tái)主頁(yè)面的布局10</p><p>  3、前臺(tái)主頁(yè)面的實(shí)現(xiàn)10&l

6、t;/p><p> ?。?)選課系統(tǒng)登錄首頁(yè)10</p><p> ?。?)信息錄入頁(yè)面11</p><p>  (3)瀏覽課程信息頁(yè)面13</p><p> ?。?)選擇檢索條件16</p><p> ?。?)選擇選課方式18</p><p>  (五)、后臺(tái)模塊的設(shè)計(jì)與實(shí)現(xiàn)(管理員模塊

7、)20</p><p>  1、后臺(tái)各個(gè)主要頁(yè)面概述20</p><p>  2、后臺(tái)主頁(yè)面的布局20</p><p>  3、后臺(tái)主頁(yè)面的實(shí)現(xiàn)21</p><p>  修改課程信息頁(yè)面21</p><p><b>  課程設(shè)計(jì)總結(jié)23</b></p><p>

8、<b>  參考文獻(xiàn)23</b></p><p>  選課系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)</p><p><b>  一、實(shí)驗(yàn)?zāi)康募耙?lt;/b></p><p>  1、掌握Web網(wǎng)頁(yè)常用的開發(fā)工具Frontpage2003或Deamweaver的使用;</p><p>  2、學(xué)會(huì)IIS的配置;</p&

9、gt;<p>  3、學(xué)會(huì)Html、CSS、Javascript的簡(jiǎn)單開發(fā)和應(yīng)用; </p><p>  4、B/S模式下,asp或asp.net與數(shù)據(jù)庫(kù)的連接。</p><p>  二、實(shí)驗(yàn)環(huán)境及相關(guān)情況(包含使用軟件、實(shí)驗(yàn)設(shè)備、主要儀器等)</p><p>  操作系統(tǒng)為Windows XP,應(yīng)用軟件為Macromedia Dreamwe

10、aver 8、IIS服務(wù)器和VS.Net2005軟件編輯器。</p><p><b>  三、實(shí)驗(yàn)內(nèi)容及步驟</b></p><p>  (一)、網(wǎng)站總體設(shè)計(jì)</p><p><b>  1.1系統(tǒng)概述</b></p><p>  選課系統(tǒng)的核心是選課功能,學(xué)生在選課之前,必須通過(guò)系統(tǒng)的身份驗(yàn)證,然

11、后就可以選定自己感興趣的選修課程。在此學(xué)生可以通過(guò)系統(tǒng)查詢自己喜歡和對(duì)自己有幫助的課程,還有可以通過(guò)學(xué)分查詢自己需要的課程,學(xué)生還可以通過(guò)選課系統(tǒng)查看自己的選修課程。 </p><p>  學(xué)生的課程成績(jī)由教師來(lái)添加,教師的身份需通過(guò)系統(tǒng)驗(yàn)證。 </p><p>  選課系統(tǒng)的課程信息和學(xué)生信息由管理員通過(guò)身份驗(yàn)證后來(lái)進(jìn)行添加、刪除和修改。這些功能是后臺(tái)管理功能。<

12、;/p><p><b> ?。ǘ?shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>  1、數(shù)據(jù)庫(kù)E-R圖分析</p><p>  這一設(shè)計(jì)階段是在系統(tǒng)功能結(jié)構(gòu)圖的基礎(chǔ)上進(jìn)行的,設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體以及它們之間的關(guān)系,為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。</p><p>  根據(jù)以上的分析設(shè)計(jì)結(jié)果,得到用戶實(shí)體、管理實(shí)體、課程實(shí)體

13、、選擇實(shí)體、學(xué)生實(shí)體、教師實(shí)體。下面來(lái)介紹幾個(gè)主要信息實(shí)體的E-R圖。</p><p><b> ?。?)用戶實(shí)體:</b></p><p>  用戶實(shí)體包括:用戶姓名、密碼、用戶等級(jí)和用戶編號(hào)。用戶實(shí)體的E—R圖,如圖</p><p><b> ?。?)管理實(shí)體</b></p><p>  管理實(shí)

14、體包括:管理員編號(hào)和姓名。管理實(shí)體的E—R圖,如圖</p><p><b> ?。?)課程實(shí)體</b></p><p>  課程實(shí)體包括:課程編號(hào)、課程名稱、課程描述、學(xué)分、最高分?jǐn)?shù)和教師編號(hào)。課程實(shí)體的E—R圖,如圖</p><p><b> ?。?)選擇實(shí)體</b></p><p>  選擇實(shí)體

15、包括:課程編號(hào)和學(xué)生編號(hào)。課程實(shí)體的E—R圖,如圖</p><p><b>  (5)學(xué)生實(shí)體</b></p><p>  學(xué)生實(shí)體包括:課程編號(hào)、學(xué)生姓名、系別和專業(yè)。學(xué)生實(shí)體的E—R圖,如圖</p><p><b> ?。?)教師實(shí)體</b></p><p>  教師實(shí)體包括:教師編號(hào)、教師姓名

16、和職稱。教師實(shí)體的E—R圖,如圖</p><p><b>  2、數(shù)據(jù)表概要說(shuō)明</b></p><p><b>  Account表:</b></p><p><b>  Admin表:</b></p><p><b>  Course表:</b><

17、;/p><p>  Selection表:</p><p><b>  Student表:</b></p><p><b>  Teacher表:</b></p><p>  3、主要數(shù)據(jù)表的結(jié)構(gòu)</p><p> ?。?)Account表</p><p>

18、;  表1Account表結(jié)構(gòu)</p><p><b>  (2)Admin表</b></p><p>  表2Admin表結(jié)構(gòu)</p><p> ?。?)Course表</p><p>  表3Course表結(jié)構(gòu)</p><p> ?。?)Selection表</p><

19、;p>  表4Selection表結(jié)構(gòu)</p><p>  (5)Student表</p><p>  表5Student表結(jié)構(gòu)</p><p> ?。?)Teacher表</p><p>  表6Teacher表結(jié)構(gòu)</p><p> ?。ㄈ⑽募軜?gòu)設(shè)計(jì)</p><p> ?。?/p>

20、四)、前臺(tái)頁(yè)面設(shè)計(jì)(普通用戶模塊)</p><p>  1、前臺(tái)各個(gè)主要頁(yè)面概述</p><p><b>  ↑選課系統(tǒng)登錄頁(yè)面</b></p><p><b>  ↑選課系統(tǒng)登錄首頁(yè)</b></p><p>  ↑選課系統(tǒng)輸入課程信息頁(yè)面</p><p>  ↑選課系統(tǒng)搜索

21、課程信息頁(yè)面</p><p>  ↑選課系統(tǒng)選課信息一覽表頁(yè)面</p><p>  2、前臺(tái)主頁(yè)面的布局</p><p><b>  ↑前臺(tái)主頁(yè)面布局</b></p><p>  3、前臺(tái)主頁(yè)面的實(shí)現(xiàn)</p><p> ?。?)選課系統(tǒng)登錄首頁(yè)</p><p><b&

22、gt;  源文件代碼</b></p><p><b>  <html></b></p><p><b>  <head></b></p><p>  <meta http-equiv="Content-Type" content="text/html;

23、 charset=gb2312"></p><p>  <title>選課系統(tǒng)首頁(yè)-登錄頁(yè)面</title></p><p><b>  </head></b></p><p><b>  <body></b></p><p>  &l

24、t;table width="98%" height="215" border="0"></p><p><b>  <tr></b></p><p>  <td height="48"><div align="center">

25、</p><p>  <p>&nbsp;</p></p><p>  <p><font color="#9900FF" size="7" face="華文新魏">校園網(wǎng)選<font color="#9900CC">課系統(tǒng)</font>

26、;</font></p></p><p>  <hr size="10" color="#FF0000"></p><p>  <p><font color="#0000FF" size="7" face="華文新魏"></f

27、ont></p></p><p>  </div></td></p><p><b>  </tr></b></p><p><b>  <tr></b></p><p>  <td><div align="

28、;center"></p><p>  <form action="login.asp" method="post" name="frmLogin" id="frmLogin"></p><p>  <p>&nbsp;</p></p>&

29、lt;p><b>  <p>用戶名: </b></p><p>  <input name="Username" type="text" id="Username"></p><p><b>  </p></b></p><p

30、>  <p>密&nbsp;&nbsp;碼: </p><p>  <input name="Password" type="password" id="Password"></p><p><b>  </p></b></p><p

31、>  <p>&nbsp;</p></p><p><b>  <p> </b></p><p>  <input type="submit" name="Submit" value="登 錄"></p><p>  &am

32、p;nbsp;&nbsp;&nbsp;&nbsp; </p><p>  <input type="reset" name="Submit2" value="重 填"></p><p><b>  </p></b></p><p>  

33、<p>&nbsp; </p></p><p><b>  </form></b></p><p>  </div></td></p><p><b>  </tr></b></p><p><b>  <

34、/table></b></p><p><b>  </body></b></p><p><b>  </html></b></p><p><b>  (2)信息錄入頁(yè)面</b></p><p><b>  源文件代碼&l

35、t;/b></p><p>  <%@LANGUAGE="VBSCRIPT"%></p><p>  <!--#include file="adovbs.inc"--></p><p>  <!--#include file=connection.asp --></p>

36、<p><b>  <%</b></p><p>  '判斷是否具有教務(wù)員權(quán)限</p><p>  If Session("UserLevel")<>"Admin" Then</p><p>  Response.Redirect "illegal.asp&q

37、uot;</p><p><b>  End If</b></p><p>  Set rsTest=Server.CreateObject("ADODB.RecordSet")</p><p>  rsTest.Open "Teacher",Conn,adOpenStatic,adLockReadOnl

38、y</p><p><b>  %></b></p><p><b>  <html></b></p><p><b>  <head></b></p><p>  <meta http-equiv="Content-Type&qu

39、ot; content="text/html; charset=gb2312"></p><p>  <title>輸入課程信息</title></p><p><b>  </head></b></p><p><b>  <body></b>&l

40、t;/p><p><b>  <table ></b></p><p><b>  <tr> </b></p><p>  <td width="804" height="55" valign="top"><div align

41、="center"><font color="#990033" size="7" face="華文新魏">輸入課程信息</font></div></td></p><p><b>  </tr></b></p><p>&l

42、t;b>  <tr> </b></p><p>  <td height="504" valign="top"></p><p>  <form action="insertCourse.asp" method="POST" name="frmInser

43、tCourse" id="frmInsertCourse"></p><p>  <div align="center"> </p><p>  <pre><font color="#0000FF" size="4"> </p><p>

44、;  課 程 號(hào):</font><input name="txtCourseno" type="text" id="txtCourseno"> <font color="#0000FF" size="4"> 學(xué) 分:</font><select

45、name="selCredit" id="selCredit"> <option value="1">一分</option> <option value="2">二分</option> <option value="3"

46、>三分</option> <option value="4" selected>四分</option> <option value="5">五分</option> </select> </pre></p><p>

47、<b>  </div></b></p><p>  <div align="center"> </p><p>  <pre align="center"><font color="#0000FF" size="4">課程名稱:<in

48、put name="txtName" type="text" id="txtName" size="60"> </font></pre></p><p>  <pre align="center"><font color="#0000FF

49、" size="4">課程描述: </p><p>  <textarea name="txtDescription" cols="80" id="txtDescription"></te

50、xtarea> </font></pre></p><p>  <div align="left"> </p><p>  <pre align="center"><font color="#0000FF" size="4">

51、 最大選課人數(shù):<input name="txtMaximumNum" type="text" id="txtMaximumNum"> 教 師:<select name="selTeacherno" id="selTeacherno"></p><p&g

52、t;  <% While (NOT rsTest.EOF) %></p><p>  <option value="<%=(rsTest.Fields.Item("Teacherno").Value)%>" <%If (Not isNull((rsTest_first))) Then If (CStr(rsTest.Fields.Item

53、("Teacherno").Value) = CStr((rsTest_first))) Then Response.Write("SELECTED") : Response.Write("")%> ></p><p>  <%=(rsTest.Fields.Item("Name").Value)%></

54、p><p><b>  </option></b></p><p><b>  <% </b></p><p>  rsTest.MoveNext()</p><p><b>  Wend</b></p><p>  If (rsTest.

55、CursorType > 0) Then</p><p>  rsTest.MoveFirst</p><p><b>  Else</b></p><p>  rsTest.Requery</p><p><b>  End If</b></p><p><b&

56、gt;  %></b></p><p>  </select></font></pre></p><p><b>  </div></b></p><p>  <pre><font color="#0000FF" size="4&q

57、uot;><input name="btnInsert" type="submit" id="btnInsert" value="保存輸入"> <input name="btnClear" type="reset" id="btnClear" value=&

58、quot;清除重填"></font></pre></p><p><b>  </div></b></p><p>  <p align="center"><a href="main.asp"><font size="5" fa

59、ce="華文新魏">返 回</font></a></p></p><p>  <font color="#0000FF" size="4"></font> </p><p>  <pre><font color="#0000FF"

60、; size="4"></p><p>  </font></pre></p><p><b>  </form></b></p><p>  <p>&nbsp;</p></td></p><p><b>

61、  </tr></b></p><p><b>  <tr> </b></p><p>  <td height="42">&nbsp;</td></p><p><b>  </tr></b></p><

62、;p><b>  </table></b></p><p><b>  <%</b></p><p>  rsTest.Close</p><p>  Conn.Close</p><p>  Set rsTest = Nothing</p><p>

63、  Set Conn=Nothing</p><p><b>  %></b></p><p>  </body> </html></p><p>  (3)瀏覽課程信息頁(yè)面</p><p><b>  源文件代碼</b></p><p>  &

64、lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%></p><p><b>  <%</b></p><p>  Option Explicit</p><p>  Response.Expires=0</p><p><b>

65、  %></b></p><p>  <!--#include file=adovbs.inc --></p><p>  <!--#include file=connection.asp --></p><p><b>  <%</b></p><p>  Dim Rec

66、ordPerPage,absPageNUm,TotalPages,absRecordNUm,rsTest,StrSQL</p><p>  'absPageNum-當(dāng)前頁(yè)數(shù),TotalPages-總頁(yè)數(shù),absRecordNum-當(dāng)前頁(yè)中某一條記錄的序號(hào)</p><p>  RecordPerPage=4 '每頁(yè)顯示的記錄數(shù)</p><p>  ab

67、sPageNum=CInt(Request.Form("PressPageNum"))</p><p>  '若返回的是"上一頁(yè)",則頁(yè)數(shù)減一,若是"下一頁(yè)",則頁(yè)數(shù)加一</p><p>  If Request.Form("Submit")="上一頁(yè)" Then</p>

68、<p>  absPageNum=absPageNum-1</p><p>  ElseIf Request.Form("Submit")="下一頁(yè)" Then</p><p>  absPageNum=absPageNum+1</p><p><b>  End If</b></p&

69、gt;<p>  StrSQL="Select *From Course" </p><p>  Set rsTest=Server.CreateObject("ADODB.RecordSet")</p><p>  rsTest.CacheSize=RecordPerPage '設(shè)置這個(gè)屬性選項(xiàng)會(huì)提高性能</p>

70、<p>  rsTest.Open StrSQL,Conn,adOpenStatic,adLockReadOnly,adCmdText</p><p>  '設(shè)置RecordSet對(duì)象的每一頁(yè)數(shù)據(jù)記錄條數(shù)</p><p>  rsTest.PageSize=RecordPerPage</p><p>  If rsTest.RecordCount

71、=0 Then</p><p>  Response.Redirect "selectedlisterror.asp"</p><p><b>  End If</b></p><p>  If absPageNum=0 Then</p><p>  absPageNum=1</p>

72、<p><b>  End If</b></p><p>  If Not rsTest.EOF Then</p><p>  rsTest.AbsolutePage=absPageNum</p><p><b>  End If</b></p><p>  TotalPages=rsTe

73、st.PageCount</p><p><b>  %></b></p><p><b>  <Html></b></p><p><b>  <Head></b></p><p>  <Meta http-equiv="Cont

74、ent-Type" content="text/html; charset=gb2312"></p><p>  <Title>瀏覽課程信息</Title></p><p><b>  </Head></b></p><p><b>  <Body>&

75、lt;/b></p><p>  <P>&nbsp;</P></p><p>  <Table width="99%" align="center" border="0"></p><p><b>  <Tr> </b>&l

76、t;/p><p>  <Td height="49"> </p><p>  <Div align="center"><Font color="#009900" size="7" face="華文新魏">課 程 信 息 一 覽 表</Font>&l

77、t;/Div></Td></p><p><b>  </Tr></b></p><p><b>  <Tr> </b></p><p>  <Td height="100"> </p><p>  <Table wid

78、th="100%" height="90" border="1" bordercolor="#0000FF"></p><p><b>  <Tr> </b></p><p>  <Td width="8%" height="38&q

79、uot;> </p><p>  <Div align="center"></p><p>  <Font color="#CC6600" size="4" face="華文隸書">課程號(hào)</Font></p><p><b>  &l

80、t;/Div></b></p><p><b>  </Td></b></p><p>  <Td width="27%"></p><p>  <Div align="center"></p><p>  <Font c

81、olor="#CC6600" size="4" face="華文隸書">課程名稱</Font></p><p><b>  </Div></b></p><p><b>  </Td></b></p><p>  <

82、Td width="7%"></p><p>  <Div align="center"></p><p>  <Font color="#CC6600" size="4" face="華文隸書">學(xué)分</Font></p><p

83、><b>  </Div></b></p><p><b>  </Td></b></p><p>  <Td width="9%"></p><p>  <Div align="center"></p><p

84、>  <Font color="#CC6600" size="4" face="華文隸書">最大選課人數(shù)</Font></p><p><b>  </Div></b></p><p><b>  </Td></b></p>

85、;<p>  <Td width="9%"></p><p>  <Div align="center"></p><p>  <Font color="#CC6600" size="4" face="華文隸書">目前選課人數(shù)</Fon

86、t></p><p><b>  </Div></b></p><p><b>  </Td></b></p><p>  <Td width="8%"></p><p>  <Div align="center"

87、;></p><p>  <Font color="#CC6600" size="4" face="華文隸書">教師號(hào)</Font></p><p><b>  </Div></b></p><p><b>  </Td>

88、</b></p><p>  <Td width="41%"></p><p>  <Div align="center"></p><p>  <Font color="#CC6600" size="4" face="華文隸書&quo

89、t;>課 程 描 述</Font></p><p><b>  </Div></b></p><p><b>  </Td></b></p><p><b>  </Tr></b></p><p><b>  &l

90、t;%</b></p><p>  For absRecordNum=1 to rsTest.PageSize</p><p>  Response.Write "<Tr valign=middle>"</p><p>  '將每條記錄的各個(gè)字段輸出</p><p>  Response.W

91、rite "<Td>"&rsTest("Courseno").Value&"</Td>"</p><p>  Response.Write "<Td>"&rsTest("Name").Value&"</Td>"<

92、;/p><p>  Response.Write "<Td>"&rsTest("Credit").Value&"</Td>"</p><p>  Response.Write "<Td>"&rsTest("Maximumnum").Va

93、lue&"</Td>"</p><p>  Response.Write "<Td>"&rsTest("Currentnum").Value&"</Td>"</p><p>  Response.Write "<Td>"

94、&rsTest("Teacherno").Value&"</Td>"</p><p>  Response.Write "<Td>"&rsTest("Description").Value&"</Td>"</p><p> 

95、 Response.Write "</Tr>"</p><p>  rsTest.MoveNext</p><p>  If rsTest.EOF Then</p><p>  Exit For '若到記錄尾,退出-如當(dāng)最后一頁(yè)數(shù)據(jù)不滿頁(yè)時(shí)。</p><p><b>  End If</

96、b></p><p><b>  Next</b></p><p>  Response.Write "</Table><Br>"</p><p>  '關(guān)閉數(shù)據(jù)庫(kù)和數(shù)據(jù)表</p><p>  rsTest.Close</p><p>  

97、Conn.Close</p><p>  Set rsTest=Nothing</p><p>  Set Conn=Nothing</p><p><b>  %></b></p><p>  <Form Action="<% =Request.ServerVariables("S

98、CRIPT_NAME") %>" Method="Post"></p><p>  <Input Type="Hidden" Name="PressPageNum" Value="<% =absPageNum %>"></p><p>  <Cent

99、er><% </p><p>  If absPageNum>1 Then '若當(dāng)前頁(yè)不是第一頁(yè),則顯示上一頁(yè)鏈接</p><p>  Response.Write "<Input Type=Submit Name=Submit Value=上一頁(yè)>"</p><p><b>  End If<

100、;/b></p><p>  If absPageNum<>TotalPages Then '若當(dāng)前頁(yè)不是最后一頁(yè),則顯示下一頁(yè)鏈接</p><p>  Response.Write "<Input Type=Submit Name=Submit Value=下一頁(yè)>"</p><p><b>  

101、End If</b></p><p><b>  %></b></p><p><b>  </Center></b></p><p><b>  </Form></b></p><p>  <P><Center>

102、;[第<Font Color="#CC0033"><% =absPageNum %></Font>頁(yè),共<Font Color="#CC0033"><% =TotalPages %></Font>頁(yè)]</Center></P></p><p><b>  </Bo

103、dy></b></p><p><b>  </Html></b></p><p><b> ?。?)選擇檢索條件</b></p><p><b>  源文件代碼</b></p><p>  <%@LANGUAGE="VBSCRIP

104、T" CODEPAGE="936"%></p><p>  <!--#include file="adovbs.inc"--></p><p>  <!--#include file=connection.asp --></p><p><b>  <%</b>

105、;</p><p>  Set rstTeacher=Server.CreateObject("ADODB.RecordSet")</p><p>  rstTeacher.Open "Teacher",Conn,adOpenStatic,adLockReadOnly</p><p>  Dim Name,Descriptio

106、n,Credit,Teacherno</p><p>  If Request.ServerVariables("CONTENT_LENGTH")<>0 Then</p><p>  Session("Name")=Ltrim(Rtrim(CStr(Request.Form("TxtName"))))</p>

107、;<p>  Session("Description")=Ltrim(Rtrim(Request.Form("TxtDescription")))</p><p>  Session("Credit")=Request.Form("selCredit")</p><p>  Session(&q

108、uot;Teacherno")=Request.Form("selTeacherno")</p><p>  Session("Checkbox")=Request.Form("Checkbox")</p><p>  Response.Redirect "searchshow.asp"</p&

109、gt;<p><b>  End If</b></p><p><b>  %></b></p><p><b>  <html></b></p><p><b>  <head></b></p><p>  &

110、lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"></p><p>  <title>檢索課程信息</title></p><p><b>  </head></b></p><

111、p><b>  <body></b></p><p>  <table width="786" border="0" cellpadding="0" cellspacing="0"></p><p><b>  <tr> </b&g

112、t;</p><p>  <td width="891" height="103" valign="top"><p>&nbsp;</p></p><p>  <p align="center"><font color="#0000FF&qu

113、ot; size="7" face="華文新魏">搜 索 課 程 信 息</font></p></td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>

114、  <td height="257" valign="top"><div align="center"> </p><p>  <p><font color="#FF0000" size="6" face="華文行楷">輸入檢索條件</fon

115、t></p></p><p>  <form action="<% =Request.ServerVariables("SCRIPT_NAME") %>" method="post" name="frmSearchCourse" id="frmSearchCourse">&

116、lt;/p><p>  <p><font color="#0000FF" face="黑體">課程名稱包含:</font> </p><p>  <input name="txtName" type="text" id="txtName"><

117、/p><p><b>  </p></b></p><p>  <p><font color="#0000FF" face="黑體">課程描述包含:</font> </p><p>  <input name="txtDescription&qu

118、ot; type="text" id="txtDescription"></p><p><b>  </p></b></p><p>  <p><font color="#0000FF" face="黑體">學(xué)分:</font> &l

119、t;/p><p>  <select name="selCredit" id="selCredit"></p><p>  <option value="0" selected>所有學(xué)分</option></p><p>  <option value="1&

120、quot;>一分</option></p><p>  <option value="2">二分</option></p><p>  <option value="3">三分</option></p><p>  <option value="

121、4" >四分</option></p><p>  <option value="5">五分</option></p><p><b>  </select></b></p><p>  <font color="#0000FF" fa

122、ce="黑體">&nbsp;&nbsp;&nbsp;授課教師:</font> </p><p>  <select name="selTeacherno" id="selTeacherno"></p><p>  <option value="所有教師"

123、;>所有教師</option></p><p>  <% While (NOT rstTeacher.EOF) %></p><p>  <option value="<%=(rstTeacher.Fields.Item("Teacherno").Value)%>" > </p>&

124、lt;p>  <%=(rstTeacher.Fields.Item("Name").Value+rstTeacher.Fields.Item("Title").Value)%> </p><p><b>  </option></b></p><p><b>  <%</b&g

125、t;</p><p>  rstTeacher.MoveNext()</p><p><b>  Wend</b></p><p>  If (rstTeacher.CursorType > 0) Then</p><p>  rstTeacher.MoveFirst</p><p><

126、;b>  Else</b></p><p>  rstTeacher.Requery</p><p><b>  End If</b></p><p><b>  %></b></p><p><b>  </select></b></

127、p><p>  &nbsp;&nbsp;&nbsp;</p><p>  <input type="checkbox" name="checkbox" value="on" checked></p><p>  <font color="#0000FF&quo

128、t; face="黑體">只列出尚未選滿的課程</font> </p></p><p><b>  <p> </b></p><p>  <input type="submit" name="Submit" value="開始查找">&

129、lt;/p><p>  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p><p>  <input type="reset" name="Submit2" value="清除重填"></p><p><b>

130、  </p></b></p><p>  <p>&nbsp;</p></p><p><b>  </form></b></p><p>  <p>&nbsp;</p></p><p>  </div><

131、/td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td height="37">&nbsp;</td></p><p><b> 

132、 </tr></b></p><p><b>  </table></b></p><p><b>  </body></b></p><p><b>  </html></b></p><p><b>  

133、(5)選擇選課方式</b></p><p><b>  源文件代碼</b></p><p>  <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%></p><p><b>  <%</b></p><p&g

134、t;  If Session("UserLevel")<>"Student" Then</p><p>  Response.Redirect "illegal.asp"</p><p><b>  End If</b></p><p>  If Request.Serve

135、rVariables("CONTENT_LENGTH")<>0 Then</p><p>  RadioValue=Request.Form("RadioButton")</p><p>  Select Case RadioValue</p><p>  Case "radio1"</p

136、><p>  Response.Redirect "Selectcourse1.asp"</p><p>  Case "radio2"</p><p>  Response.Redirect "Selectcourse2.asp"</p><p>  Case "radio3

137、"</p><p>  Response.Redirect "Selectcourse3.asp"</p><p>  Case "radio4"</p><p>  Response.Redirect "Selectcourse4.asp"</p><p>  End S

138、elect</p><p><b>  End If</b></p><p><b>  %></b></p><p><b>  <html></b></p><p><b>  <head></b></p>

139、;<p>  <meta http-equiv="Content-Type" content="text/html; charset=gb2312"></p><p>  <title>無(wú)標(biāo)題文檔</title></p><p><b>  </head></b>&l

140、t;/p><p><b>  <body></b></p><p>  <div align="left"></p><p>  <p>&nbsp;</p></p><p>  <p>&nbsp;</p></p&

141、gt;<p>  <form name="form1" method="post" action="<% =Request.ServerVariables("SCRIPT_NAME") %>"></p><p>  <p align="center">&nb

142、sp;</p></p><p>  <div align="left"></div></p><p>  <table width="73%" border="0"></p><p><b>  <tr> </b></p

143、><p>  <td height="50"> <div align="center"><font color="#0000FF" size="6" face="華文新魏">請(qǐng)選擇選課方式</font><br></p><p>  &l

144、t;/div></td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td><div align="center"><font color="#00

145、00FF" size="4" face="黑體">按課程編號(hào)選擇:</p><p>  <input name="radiobutton" type="radio" value="radio1" checked></p><p>  </font>&l

146、t;/div></td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td><div align="center"><font color="#00

147、00FF" size="4" face="黑體">按課程名稱選擇:</p><p>  <input name="radiobutton" type="radio" value="radio2" ></p><p>  </font></div&

148、gt;</td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td><div align="center"><font color="#0000FF&qu

149、ot; size="4" face="黑體">按課程學(xué)分選擇:</p><p>  <input name="radiobutton" type="radio" value="radio3"></p><p>  </font></div></

150、td></p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td><div align="center"><font color="#0000FF" size

151、="4" face="黑體">按教師姓名選擇:</p><p>  <input type="radio" name="radiobutton" value="radio4"></p><p>  </font></div></td>&l

152、t;/p><p><b>  </tr></b></p><p><b>  <tr> </b></p><p>  <td> <div align="center"></p><p>  <input type="su

153、bmit" name="Submit" value="確 定"></p><p>  </div></td> </tr></p><p><b>  </table></b></p><p>  <p>&nbsp;<

154、;/p></p><p>  <p>&nbsp;</p></p><p><b>  </form></b></p><p>  <p>&nbsp;</p></p><p>  <p>&nbsp;</p>&l

155、t;/p><p><b>  </div></b></p><p><b>  </body></b></p><p><b>  </html></b></p><p> ?。ㄎ澹⒑笈_(tái)模塊的設(shè)計(jì)與實(shí)現(xiàn)(管理員模塊)</p>&l

156、t;p>  1、后臺(tái)各個(gè)主要頁(yè)面概述</p><p>  為了方便學(xué)生入學(xué)之后的賬號(hào)管理,學(xué)生可以自行在教務(wù)系統(tǒng)中修改賬號(hào)密碼。</p><p>  管理員可以通過(guò)查詢課程編號(hào)來(lái)修改課程信息,包括課程名稱,課程描述,任課教師</p><p>  2、后臺(tái)主頁(yè)面的布局</p><p>  ↑選課系統(tǒng)用戶密碼修改頁(yè)面</p>

157、<p>  ↑選課系統(tǒng)修改課程信息頁(yè)面</p><p>  3、后臺(tái)主頁(yè)面的實(shí)現(xiàn)</p><p><b>  修改課程信息頁(yè)面</b></p><p><b>  源文件代碼</b></p><p>  <%@LANGUAGE="VBSCRIPT" CODEPAG

158、E="936"%></p><p>  <!--#include file="adovbs.inc"--></p><p>  <!--#include file=connection.asp --></p><p><b>  <%</b></p>&l

159、t;p>  '判斷是否具有教務(wù)員權(quán)限</p><p>  If Session("UserLevel")<>"Admin" Then</p><p>  Response.Redirect "illegal.asp"</p><p><b>  End If</b&

160、gt;</p><p>  Set rstCourse=Server.CreateObject("ADODB.RecordSet")</p><p>  rstCourse.Open "Course",Conn,adOpenStatic,adLockReadOnly</p><p><b>  %></b

161、></p><p><b>  <html></b></p><p><b>  <head></b></p><p>  <meta http-equiv="Content-Type" content="text/html; charset=gb2312&

162、quot;></p><p>  <title>修改課程信息</title></p><p><b>  </head></b></p><p><b>  <body></b></p><p>  <table width="7

溫馨提示

  • 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ù)僅提供信息存儲(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)論