【導(dǎo)讀】代計(jì)算機(jī)應(yīng)用的一大特色。一個(gè)網(wǎng)站,是一個(gè)傳媒,也是一個(gè)窗口。普通人可以通過瀏覽各個(gè)網(wǎng)站,接觸。到許多從書本上學(xué)不到的知識(shí),還可以看看新聞之類當(dāng)作是一種消遣。而一個(gè)企業(yè),一個(gè)個(gè)體通過制作自。己的網(wǎng)站,向全世界宣傳自己的產(chǎn)品,提供各種產(chǎn)品的信息供顧客參考,并兼顧銷售。同時(shí),網(wǎng)站上普遍都有一些免費(fèi)資源,從而達(dá)到資源共享,使得我們足不出戶都能得到想要。通過網(wǎng)站使數(shù)據(jù)處理更方便快捷,人員訪問更。本課題為我們物理與機(jī)電學(xué)院的同學(xué)提供一個(gè)相互聯(lián)系,相互交流的平臺(tái)。網(wǎng)站上有最新的班級(jí)動(dòng)。態(tài),可以讓同學(xué)們即時(shí)了解本班的情況。在被允許的權(quán)限范圍內(nèi)管理和查詢相應(yīng)的信息。同時(shí)系統(tǒng)提供了更改密碼功能,方便用戶保護(hù)自己的隱。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)簡(jiǎn)介····························································

　　

【正文】 間，水平的原因，網(wǎng)頁設(shè)計(jì)的不精美。比如排版設(shè)計(jì)有些不合理，動(dòng)畫，圖片做的不是很有吸引力。這些將是我努力的方向。 以上是我在本次畢業(yè)設(shè)計(jì)中的體會(huì)，也許認(rèn)識(shí)到的問題還很膚淺，但就來說不得，它們正是我所需要的。 致 謝 致此論文即將付梓之際，謹(jǐn)向所有關(guān)心我學(xué)業(yè)的老師、同學(xué)及朋友表示衷心地感謝！ 衷心感謝我的指導(dǎo)老師王宇松老師。王老師認(rèn)真負(fù)責(zé)的品質(zhì)，精益求精的科研態(tài)度使我的論文的能夠如期完成。設(shè)計(jì)中遇到的種種困難，挫折，王老師都能及時(shí)地對(duì)我進(jìn)行指導(dǎo)，給我打氣，給我?guī)椭?。?者，所以授業(yè)傳道解惑也！在此謹(jǐn)向尊敬的 指導(dǎo)老師 致以最誠摯的謝意。 在整個(gè) 作品 的進(jìn)展及論文的撰寫過程中，也要感謝同學(xué)，朋友。他們提出的許多寶貴的意見和建議給了我很多啟示，很多幫助，在此我向他們表達(dá)我真誠的謝意。 同時(shí)， 也感謝 學(xué)校給了我這次畢業(yè)設(shè)計(jì)的機(jī)會(huì)，使我得到了很好的鍛煉，在此，我也向?qū)W校的各位老師表示最誠摯的感謝。 31 參考文獻(xiàn) [1] 劉瑞新 .ＡＳＰ網(wǎng)頁數(shù)據(jù)庫 [M]. 北京市西城區(qū)百萬莊大街 22: 機(jī)械工業(yè)出版社 , 2020,2531. [2] 王龍 ,黃峰．ＡＳＰ管理信息系統(tǒng)項(xiàng)目開發(fā) 實(shí)踐 [M] ．北京：科學(xué)出版社， 2020， 6270. [3] 溫明．ＡＳＰ網(wǎng)站建設(shè)實(shí)錄 [M]．北京： 紅旗出版社 ， 2020， 1723. [4] 楊威 . 網(wǎng)絡(luò)開發(fā)技術(shù) [M]. 北京：人民郵電出版社， 2020 ,3538. [5] ( 美 ) 沃爾瑟 (Walther,s.) ， ( 美 ) 萊文 (Levine,J.). ASP 電子商務(wù)編程 [M]. 北京：人民郵電出版社， 2020 ,3037. [6] ． Database system implementation[M] ． 北京市西城區(qū)百萬莊大街 22:機(jī)械工業(yè)出版社 , 2020, 5068. [7] Hector GarcialMolina ， Jeffrey , Jennifer Widom ． An introduction to Database And Systems Design (Seventh Edition) [M] ． 北京市西 城區(qū)百萬莊大街 22: 機(jī)械工業(yè)出版社， 2020 , 4470. [8 ]孟小峰，王珊．?dāng)?shù)據(jù)庫系統(tǒng)導(dǎo)論 [M] ． 北京市西城區(qū)百萬莊大街 22:機(jī)械工業(yè)出版社 ,2020,1820. 32 附頁 1 首頁代碼及驗(yàn)證函數(shù)： form id=test method=post action=user/?action=UserLogin table border=0 width=570 cellspacing=0 cellpadding=0 align=center tr td width=264 rowspan=2 p align=rightIMG height=363 src= width=262 align=left/p /td td width=306 valign=top style=HEIGHT: 70px TABLE id=Table1 cellSpacing=0 cellPadding=0 width=306 align=left border=0 TR TD height=1 align=left style=FONTSIZE: 10pt 輕 輕 的 我 走 了 ， BR 正 如 我 輕 輕 的 來 ； BR 我 輕 輕 的 招 手 ， BR 作 別 西 天 的 云 彩 。 BR BR 那 河 畔 里 的 金 柳 ， BR 是 夕 陽 中 的 新 娘 ； BR 波 光 里 的 艷 影 ， BR 在 我 的 心 頭 蕩 漾 。 BR BR ....... BR 但 我 不 能 放 歌 ， BR 悄 悄 是 別 離 的 笙 簫 ； BR 夏 蟲 也 為 我 沉 默 ， BR 沉 默 是 今 晚 的 康 橋 。 BR BR 悄 悄 的 我 走 了 ， BR 正 如 我 悄 悄 的 來 ； BR 我 揮 一 揮 衣 袖 ， BR 不 帶 走 一 片 云 彩 。 BR /TD /TR /TABLE /td /tr 33 tr td width=306 align=right valign=top style=FONTSIZE: 9pt 用戶名： input type=text name=iptUserName Width=94pxbr 密 碼： input type=password name=iptPassword Width=94px br input type=submit value=確定 input class=btn type=button name=btnUserReg value= 注 冊(cè) onclick==39。user/?action=ShowUserRegAnnounce39。 /td/tr/table/form !— 中間結(jié)束 其驗(yàn)證過程函數(shù)為： Function UserLoginCtl() Dim strUserPwd,strUserName,strUserPassword Dim strAddInfo Dim intErrId Dim intCookie intErrId = 0 strUserName = Trim(Request(iptUserName)) strAddInfo = 該用戶帳號(hào) intErrId = DataCheck(DT_FIX_LENGTH,strUserName,strAddInfo,2|DTC_LESS_MORE_LEN|10|) Call ResultExecute(intErrId,strAddInfo,ES_ERR) strUserPassword = Trim(Request(iptPassword)) strAddInfo = 該用戶密碼 intErrId = DataCheck(DT_FIX_LENGTH,strUserPassword,strAddInfo,6|DTC_LESS_MORE_LEN|20|) Call ResultExecute(intErrId,strAddInfo,ES_ERR) intCookie = Trim((iptCookie)) If IsNumeric(intCookie) Then intCookie = Cint(intCookie) Select Case intCookie Case 0 : intCookie = 0 Case1 : intCookie = 1 Case7 : intCookie = 7 Case31: intCookie = 31 Case 365: intCookie = 365 Case Else : intCookie = 365 End Select Else 34 intCookie = 0 End If 39。== Encrypt user39。s pwd strUserPassword = Md5(strUserPassword) 39。== check username and pwd If CheckPass(strUserName,strUserPassword,0) Then 39。== set user login cookie If intCookie 0 Then (GBL_strCookieURL).Expires = Date + intCookie (GBL_strCookieURL)(user) = strUserName (GBL_strCookieURL)(pass) = strUserPassword End If End If 39。== Successfully login and redirect homepage Call ActionOver() GBL_strHomeURL amp。 ../ End Function % 附頁 2 Function ShowCateListCtl() Dim i,j Dim clsTable 39。== the object of table Dim strHtmlCode,strTmp Dim strMaster Dim intLastCate,strQuery Dim arrCateName,arrCateId arrCateName = Split(Application(GBL_strCookieURL amp。 FORUM_CATE_NAME),|||) arrCateId = Split(Application(GBL_strCookieURL amp。 FORUM_CATE_ID),|||) intLastCate = 0 If Not GetForumsLogic() Then Exit Function If Not ResultExecute(, 目 前 本 論 壇 區(qū) 不 存 在 任 何 分 類 和 欄 目,ES_DB_NO) Then Set clsTable = New classTable 35 39。== Set table prameters = 0 = 5 = 1 = 100% = TBone = center strQuery = Trim(Request(pstAddType)) = ?strPostName=ShowContentTopicsamp。pstAddType= () i = 0 39。== Set table header style=39。display:none。wordbreak:breakall39。 , style=39。wordbreak:breakall39。 ,10% , style=39。wordbreak:breakall39。 ,40% , style=39。wordbreak:breakall39。 ,10% , style=39。wordbreak:breakall39。 ,40% Do While Not i = i + 1 If (FORUM_CATE_ID) intLastCate Or i = 1 Then Dim n,strCateName For n = Lbound(arrCateId) To UBound(arrCateId) If (FORUM_CATE_ID) = Cint(arrCateId(n)) Then strCateName = arrCateName(n) Exit For End If Next TBBG1 ┈┋ b amp。 strCateName amp。 /b┋┈ ,HeadFont style=39。wordbreak:breakall39。 colspan=4 End If TBBG9 amp。 style=39。wordbreak:breakall39。 onmouseover=BgChange(this,39。TBBG139。) onmouseout=BgChange(this,39。TBBG939。) If (FORUM_ADMIN_ONLY) = 1 OR (FORUM_READ_ONLY) = 1 Then img alt=39。該論壇板塊為只讀狀態(tài) 39。 src=39。 amp。 GBL_strHomeURL amp。 GBL_strImgDir amp。 ico/39。 align=absmiddle,TBBG1 amp。 valign=center style=39。wordbreak:breakall39。 Else 36 img src=39。 amp。 GBL_strHomeURL amp。 GBL_strImgDir amp。 ico/39。 align=absmiddle,TBBG1 amp。 valign=center style=39。wordbreak:breakall39。 End If strMaster = Replace(GetConfig(Application(GBL_strCookieURL amp。 FORUM_MASTER_NAME),Forum amp。 (FORUM_ID)),|, ) If Trim(strMaster) Then strMaster = 論壇版主： amp。 strMaster Else strMaster = 論壇版主：暫無 End If strHtmlCode = a href=39。 amp。 GBL_strHomeURL amp。 forum/?ForumId= amp。 (FORUM_ID) amp。 39。 amp。 MakeImg(GBL_strImgForum amp。 (FORUM_ICO),進(jìn)入 amp。 (FORUM_NAME)) amp。 /a If (FORUM_ADMIN_ONLY) = 1 Then strHtmlCode = table border=0 width=100% style=39。wordbreak:breakall39。tr width=100% style=39。wordbreak:breakall39。td width=20% style=39。wordbreak:breakall39。 amp。 strHtmlCode amp。 /tdtd align=left width=80% style=39。wordbreak:breakall39。 『 amp。 MakeLink(forum/?VIEW_MODE=ADMIN_ONLYamp。ForumId= amp。 (FORUM_ID),(FORUM_NAME), 進(jìn)入 amp。 (FORUM_NAME)) amp。 』 br amp。 (FORUM_DES) amp。 br amp。 MakeImg(GBL_strImgDir amp。 ico/,版主 ) amp。 strMaster amp。 /tdtd align=right valign=top Else strHtmlCode = table border=0 width=100% style=39。wordbreak:breakall39。tr width=100% style=39。wordbreak:breakall39。td width=20% style=39。wordbreak:breakall39。 amp。 strHtmlCode amp。 /tdtd align=left width=80% style=39。wordbreak:breakall39。 『 amp。 MakeLink(forum/?ForumId= amp。 (FORUM_ID),(FORUM_NAME), 進(jìn)入 amp。 (FORUM_NAME)) amp。 』 br amp。 (FORUM_DES) amp。 br amp。 MakeImg(GBL_strImgDir amp。 ico/,版主 ) amp。 strMaster amp。 /tdtd align=right valign=top End If strTmp = MakeImg(GBL_strImgDir amp。 ico/,發(fā)新帖 ) strTmp = MakeLink( forum/?ForumId= amp。 (FORUM_ID),strTmp,) strHtmlCode = strHtmlCode amp。 strTmp strTmp = MakeImg(GBL_strImgDir amp。 ico/,瀏覽精華帖 ) If (FORUM_ADMIN_ONLY) = 1 Then strTmp = MakeLink( forum/?VIEW_MODE=ADMIN_ONLYamp。ForumId= amp。 (FORUM_ID) amp。 amp。ACT_MODE=ACT_TOPICS_GOOD,strTmp,) Else 37 strTmp = MakeLink( forum/?ForumId= amp。 (FORUM_ID) amp。 amp。ACT_MODE=ACT_TOPICS_GOOD,strTmp,) End If strHtmlCode = strHtmlCode amp。 br amp。 strTmp strHtmlCode = strHtmlCode amp。 /td/tr/table strHtmlCode,CSS_TD_LEFT3 style=39。wordbreak:breakall39。 strHtmlCode = 主題： br amp。 (FORUM_TOPICS) 39。amp。 br新帖： amp。 (FORUM_TOPICS) amp