2023年全國碩士研究生考試考研英語一試題真題（含答案詳解+作文范文）_第1頁
已閱讀1頁，還剩22頁未讀， 繼續免費閱讀

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、<p>　　Web程序設計課程設計報告</p><p>　　學 生： </p><p>　　學 號： </p><p>　　班 級： </p><p>　　專 業： </p&g

2、t;<p><b>　　2017年3月</b></p><p><b>　　目 錄</b></p><p>　　選課系統的設計與實現3</p><p>　　一、實驗目的及要求3</p><p>　　二、實驗環境及相關情況（包含使用軟件、實驗設備、主要儀器等）3</p>

3、<p>　　三、實驗內容及步驟3</p><p>　?。ㄒ唬?、網站總體設計3</p><p><b>　　1.1系統概述3</b></p><p>　?。ǘ?、數據庫設計3</p><p>　　1、數據庫E-R圖分析3</p><p>　　2、數據表概要說明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、主要數據表的結構6</p><p>　?。ㄈ?、文件架構設計8</p><p>　?。ㄋ模?、前臺頁面設計（普通用戶模塊）8</p><p>　　1、前臺各個主要頁面概述8</p><p>　　2、前臺主頁面的布局10</p><p>　　3、前臺主頁面的實現10&l

6、t;/p><p>　?。?）選課系統登錄首頁10</p><p>　?。?）信息錄入頁面11</p><p>　?。?）瀏覽課程信息頁面13</p><p>　?。?）選擇檢索條件16</p><p>　?。?）選擇選課方式18</p><p>　?。ㄎ澹?、后臺模塊的設計與實現（管理員模塊

7、）20</p><p>　　1、后臺各個主要頁面概述20</p><p>　　2、后臺主頁面的布局20</p><p>　　3、后臺主頁面的實現21</p><p>　　修改課程信息頁面21</p><p><b>　　課程設計總結23</b></p><p>

8、<b>　　參考文獻23</b></p><p>　　選課系統的設計與實現</p><p><b>　　一、實驗目的及要求</b></p><p>　　1、掌握Web網頁常用的開發工具Frontpage2003或Deamweaver的使用；</p><p>　　2、學會IIS的配置；</p&

9、gt;<p>　　3、學會Html、CSS、Javascript的簡單開發和應用； </p><p>　　4、B/S模式下，asp或asp.net與數據庫的連接。</p><p>　　二、實驗環境及相關情況（包含使用軟件、實驗設備、主要儀器等）</p><p>　　操作系統為Windows XP，應用軟件為Macromedia Dreamwe

10、aver 8、IIS服務器和VS.Net2005軟件編輯器。</p><p><b>　　三、實驗內容及步驟</b></p><p>　?。ㄒ唬?、網站總體設計</p><p><b>　　1.1系統概述</b></p><p>　　選課系統的核心是選課功能，學生在選課之前，必須通過系統的身份驗證，然

11、后就可以選定自己感興趣的選修課程。在此學生可以通過系統查詢自己喜歡和對自己有幫助的課程，還有可以通過學分查詢自己需要的課程，學生還可以通過選課系統查看自己的選修課程。 </p><p>　　學生的課程成績由教師來添加，教師的身份需通過系統驗證。 </p><p>　　選課系統的課程信息和學生信息由管理員通過身份驗證后來進行添加、刪除和修改。這些功能是后臺管理功能。<

12、;/p><p><b>　?。ǘ?、數據庫設計</b></p><p>　　1、數據庫E-R圖分析</p><p>　　這一設計階段是在系統功能結構圖的基礎上進行的，設計出能夠滿足用戶需求的各種實體以及它們之間的關系，為后面的邏輯結構設計打下基礎。</p><p>　　根據以上的分析設計結果，得到用戶實體、管理實體、課程實體

13、、選擇實體、學生實體、教師實體。下面來介紹幾個主要信息實體的E-R圖。</p><p><b>　?。?）用戶實體：</b></p><p>　　用戶實體包括：用戶姓名、密碼、用戶等級和用戶編號。用戶實體的E—R圖，如圖</p><p><b>　?。?）管理實體</b></p><p>　　管理實

14、體包括：管理員編號和姓名。管理實體的E—R圖，如圖</p><p><b>　?。?）課程實體</b></p><p>　　課程實體包括：課程編號、課程名稱、課程描述、學分、最高分數和教師編號。課程實體的E—R圖，如圖</p><p><b>　?。?）選擇實體</b></p><p>　　選擇實體

15、包括：課程編號和學生編號。課程實體的E—R圖，如圖</p><p><b>　?。?）學生實體</b></p><p>　　學生實體包括：課程編號、學生姓名、系別和專業。學生實體的E—R圖，如圖</p><p><b>　?。?）教師實體</b></p><p>　　教師實體包括：教師編號、教師姓名

16、和職稱。教師實體的E—R圖，如圖</p><p><b>　　2、數據表概要說明</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、主要數據表的結構</p><p>　?。?）Account表</p><p>

18、;　　表1Account表結構</p><p><b>　?。?）Admin表</b></p><p>　　表2Admin表結構</p><p>　?。?）Course表</p><p>　　表3Course表結構</p><p>　?。?）Selection表</p><

19、;p>　　表4Selection表結構</p><p>　?。?）Student表</p><p>　　表5Student表結構</p><p>　?。?）Teacher表</p><p>　　表6Teacher表結構</p><p>　?。ㄈ?、文件架構設計</p><p>　?。?/p>

20、四）、前臺頁面設計（普通用戶模塊）</p><p>　　1、前臺各個主要頁面概述</p><p><b>　　↑選課系統登錄頁面</b></p><p><b>　　↑選課系統登錄首頁</b></p><p>　　↑選課系統輸入課程信息頁面</p><p>　　↑選課系統搜索

21、課程信息頁面</p><p>　　↑選課系統選課信息一覽表頁面</p><p>　　2、前臺主頁面的布局</p><p><b>　　↑前臺主頁面布局</b></p><p>　　3、前臺主頁面的實現</p><p>　?。?）選課系統登錄首頁</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>選課系統首頁－登錄頁面</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="華文新魏">校園網選<font color="#9900CC">課系統</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>　?。?）信息錄入頁面</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>　　'判斷是否具有教務員權限</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、;　　課 程 號：</font><input name="txtCourseno" type="text" id="txtCourseno"> <font color="#0000FF" size="4"> 學 分：</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、 最大選課人數：<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>　?。?）瀏覽課程信息頁面</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-當前頁數,TotalPages-總頁數,absRecordNum-當前頁中某一條記錄的序號</p><p>　　RecordPerPage=4 '每頁顯示的記錄數</p><p>　　ab

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

68、<p>　　absPageNum=absPageNum-1</p><p>　　ElseIf Request.Form("Submit")="下一頁" 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 '設置這個屬性選項會提高性能</p>

70、<p>　　rsTest.Open StrSQL,Conn,adOpenStatic,adLockReadOnly,adCmdText</p><p>　　'設置RecordSet對象的每一頁數據記錄條數</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="華文隸書">課程號</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="華文隸書">學分</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="華文隸書">最大選課人數</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="華文隸書">目前選課人數</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="華文隸書">教師號</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>　　'將每條記錄的各個字段輸出</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 '若到記錄尾，退出－如當最后一頁數據不滿頁時。</p><p><b>　　End If</

96、b></p><p><b>　　Next</b></p><p>　　Response.Write "</Table><Br>"</p><p>　　'關閉數據庫和數據表</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 '若當前頁不是第一頁，則顯示上一頁鏈接</p><p>　　Response.Write "<Input Type=Submit Name=Submit Value=上一頁>"</p><p><b>　　End If<

100、;/b></p><p>　　If absPageNum<>TotalPages Then '若當前頁不是最后一頁，則顯示下一頁鏈接</p><p>　　Response.Write "<Input Type=Submit Name=Submit Value=下一頁>"</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>頁,共<Font Color="#CC0033"><% =TotalPages %></Font>頁]</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="黑體">學分：</font> &l

119、t;/p><p>　　<select name="selCredit" id="selCredit"></p><p>　　<option value="0" selected>所有學分</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>無標題文檔</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="華文新魏">請選擇選課方式</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="黑體">按課程編號選擇：</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="黑體">按課程學分選擇：</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>　?。ㄎ澹?、后臺模塊的設計與實現（管理員模塊）</p>&l

156、t;p>　　1、后臺各個主要頁面概述</p><p>　　為了方便學生入學之后的賬號管理，學生可以自行在教務系統中修改賬號密碼。</p><p>　　管理員可以通過查詢課程編號來修改課程信息，包括課程名稱，課程描述，任課教師</p><p>　　2、后臺主頁面的布局</p><p>　　↑選課系統用戶密碼修改頁面</p>

157、<p>　　↑選課系統修改課程信息頁面</p><p>　　3、后臺主頁面的實現</p><p><b>　　修改課程信息頁面</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>　　'判斷是否具有教務員權限</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. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論