【正文】 ser_type)=A Then ELse End If Else 39。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。39。返回 /a重新登錄 End If % 后臺界面 圖 12 超級管理員后臺界面（ ） 圖 13 普通管理員后臺界面（ ） 圖 13 普通用戶管理員后臺界面（ ） 圖四（留言版動態(tài)發(fā)布） 圖五（聯(lián)系我們） 圖六（管 理員登陸） 第五章、設計總結(jié)評價 整個系統(tǒng)已基本完成，但是由于時間不夠充分，還有許多方面不夠完善，如有些功能不能運行 ，功能 不 齊全等等。 1） 公司簡介面頁中內(nèi)容顯得有些單簿，在后期工作中還會有所補充。 2） 圖片處理得不夠美觀 ，而且圖片少 ， 在以后會添加 。 3）整個版面不是很整齊，以后改進。 畢業(yè)設計終于可以告一段落了， 完成 期間，投入了許多精力，邊學邊做，積累經(jīng)驗， 學會了較多 制作網(wǎng)站的知識。 當然也讓我進一步了解了 后臺制作， 它必需與數(shù)據(jù)庫相連 。在以后的階段里我會在各個方面進一步的 完善，使網(wǎng)站更加的美觀。 第六章、參考文獻 1.《 ASP 信息化系統(tǒng)建設案例 》 人民郵電出版社 陳嫻、雒海濤編著 2.《 Dreamweaver8+ASP 動態(tài)網(wǎng)站開發(fā) 》 電子工業(yè)出版社 載一波編著 3.《 網(wǎng)站全程設計技術(shù) 》 清華大學出版社 姜韡 、 吳濤編著 4.《 網(wǎng)站設計與開發(fā) 》 機械工業(yè)出版社 楊曉鐘 編著 致 謝 在這里我非常感謝我的指導老師劉利東，在經(jīng)過他的教育下，使我在此完成我的 畢業(yè)設計，在此特向劉老師致謝！謝謝劉利東老師孜孜不倦的教導，以及對我們的重視，讓我能順利地完成這個課程設計。經(jīng)過一年相處，除了感謝還是感謝。從 Dreamweaver 到 ASP，讓你為了費不了少的心思，也費了你不少的時間。謝謝你陪我們走過了一年美好的大學時光，大學時光是美麗的，因為有你的存在。期待再見！ 我知道在這次的課程設計中自已有許多的欠缺，在以后的日子中，我一定得更加嚴格要求自己，改正缺點，不斷努力，不斷進步。 附 錄 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。(data/)amp。driver={microsoft access driver (*.mdb)}。 dim strsql,user_name ,Password ,realname ,mobi,,name name=(user_name) 39。檢查新用戶名與數(shù)據(jù)庫是否重復 ,哈哈，終于調(diào)通了 strSql=select * from user Where user_name=39。 amp。 (user_name) amp。 39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。39。重新注冊 /a else user_name=(user_name) Password=(Password) realname=(realname) mobi=(mobi) =() strsql=insert into user(user_name ,Password ,realname ,mobi,)values(39。amp。user_nameamp。39。,39。amp。Passwordamp。39。,39。amp。realnameamp。39。,39。amp。mobiamp。39。,39。amp。amp。39。) (strsql) end if else 請將所有信息填寫完整 A HREF=39。39。重新注冊 /a end if % 頁面源碼： % if (password)then dim db set db=() dbq=amp。()amp。driver={microsoft access driver (*.mdb)}。 dim strsql,Password ,id Password=(Password) StrSql=Update user Set Password=39。 amp。 Password amp。 39。Where user_name=39。amp。session(user_name)amp。39。 (strsql) else 請將所有信息填寫完整 A HREF=39。39。請重新修改 /a end if % Sign1 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。()amp。driver={microsoft access driver (*.mdb)}。 dim strsql,user_name ,Password,name name=(user_name) strSql=select * from user Where user_name=39。 amp。 (user_name) amp。 39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。39。重新注冊 /a else user_name=(user_name) Password=(Password) strsql=insert into user(user_name ,Password)values(39。amp。user_nameamp。39。,39。amp。Passwordamp。39。) (strsql) end if else 請將所有信息填寫完整 A HREF=39。39。重新注冊 /a end if % 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。()amp。driver={microsoft access driver (*.mdb)}。 dim strsql,user_name ,Password,name name=(user_name) strSql=select * from users Where user_name=39。 amp。 (user_name) amp。 39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。39。重新注冊 /a else user_name=(user_name) Password=(Password) strsql=insert into users(user_name ,Password)values(39。amp。user_nameamp。39。,39。amp。Passwordamp。39。) (strsql) end if else 請將所有信息填寫完整 A HREF=39。39。重新注冊 /a end if % ： %=True% % 39。查看有無該用戶 dim db,strsql,rs set db=() dbq=amp。()amp。driver={microsoft access driver (*.mdb)}。 strSql=Select user_name,password,user_type From users strSql=strSql amp。 Where user_name=39。 amp。 (user_name) amp。 39。 And password=39。 amp。 (password) amp。 39。 Set rs=(strSql) If not and not Then 39。如果有記錄，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) session(user_type)=rs(user_type) Session(password)=rs(password) 39。如果是普通用戶，重定向到首頁；如果是管理員，重定向到管理員頁面 If Session(user_type)=A Then ELse End If Else 39。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。39。返回 /a重新登錄 End If % 頁面源碼： %=True% % 39。查看有無該用戶 dim db,strsql,rs set db=() dbq=amp。()amp。driver={microsoft access driver (*.mdb)}。 strSql=Select user_name,password From user strSql=strSql amp。 Where user_name=39。 amp。 (user_name) amp。 39。 And password=39。 amp。 (password) amp。 39。 Set rs=(strSql) If not and not Then 39。如果有記錄，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) Session(password)=rs(password) 39。如果是普通用戶，重定向到首頁；如果是管理員，重定向到管理員頁面 If Session(user_name)=A Then ELse End If Else 39。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。39。返回首頁 /a重新登錄 End If % 超級管理員后臺界面（ ） %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=Connections/ % 39。 *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr((SCRIPT_NAME)) If ( ) Then MM_editAction = MM_editAction amp。 ? amp。 () End If