數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告——教務(wù)管理系統(tǒng)

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

數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告——教務(wù)管理系統(tǒng)_第1頁

已閱讀1頁，還剩23頁未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡(jiǎn)介

1、　　XX大學(xué)XXXX學(xué)院　　課程設(shè)計(jì)　　課題題目：教務(wù)管理系統(tǒng)　　學(xué) 部： XX學(xué)部　　專業(yè)： XXXX 　　班級(jí)

2、： X班 　　學(xué) 號(hào)： 　　姓名 XXX　　指導(dǎo)老師： XXX　　2011 年 6月 23 日　　成績(jī)：</p

3、>　　一系統(tǒng)功能分析與設(shè)計(jì)　　1. 需求分析　　制作教務(wù)管理信息系統(tǒng)的目的是為學(xué)校學(xué)生提供一個(gè)方便創(chuàng)建教師、學(xué)生信息的工具，實(shí)現(xiàn)能夠方便、快捷的查詢信息。　　管理信息系統(tǒng)是進(jìn)行信息的采集,存儲(chǔ),修改,維護(hù),備份和使用的系統(tǒng),它是隨著管理科學(xué)

4、和技術(shù)科學(xué)的發(fā)展而形成的.教務(wù)管理信息系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以教務(wù)管理信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?對(duì)學(xué)生來說可以輕松的查閱自己在校的信息以及選課等。　　2. 功能模塊圖分析說明　　2.1 總體功能模塊圖　　2.2 各個(gè)

5、模塊分析說明　　2.2.1學(xué)生學(xué)籍管理　　該模塊主要實(shí)現(xiàn)學(xué)生信息的基本管理，便于管理員添加學(xué)生、刪除學(xué)生、查詢學(xué)生等管理學(xué)生學(xué)籍的功能。　　2.2.2教學(xué)管理　　該模塊實(shí)現(xiàn)對(duì)課程的基本管理。課程管理主要實(shí)現(xiàn)對(duì)課程信息的查詢，添加課程，

6、替學(xué)生選課等功能。　　2.2.3教師管理　　該模塊實(shí)現(xiàn)教師情況的管理，如：對(duì)教師的信息查詢，添加，刪除，修改。　　2.2.4教材管理　　該模塊主要實(shí)現(xiàn)對(duì)教材的查詢，添加，修改管理。</p&g

7、t;　　二、數(shù)據(jù)庫設(shè)計(jì)　　1. 全局E-R圖　　2 . 關(guān)系模式　　student(studentnum,studentname,ssecret,sex,stuyear,stumon,studay,inyear,

8、inmon,inday,specialnum,phone,city);　　teacher(teachernum,teachername,ssecret,sex,teayear,teamon,teaday,classnum,position,phone,city);　　book(booknum,bookname,edition,number,editor,

9、rate,pagenum,);　　class(classnum, classname,exam,knowledge,credits);　　stc(classnum, studentnum, teachernum);　　boocla(classnum, booknum);

10、　3. 數(shù)據(jù)字典　　3.1 student（學(xué)生表）：　　3.2teacher（教師表）：　　3.3 book（教材表）：　　3.4 class（課程表）：　　3.5 stc（選課表）：&

11、lt;p>　　3.6 ookcla（選教材表）：　　三系統(tǒng)實(shí)現(xiàn)　　管理員登陸如圖1所示，可對(duì)學(xué)生學(xué)籍、教師、教學(xué)、教材進(jìn)行管理　　圖1　　管理員登陸后的界面如圖2所示，初始頁面為“學(xué)生

12、學(xué)籍管理”頁面，點(diǎn)擊“教學(xué)管理”、“教學(xué)管理”、“教材管理”鏈接進(jìn)入相應(yīng)的頁面　　圖2　　在“學(xué)生學(xué)籍管理”頁面，輸入需要查找的相應(yīng)信息，點(diǎn)擊查找按鈕即可對(duì)此進(jìn)行搜索，并列出符合條件的學(xué)生列表，如圖3所示，性別選擇女，點(diǎn)擊查找按鈕，列出性別為女的學(xué)生　　圖3

13、　　點(diǎn)擊查找按鈕后面的“添加”鏈接，跳轉(zhuǎn)到“添加學(xué)生”頁面，界面如圖4所示　　圖4　　填好需要添加的學(xué)生的相應(yīng)信息后，點(diǎn)擊提交按鈕，彈出“添加成功！”，說明該學(xué)生信息已成功添加，如圖5所示　　圖5

14、　　在返回的“學(xué)生學(xué)籍管理”主頁面，輸入該學(xué)生的學(xué)號(hào)0838010301進(jìn)行查找，結(jié)果列出該生的全部信息，如圖6所示 　　圖6　　點(diǎn)擊該學(xué)生信息后的“修改”鏈接，跳轉(zhuǎn)到“學(xué)生信息修改”頁面，可對(duì)除學(xué)號(hào)外所有信息進(jìn)行修改，如圖7所示&

15、lt;p>　　圖7　　修改好相應(yīng)信息后，點(diǎn)擊“修改”按鈕，彈出“修改成功！”提示框，表明修改已成功，如圖8所示　　圖8　　在“學(xué)生學(xué)籍管理”主頁面，輸入該學(xué)生的學(xué)號(hào)0838010301進(jìn)行查找，結(jié)果列出該生的全部信息，如圖9所示，發(fā)

16、現(xiàn)已有修改　　圖9　　點(diǎn)擊“修改”鏈接后的刪除鏈接，可對(duì)學(xué)生的信息進(jìn)行刪除處理，彈出“刪除成功！”提示框，說明已刪除成功，如圖10所示　　圖10　　輸入學(xué)生的學(xué)號(hào)和密碼后可登陸到“學(xué)生信息查詢”頁

17、面，如圖11所示 　　圖11　　如果學(xué)號(hào)和密碼正確，則再彈出“登陸成功！”提示框，如圖12所示　　圖12　　然后跳轉(zhuǎn)到“學(xué)生資料查詢”頁面，如圖13所示&

18、lt;b>　　圖13　　點(diǎn)擊“查詢課程”鏈接后，跳轉(zhuǎn)到“學(xué)生個(gè)人課表查詢”頁面，如圖14所示　　圖14　　點(diǎn)擊“修改”按鈕跳轉(zhuǎn)到學(xué)生資料修改頁面，可對(duì)密碼、電話、籍貫進(jìn)行修改，如圖15所示

19、　圖15　　點(diǎn)擊“修改”，彈出“修改成功！”提示框，說明修改資料成功，如圖16所示　　圖16　　四小結(jié)　　全組組員在設(shè)計(jì)數(shù)據(jù)庫前期規(guī)劃和設(shè)計(jì)上都有很突出的貢獻(xiàn)，畫E-R圖，

20、轉(zhuǎn)邏輯關(guān)系，設(shè)計(jì)數(shù)據(jù)字典，幾乎是一氣呵成。　　五開發(fā)工具和參考文獻(xiàn)　　1. 開發(fā)工具　　Adobe Dreamweaver CS3　　Adobe Photoshop CS5 Extended<p&g

21、t;　　Microsoft SQL Server 2000 Personal SP4　　2. 參考文獻(xiàn)　　2.1 劉濤.動(dòng)態(tài)網(wǎng)站開發(fā)：ASP SQL Server Dreamweaver.北京：高等教育出版社，2008　　2.2 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論（第4版）.

22、北京：高等教育出版社，2006（2010重?。?lt;/p>　　2.3 http://www.laozhe.net/articles/15.html　　2.4 http://wenku.baidu.com/view/e64662232f60ddccda38a012.html　　2.5 劉浩增，張坤，宋強(qiáng)等.ASP動(dòng)態(tài)網(wǎng)站

23、開發(fā)教程.北京：清華大學(xué)出版社，2009　　2.6 李曉黎，張巍. ASP+SQL Server網(wǎng)絡(luò)應(yīng)用系統(tǒng)開發(fā)與實(shí)例.北京：人民郵電出版社，2004（2005重印）　　六源程序清單　　1. 建表代碼<

24、;p>　　create table teacher(　　teachernumvarchar(10)not nullprimary key,　　teachernamevarchar(10)not null,　　ssecretvarchar(10)not null,

25、　　sexvarchar(10)nullcheck (sex in ('男','女')),　　teayearvarchar(10)null,　　teamonvarchar(4)null,　　teadayvarchar(4)null

26、,　　classnumvarchar(10)not null,　　positionvarchar(10)not null,　　phonevarchar(11)null,　　cityvarchar(20)null,&l

27、t;p>　　);　　create table book(booknumvarchar(10)not nullprimary key,　　booknamevarchar(20)not null,　　editionvarchar(20)null,&l

28、t;/p>　　numbervarchar(10)not null,　　editorvarchar(10)null,　　ratevarchar(10)not null,　　pagenumvarchar(10)null,<p&g

29、t;　　);　　create table class(knowledgevarchar(10)null,　　creditsvarchar(10)null,　　classnumvarchar(10)not nullprimary key,</p&g

30、t;　　classnamevarchar(10)not null,　　examvarchar(10)nullcheck (exam in ('考試','考查')),　　);　　create table st

31、udent(studentnumvarchar(10)not nullprimary key,　　studentnamevarchar(10)not null,　　ssecretvarchar(10)not null,　　sexvarchar(10)nullcheck (sex in

32、 ('男','女')),　　stuyearvarchar(10)null,　　stumonvarchar(10)null,　　studayvarchar(10)null,　　inyearvarchar(10)n

33、ull,　　inmonvarchar(10)null,　　indayvarchar(10)null,　　specialnumvarchar(10)not null,　　phonevarchar(11)null,&

34、lt;p>　　cityvarchar(20)null,　　);　　create table stc(　　classnumvarchar(10)not null,　　studentnumvarchar(10)n

35、ot null,　　teachernumvarchar(10)not null,　　primary key(studentnum,teachernum,classnum),　　foreign key(studentnum) references student(studentnum),</p&

36、gt;　　foreign key(teachernum) references teacher(teachernum),　　foreign key(classnum) references class(classnum),　　);　　create t

37、able boocla(　　classnumvarchar(10)not null,　　booknumvarchar(10)not null,　　primary key(classnum,booknum),　　foreign key(booknum) r

38、eferences book(booknum),　　foreign key(classnum) references class(classnum),　　);　　2. 網(wǎng)頁關(guān)鍵代碼　　2.1 鏈接數(shù)據(jù)庫核心代碼（Connect

39、ions/conn.asp）　　<%　　Dim MM_conn_STRING　　MM_conn_STRING = "Provider=SQLOLEDB;data source=(local);initial catalog=teachers;uid=sa;pw

40、d=;"　　%>　　2.2 網(wǎng)頁通用調(diào)用方法　　　　2.3 管理員查詢和刪除頁面關(guān)鍵代碼

41、（index_stu.asp）　　<%　　Set conn = Server.Createobject("ADODB.Connection")　　conn.open MM_conn_STRING<b&g

42、t;　　%>　　<%　　del=request.QueryString("studentnum")　　if(del<>"") then　　conn.e

43、xecute("delete from student where studentnum='"&del&"'")　　Response.Write("<script>alert('刪除成功！') ;window.location.href = 'index_stu.asp'

44、;</script>")　　end if　　studentnum=request.form("studentnum")　　studentname=request.form("studentname")</p

45、>　　ssecret=request.form("ssecret")　　sex=request.form("sex")　　stuyear=request.form("stuyear")　　stumon=request.form

46、("stumon")　　studay=request.form("studay")　　inyear=request.form("inyear")　　inmon=request.form("inmon")<

47、p>　　inday=request.form("inday")　　specialnum=request.form("specialnum")　　phone=request.form("phone")　　dim rs</b&g

48、t;　　set rs=server.CreateObject("adodb.recordset")　　sql="select * from student where studentnum like ('"&studentnum&"%') and studentna

49、me like ('"&studentname&"%') and studentnum like ('"&studentnum&"%') and ssecret like ('"&ssecret&"%') and sex like ('"&

50、sex&"%') and stuyear like ('"&stuyear&"%') and stumon like ('"&stumon&"%') and studay like ('"&studay&"%') and inyea

51、r like ('"&inyear&"%') and inmon like ('"&inmon&"%') and inday like ('"&inday&"%') and specialnum like ('"&specialnum&

52、amp;"%') and phone like (　　rs.open sql,conn,1,3　　if not rs.eof then　　const maxperpage=10 '定義每一頁顯示的數(shù)據(jù)記錄的常量　　dim curren

53、tpage '定義當(dāng)前頁的變量　　rs.pagesize=maxperpage　　currentpage=request("page")　　if currentpage="" or not Isnumeric(currentpage) then

54、　　currentpage=1　　elseif currentpage<1 then　　c1urrentpage=1　　else　　currentpage=clng(currentpage)

55、;　　if currentpage > rs.pagecount then　　currentpage=rs.pagecount　　end if　　end if

56、9;如果變量currentpage的數(shù)據(jù)類型不是數(shù)值型　　'就1賦給變量currentpage　　if not isnumeric(currentpage) then　　currentpage=1　　end if</p&

57、gt;　　dim totalput,n '定義變量　　totalput=rs.recordcount　　if totalput mod maxperpage=0 then　　n=totalput\maxperpage　　el

58、se　　n=totalput\maxperpage+1　　end if　　if n=0 then　　n=1　　end

59、 if　　rs.move(currentpage-1)*maxperpage　　i=0　　do while i< maxperpage and not rs.eof　　i=i+1</b

60、>　　%>　　<%　　rs.movenext　　loop　　end if<

61、/b>　　rs.close　　set rs=nothing　　%>　　2.4 添加頁面關(guān)鍵代碼(student_add.asp)<b&

62、gt;　　<%　　Dim MM_editAction　　MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))　　If (Request.QueryString <> ""

63、;) Then　　MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)　　End If　　' boolean to abort re

64、cord edit　　Dim MM_abortEdit　　MM_abortEdit = false　　%>　　<%　　If (CStr(Req

65、uest("MM_insert")) = "form1") Then　　If (Not MM_abortEdit) Then　　' execute the insert　　Dim MM_editCmd　　Set MM_edi

66、tCmd = Server.CreateObject ("ADODB.Command")　　MM_editCmd.ActiveConnection = MM_conn_STRING　　MM_editCmd.CommandText = "INSERT INTO dbo.student (studentnum, studentn

67、ame, ssecret, sex, stuyear, stumon, studay, inyear, inmon, inday, specialnum, phone, city) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" 　　MM_editCmd.Prepared = true　　MM_e

68、ditCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 10, Request.Form("studentnum")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(

69、"param2", 201, 1, 10, Request.Form("studentname")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 10, Request.Form("

70、ssecret")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 10, Request.Form("sex")) ' adLongVarChar　　M

71、M_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 10, Request.Form("stuyear")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(

72、"param6", 201, 1, 10, Request.Form("stumon")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 10, Request.Form("studa

73、y")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 10, Request.Form("inyear")) ' adLongVarChar　　MM_e

74、ditCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 10, Request.Form("inmon")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("

75、;param10", 201, 1, 10, Request.Form("inday")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 10, Request.Form("specialnu

76、m")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 10, Request.Form("phone")) ' adLongVarChar　　MM_e

77、ditCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 10, Request.Form("city")) ' adLongVarChar　　MM_editCmd.Execute　　MM_editCmd.ActiveCon

78、nection.Close　　Response.Write("<script>alert('添加成功！');window.location.href = 'index_stu.asp';</script>")　　Response.end&

79、lt;b>　　End If　　End If　　%>　　<%　　Dim rc<

80、/p>　　Dim rc_cmd　　Dim rc_numRows　　Set rc_cmd = Server.CreateObject ("ADODB.Command")　　rc_cmd.ActiveConnection = MM_conn_STRING</p&g

81、t;　　rc_cmd.CommandText = "SELECT * FROM dbo.student" 　　rc_cmd.Prepared = true　　Set rc = rc_cmd.Execute　　rc_numRows = 0<p&

82、gt;　　%>　　2.5 管理員修改頁面關(guān)鍵代碼(modify_stu.asp)　　<%　　Dim MM_editAction　　MM_editAction = CStr(Reque

83、st.ServerVariables("SCRIPT_NAME"))　　If (Request.QueryString <> "") Then　　MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Reque

84、st.QueryString)　　End If　　' boolean to abort record edit　　Dim MM_abortEdit　　MM_abortEdit = false<p&

85、gt;　　%>　　<%　　If (CStr(Request("MM_update")) = "form1") Then　　If (Not MM_abortEdit) Then</p

86、>　　' execute the update　　Dim MM_editCmd　　Set MM_editCmd = Server.CreateObject ("ADODB.Command")　　MM_editCmd.ActiveConnection = MM

87、_conn_STRING　　MM_editCmd.CommandText = "UPDATE dbo.student SET studentname = ?, ssecret = ?, sex = ?, stuyear = ?, stumon = ?, studay = ?, inyear = ?, inmon = ?, inday = ?, specialnum = ?, phone

88、 = ?, city = ? WHERE studentnum = ?" 　　MM_editCmd.Prepared = true　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 10, Request.Form("

89、;studentname")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 10, Request.Form("ssecret")) ' adLongVarChar<

90、;p>　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 10, Request.Form("sex")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParam

91、eter("param4", 201, 1, 10, Request.Form("stuyear")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 10, Request.Form("

92、;stumon")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 10, Request.Form("studay")) ' adLongVarChar

93、　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 10, Request.Form("inyear")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParamete

94、r("param8", 201, 1, 10, Request.Form("inmon")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 10, Request.Form("inda

95、y")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 10, Request.Form("specialnum")) ' adLongVarChar

96、　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 10, Request.Form("phone")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter

97、("param12", 201, 1, 10, Request.Form("city")) ' adLongVarChar　　MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 200, 1, 10, Request.Form("MM_r

98、ecordId")) ' adVarChar　　MM_editCmd.Execute　　MM_editCmd.ActiveConnection.Close　　Response.Write("<script>alert('修改成功！') ;window.loc

99、ation.href = 'index_stu.asp';</script>")　　Response.end　　End If　　End If

100、　　%>　　<%　　Dim Recordset1__MMColParam　　Recordset1__MMColParam = "1"　　If (Request.QueryString

101、("studentnum") <> "") Then 　　Recordset1__MMColParam = Request.QueryString("studentnum")　　End If<b&g

102、t;　　%>　　<%　　Dim Recordset1　　Dim Recordset1_cmd　　Dim Recordset1_numRows　　Set Reco

103、rdset1_cmd = Server.CreateObject ("ADODB.Command")　　Recordset1_cmd.ActiveConnection = MM_conn_STRING　　Recordset1_cmd.CommandText = "SELECT * FROM dbo.student WHERE

104、 studentnum = ?" 　　Recordset1_cmd.Prepared = true　　Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 10, Recordset1__MMColParam) &#

105、39; adVarChar　　Set Recordset1 = Recordset1_cmd.Execute　　Recordset1_numRows = 0　　%>　　2.6 學(xué)生查詢信息頁面關(guān)鍵代碼（student_inde

106、x.asp）　　<%　　' *** Logout the current user.　　MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1&

107、quot;　　If (CStr(Request("MM_Logoutnow")) = "1") Then　　Session.Contents.Remove("MM_Username")　　Session.Contents.Remove("MM_

108、UserAuthorization")　　MM_logoutRedirectPage = "index.asp"　　' redirect with URL parameters (remove the "MM_Logoutnow" query param).

109、;　　if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))　　If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.Q

110、ueryString <> "") Then　　MM_newQS = "?"　　For Each Item In Request.QueryString　　If (Item <> "MM_Logoutnow") Then</

111、p>　　If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"　　MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))</

112、p>　　End If　　Next　　if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS<p

113、>　　End If　　Response.Redirect(MM_logoutRedirectPage)　　End If　　%>　　<!--#

114、include file="Connections/conn.asp" -->　　<%　　Dim Recordset1__MMColParam　　Recordset1__MMColParam = "1"

115、　　If (session("username") <> "") Then 　　Recordset1__MMColParam = session("username")　　End If

116、　　%>　　<%　　Dim Recordset1　　Dim Recordset1_cmd　　Dim Recordset1_numRows　　S

117、et Recordset1_cmd = Server.CreateObject ("ADODB.Command")　　Recordset1_cmd.ActiveConnection = MM_conn_STRING　　Recordset1_cmd.CommandText = "SELECT * FROM dbo.studen

118、t WHERE studentnum = ?" 　　Recordset1_cmd.Prepared = true　　Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 10, Recordset1__MMColPa

119、ram) ' adVarChar　　Set Recordset1 = Recordset1_cmd.Execute　　Recordset1_numRows = 0　　%>　　<%

120、;　　Dim MM_paramName 　　%>　　<%　　' *** Go To Record and Move To Record: create strings for

121、maintaining URL and Form parameters　　Dim MM_keepNone　　Dim MM_keepURL　　Dim MM_keepForm　　Dim MM_keepBoth　　Dim MM_remo

122、veList　　Dim MM_item　　Dim MM_nextItem　　' create the list of parameters which should not be maintained　　MM_removeList = "&ind

123、ex="　　If (MM_paramName <> "") Then　　MM_removeList = MM_removeList & "&" & MM_paramName & "="

124、;　　End If　　MM_keepURL=""　　MM_keepForm=""　　MM_keepBoth=""　　MM_keepNone=""&l

125、t;p>　　' add the URL parameters to the MM_keepURL string　　For Each MM_item In Request.QueryString　　MM_nextItem = "&" & MM_item & "="</p&g

126、t;　　If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then　　MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))　　End If

127、　　Next　　' add the Form variables to the MM_keepForm string　　For Each MM_item In Request.Form　　MM_nextIt

128、em = "&" & MM_item & "="　　If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then　　MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(R

129、equest.Form(MM_item))　　End If　　Next　　' create the Form + URL string and remove the intial '&' from each

130、 of the strings　　MM_keepBoth = MM_keepURL & MM_keepForm　　If (MM_keepBoth <> "") Then 　　MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth)

131、- 1)　　End If　　If (MM_keepURL <> "") Then　　MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)<b&

132、gt;　　End If　　If (MM_keepForm <> "") Then　　MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)　　End If</p&g

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

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(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ì)自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告——教務(wù)管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告——教務(wù)管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載