【正文】
謝謝嚴老師,老師你辛苦了。在這幾個月中,老師帶著我們這些本來對做系統(tǒng)項目一點沒有經(jīng)驗的學(xué)生,可以說在這次做系統(tǒng)中,我們遇到了許多問題。畢業(yè)設(shè)計是我們大學(xué)生三年的學(xué)習(xí)生活后的一種實踐成果,通過這次設(shè)計,不僅能把我們?nèi)暝趯W(xué)校所學(xué)到的知識用到畢業(yè)設(shè)計中去,使所學(xué)的知識得以鞏固;而且還要通過自己的創(chuàng)想,邊做邊學(xué)習(xí),用到了許多書上所學(xué)不到的實際技能方面的操作,真正做到了理論聯(lián)系實際。這個系統(tǒng)從無慢慢的一步一步架構(gòu)起來。從系統(tǒng)的需求分析開始我是要從系統(tǒng)慢慢的分析這個系統(tǒng)有哪些功能 ,要起到什么效果。以信息網(wǎng)站為核心的Web信息系統(tǒng)建設(shè)方興未艾,運用新技術(shù)進行創(chuàng)新的應(yīng)用開發(fā),提高網(wǎng)絡(luò)系統(tǒng)應(yīng)用成效。又由于ASP編程所用的Vbscript 與 Jscript語言較其它語言較簡潔、易操作、功能較強非常適合廣大用戶進行網(wǎng)站的開發(fā)。隨著現(xiàn)代信息技術(shù)的發(fā)展,它將越來越受到人們的關(guān)注,21世紀它將成為構(gòu)筑終身學(xué)習(xí)體系的主要內(nèi)容。 MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1)End IfFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 MM_nextItem amp。 MM_item amp。 ((MM_item)) End IfNextFor Each MM_item In MM_nextItem = amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 amp。 MM_paramName amp。 amp。2,此模塊的主要類似代碼:%0URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItemMM_removeList = amp。 = 0 = 2 = 3 If Not Or Not Then 39。) amp。,39。 amp。39。39。 Replace(MM_valUsername,39。 FROM admin WHERE adminname=39。 , amp。 MM_recordId If (Not MM_abortEdit) Then Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End IfEnd If%四、管理登陸模塊如圖:1. 在登陸界面中,要輸入用戶名和密碼,如果不輸入或輸入錯誤出現(xiàn)提示錯誤請從新輸入。 MM_editColumn amp。 MM_formVal Next MM_editQuery = MM_editQuery amp。 MM_columns(MM_i) amp。 Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields)) Then MM_editQuery = MM_editQuery amp。) amp。,39。 amp。) Then 39。 MM_editTable amp。 amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr((MM_fields(MM_i))) Next If (MM_editRedirectUrl And ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And ) Then MM_editRedirectUrl = MM_editRedirectUrl amp。,none,39。39。||39。,none,39。39。|tel|39。,none,39。39。|zhicheng|39。,none,39。|birthdate|39。,none,39。39。|deptid|39。,none,39。39。%If (CStr(Request(MM_update)) = form1 And CStr(Request(MM_recordId)) ) Then MM_editConnection = MM_conn_STRING MM_editTable = teacher MM_editColumn = id MM_recordId = + (MM_recordId) + MM_editRedirectUrl = MM_fieldsStr = teacherid|value|name|value|deptid|value|pw|value|birthdate|value|sex|value|zhicheng|value|xuewei|value|tel|value|mobil