畢業(yè)論文——基于bs辦公系統(tǒng)

1、<p>　　畢 業(yè) 設(shè) 計(jì) 論 文</p><p>　　—鹽化四廠內(nèi)部辦公系</p><p>　　姓 名: __</p><p>　　指導(dǎo)教師: </p><p>　　班 級(jí): </p><p><b>　　設(shè)計(jì)日期： 年 月</b

2、></p><p><b>　　目錄</b></p><p><b>　　目錄2</b></p><p><b>　　摘要3</b></p><p><b>　　前 言3</b></p><p>　　第一章 系統(tǒng)分析、

3、設(shè)計(jì)4</p><p>　　1.1系統(tǒng)需求分析4</p><p>　　1.2 用戶需求4</p><p>　　1.3系統(tǒng)功能需求簡(jiǎn)介5</p><p>　　公司內(nèi)部辦公管理系統(tǒng)對(duì)公司加強(qiáng)內(nèi)部信息管理有著極其重要的作用。由于各個(gè)公司每年都在發(fā)展，公司的日益龐大，傳統(tǒng)的手工信息管理不僅工作量大，而且容易出現(xiàn)問題。5</p>

4、<p>　　1.4功能需求描述5</p><p>　　1.5功能模塊圖5</p><p>　　1.6數(shù)據(jù)庫(kù)設(shè)計(jì)6</p><p><b>　　1.7E-R圖9</b></p><p>　　第二章 系統(tǒng)實(shí)現(xiàn)11</p><p>　　2.1數(shù)據(jù)庫(kù)連接11</p>

5、<p>　　2.2登陸界面設(shè)計(jì)12</p><p>　　2.3用戶登錄界面及編碼設(shè)計(jì)14</p><p>　　2.4進(jìn)入員工信息管理系統(tǒng)15</p><p>　　</table>17</p><p>　　2.4.1修改員工個(gè)人信息17</p><p>　　2.4.2添加新用戶信息21&

6、lt;/p><p>　　2.4.3刪除用戶信息:24</p><p>　　2.5用戶進(jìn)入公司財(cái)務(wù)信息管理系統(tǒng)25</p><p>　　2.5.1 添加財(cái)務(wù)記錄26</p><p>　　2.5.2修改財(cái)務(wù)記錄28</p><p>　　2.5.3刪除財(cái)務(wù)記錄29</p><p>　　2.5.4

7、生成財(cái)務(wù)報(bào)表29</p><p>　　2.6用戶進(jìn)入公司內(nèi)部信息交流系統(tǒng)33</p><p>　　2.6.1通知公告牌34</p><p>　　2.6.2內(nèi)部意見箱36</p><p>　　第三章 結(jié) 論38</p><p>　　3.1．體會(huì)到了系統(tǒng)分析的重要性38</p><p>

8、　　3.2．理論≠實(shí)踐38</p><p>　　3.3．掌握了系統(tǒng)開發(fā)的流程38</p><p>　　3.4．鞏固了知識(shí)38</p><p><b>　　致謝39</b></p><p><b>　　參考文獻(xiàn)39</b></p><p><b>　　摘要&

9、lt;/b></p><p>　　論文敘述了一個(gè)公司內(nèi)部辦公信息管理系統(tǒng)的概況。重點(diǎn)介紹了企業(yè)內(nèi)部辦公信息管理系統(tǒng)的實(shí)現(xiàn)過(guò)程：包括系統(tǒng)分析、 系統(tǒng)調(diào)查、 數(shù)據(jù)流程分析、功能設(shè)計(jì)、 數(shù)據(jù)庫(kù)設(shè)計(jì)、  系統(tǒng)實(shí)現(xiàn)、 系統(tǒng)測(cè)試和調(diào)試。本系統(tǒng)主要功能有用戶管理、學(xué)生成績(jī)查詢、學(xué)生成績(jī)管理(查找、錄入、修改)等數(shù)據(jù)操作……包括功能需求描述、數(shù)據(jù)庫(kù)設(shè)計(jì)等內(nèi)容。第二

10、部分介紹了本系統(tǒng)的分析、設(shè)計(jì)，第三部分介紹了本系統(tǒng)的具體實(shí)現(xiàn)，第四部分關(guān)于本系統(tǒng)開發(fā)過(guò)程中的結(jié)論及體會(huì)。</p><p><b>　　關(guān)鍵詞</b></p><p>　　公司內(nèi)部辦公信息管理系統(tǒng) 、ASP </p><p><b>　　前 言</b></p><p>　　ASP（Active Se

11、rver Pages）是Microsoft提出的一種網(wǎng)絡(luò)服務(wù)器端編程環(huán)境。ASP已經(jīng)成為開發(fā)動(dòng)態(tài)網(wǎng)站的重要而快速、有效的工具。ASP強(qiáng)大的功能使之成為一種優(yōu)秀的服務(wù)器技術(shù)。隨著網(wǎng)絡(luò)技術(shù)的日益成熟，ASP技術(shù)在網(wǎng)絡(luò)編程中也變得越來(lái)越重要。所以，在我們的畢業(yè)設(shè)計(jì)中，我們采用了ASP作為開發(fā)工具，構(gòu)建了一個(gè)能實(shí)現(xiàn)簡(jiǎn)單綜合素質(zhì)管理系統(tǒng)，用來(lái)負(fù)責(zé)系統(tǒng)的用戶模塊的實(shí)現(xiàn)。</p><p>　　通過(guò)這次的畢業(yè)設(shè)計(jì)，我了解了目前管

12、理系統(tǒng)的構(gòu)成和運(yùn)作原理，掌握了用ASP的相關(guān)知識(shí)和技術(shù)原理，鍛煉了自己的動(dòng)手實(shí)踐能力。更重要的是，通過(guò)這次的畢業(yè)設(shè)計(jì)，我培養(yǎng)出了刻苦鉆研的學(xué)習(xí)精神和嚴(yán)肅認(rèn)真的學(xué)習(xí)態(tài)度，這對(duì)我以后的學(xué)習(xí)和工作有很大的益處。</p><p>　　本系統(tǒng)首先對(duì)整個(gè)公司內(nèi)部員工進(jìn)行管理存儲(chǔ)，同時(shí)限制他們的權(quán)限，使每個(gè)人能夠有效查看相關(guān)信息，并修改自己的信息，只有具有一定權(quán)限的員工才能對(duì)相關(guān)信息進(jìn)行查看和修改。其次，對(duì)公司所有財(cái)務(wù)按公司規(guī)

13、定進(jìn)行統(tǒng)一管理，登記，如果有需要，可以將財(cái)務(wù)生成報(bào)表，使看著更加一目了然。最后，設(shè)置公司內(nèi)部交流系統(tǒng)，包括內(nèi)部通知公告牌和內(nèi)部意見箱，使公司可以即時(shí)向公司員工發(fā)送相關(guān)通知，還可以使公司員工能夠自主向公司提出寶貴意見。是一套比較全面的公司內(nèi)部辦公管理系統(tǒng)。由于一個(gè)公司的綜合管理是一項(xiàng)復(fù)雜的、多樣的工作,本系統(tǒng)沒有也不可能把所有問題都考慮進(jìn)去。另外本系統(tǒng)的不足之處，①由于公司逐年發(fā)展，公司部門可能會(huì)相應(yīng)增加等…內(nèi)部會(huì)需要更復(fù)雜的系統(tǒng)管理，A

14、ccess數(shù)據(jù)庫(kù)逐漸顯現(xiàn)出其不足，可用Sql Server數(shù)據(jù)庫(kù)。③在管理員模塊中，管理員無(wú)法對(duì)數(shù)據(jù)庫(kù)進(jìn)行備份。通過(guò)本系統(tǒng)的使用,將能使一個(gè)公司的內(nèi)部管理更加完善，快速。</p><p><b>　　系統(tǒng)特點(diǎn)</b></p><p>　　1.簡(jiǎn)單明了，易于操作：</p><p>　　此系統(tǒng)一目了然，界面友好，容易上手，操作簡(jiǎn)單。</p&g

15、t;<p>　　2.公司員工信息管理：</p><p>　　根據(jù)員工所在部門及職位大小對(duì)其做了相應(yīng)權(quán)限。</p><p><b>　　2.成績(jī)報(bào)表</b></p><p>　　可以根據(jù)不同部門，不同項(xiàng)目，不同經(jīng)手人，不同日期及個(gè)人打印出各自所需要的財(cái)務(wù)報(bào)表。</p><p>　　第一章 系統(tǒng)分析、設(shè)計(jì)<

16、;/p><p><b>　　1.1系統(tǒng)需求分析</b></p><p>　　系統(tǒng)需要經(jīng)過(guò)有效的身份驗(yàn)證才可以登錄。</p><p>　　將登錄本系統(tǒng)的身份分為三種：系統(tǒng)管理員、財(cái)務(wù)管理員、普通員工，只有被授權(quán)的用戶才可以使用本系統(tǒng)資源，并根據(jù)員工身份對(duì)其設(shè)置相關(guān)的使用權(quán)限。</p><p>　　系統(tǒng)提供接收添加員工信息。&l

17、t;/p><p>　　系統(tǒng)提供對(duì)公司財(cái)務(wù)進(jìn)行查詢和統(tǒng)計(jì)。</p><p>　　系統(tǒng)提供公司發(fā)布通知及員工對(duì)公司提出意見。</p><p><b>　　1.2 用戶需求</b></p><p>　　系統(tǒng)根據(jù)用戶身份不同，使用的系統(tǒng)資源也不同。</p><p>　　系統(tǒng)管理員：可以對(duì)系統(tǒng)中的一切進(jìn)行查看、

18、添加及修改。</p><p>　　財(cái)務(wù)管理員：除了對(duì)自己的相關(guān)信息可以查看和修改外，還可以對(duì)財(cái)務(wù)進(jìn)行查看、添加及修改。</p><p>　　普通員工：只能查看和自己相關(guān)的信息，修改自己的信息。</p><p><b>　　具體流程如圖所示：</b></p><p>　　1.3系統(tǒng)功能需求簡(jiǎn)介</p><

19、;p>　　公司內(nèi)部辦公管理系統(tǒng)對(duì)公司加強(qiáng)內(nèi)部信息管理有著極其重要的作用。由于各個(gè)公司每年都在發(fā)展，公司的日益龐大，傳統(tǒng)的手工信息管理不僅工作量大，而且容易出現(xiàn)問題。 </p><p><b>　　1.4功能需求描述</b></p><p>　　用戶分為系統(tǒng)管理員、財(cái)務(wù)管理員、普通員工三類。不論是系統(tǒng)管理員或財(cái)務(wù)管理員，還是普通員工都需要通過(guò)用戶名和口令進(jìn)行登錄…

20、…</p><p>　　財(cái)務(wù)管理員可以看到財(cái)務(wù)信息進(jìn)行添加和修改。財(cái)務(wù)信息包括項(xiàng)目名稱、款項(xiàng)的數(shù)額、經(jīng)手人、添加日期、修改日期。當(dāng)公司員工查找某一財(cái)務(wù)情況時(shí)，可以自動(dòng)顯示出該財(cái)務(wù)的所有情況。在財(cái)務(wù)信息管理中，財(cái)務(wù)管理員可以對(duì)財(cái)務(wù)進(jìn)行增加、修改和刪除。并能夠打印各部門、各項(xiàng)目、個(gè)人財(cái)務(wù)報(bào)表和綜合財(cái)務(wù)報(bào)表……</p><p>　　普通員工登錄后，他們只能看到自己的個(gè)人信息及修改自己的信息，還可

21、以查看公司內(nèi)部通知和向公司提出自己的意見。個(gè)人信息包括登錄名、姓名、登錄密碼、電子郵件、部門、職位、內(nèi)部分機(jī)號(hào)碼、家庭電話、手機(jī)號(hào)、QQ號(hào)、家庭住址、是否是系統(tǒng)管理員、生日、是否是財(cái)務(wù)管理員、性別及教育程度。</p><p>　　管理員登錄后，管理員可以看到系統(tǒng)中包含的所有信息，并對(duì)其進(jìn)行修改和添加。</p><p><b>　　1.5功能模塊圖</b></p&

22、gt;<p><b>　　1.6數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　公司部門信息數(shù)據(jù)表(Departments)</p><p>　　公司職位信息數(shù)據(jù)表(Positions)</p><p>　　公司財(cái)務(wù)信息數(shù)據(jù)表(FinancialRecord)</p><p>　　公司財(cái)務(wù)項(xiàng)目信息數(shù)據(jù)表(Finan

23、cialProject)</p><p>　　公司通知公告牌數(shù)據(jù)表(SuggestionRecords)</p><p>　　系統(tǒng)用戶信息數(shù)據(jù)表（PSLogins）：</p><p>　　公司內(nèi)部意見信息數(shù)據(jù)表(SuggestionRecords)</p><p>　　公司內(nèi)部意見類型數(shù)據(jù)表(SuggestionTypes)</p>

24、;<p>　　表1 公司部門信息數(shù)據(jù)表(Departments)</p><p>　　表2 公司職位信息數(shù)據(jù)(Positions)</p><p>　　表3 公司財(cái)務(wù)信息數(shù)據(jù)表(FinancialRecord)</p><p>　　表4公司財(cái)務(wù)項(xiàng)目信息數(shù)據(jù)表(FinancialProject)</p><p>　　表5公司通知

25、公告牌數(shù)據(jù)表(SuggestionRecords)</p><p>　　表6系統(tǒng)用戶信息數(shù)據(jù)表（PSLogins）：</p><p>　　表7 公司內(nèi)部意見信息數(shù)據(jù)表(SuggestionRecords)</p><p>　　表8 公司內(nèi)部意見類型數(shù)據(jù)表(SuggestionTypes)</p><p><b>　　1.7E-R圖&

26、lt;/b></p><p>　　系統(tǒng)用戶信息實(shí)體圖：</p><p>　　圖1-1系統(tǒng)用戶信息實(shí)體圖</p><p>　　公司部門信息實(shí)體圖：</p><p>　　圖1-2 公司部門信息實(shí)體圖</p><p>　　公司職位信息實(shí)體圖：</p><p>　　圖1-3公司職位信息實(shí)體圖<

27、;/p><p>　　公司財(cái)務(wù)信息實(shí)體圖：</p><p>　　圖1-4 公司財(cái)務(wù)信息實(shí)體圖</p><p>　　公司財(cái)務(wù)項(xiàng)目信息實(shí)體圖：</p><p>　　圖1-5 公司財(cái)務(wù)項(xiàng)目信息實(shí)體圖</p><p>　　公司通知公告牌實(shí)體圖：</p><p>　　圖1-6 公司通知公告牌實(shí)體圖</p&

28、gt;<p>　　公司內(nèi)部意見信息實(shí)體圖：</p><p>　　圖1-7 公司內(nèi)部意見信息實(shí)體圖</p><p>　　公司內(nèi)部意見類型實(shí)體圖：</p><p>　　圖1-8公司內(nèi)部意見類型實(shí)體圖</p><p><b>　　第二章 系統(tǒng)實(shí)現(xiàn)</b></p><p>　　下面給出系統(tǒng)開

29、發(fā)出來(lái)的詳細(xì)界面以闡述公司內(nèi)部管理系統(tǒng)的具體功能。</p><p><b>　　2.1數(shù)據(jù)庫(kù)連接</b></p><p><b>　　代碼如下：</b></p><p><b>　　<%</b></p><p>　　dim conn'數(shù)據(jù)庫(kù)連接</p&g

30、t;<p>　　dim connstr'連接字符串</p><p>　　dim db'數(shù)據(jù)庫(kù)文件路徑</p><p>　　db = "Database/office.mdb"'演示時(shí)用ACCESS數(shù)據(jù)庫(kù)</p><p>　　connstr = "Provider = Microsoft.

31、Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)</p><p>　　Set conn = Server.CreateObject("ADODB.Connection")</p><p>　　if err Then</p><p><b>　　err.clear&

32、lt;/b></p><p><b>　　end if</b></p><p>　　conn.Open connstr</p><p>　　'關(guān)閉數(shù)據(jù)庫(kù)連接，在每頁(yè)中調(diào)用此函數(shù)，將連接放入連接池</p><p>　　sub CloseConn()</p><p>　　conn.Clo

33、se()</p><p>　　Set conn = Nothing</p><p><b>　　end sub</b></p><p><b>　　'替換單引號(hào)</b></p><p>　　function RealString(strSrc)</p><p>　

34、　RealString = Replace(Trim(strSrc), "'", "''")</p><p>　　end function</p><p><b>　　%></b></p><p><b>　　2.2登陸界面設(shè)計(jì)</b></p&

35、gt;<p>　　首先是進(jìn)入登陸界面，本窗體顯示用戶名稱，密碼校驗(yàn)等信息，本系統(tǒng)的用戶分為三類：系統(tǒng)管理員，財(cái)務(wù)管理員，普通員工。使用者可以輸入相應(yīng)的用戶名和密碼，單擊“確定”就會(huì)將輸入提交給系統(tǒng)以驗(yàn)證用戶、密碼及身份。如果用戶名及密碼正確，則會(huì)進(jìn)入系統(tǒng)的主體。</p><p>　　本模塊的流程圖如下：</p><p><b>　　代碼如下：</b>&l

36、t;/p><p>　　'校驗(yàn)用戶提交的用戶信息</p><p><b>　　else</b></p><p>　　TheUsername=Request.Form("Username")</p><p>　　ThePassword=Request.Form("Password"

37、)</p><p>　　If Instr(TheUsername, "'")=0 and Instr(ThePassword, "'")=0 and Instr(TheUsername, "'")=0 _</p><p>　　and Instr(ThePassword, "'")

38、=0 then</p><p>　　set RSLogin = conn.Execute("select * from PSLogins where " & "LoginID = '" _</p><p>　　& TheUsername & "' and " & "Pass

39、word = '" & ThePassword & "'")</p><p>　　if RSLogin.EOF then</p><p>　　Session("NumAttempts") = Session("NumAttempts") + 1</p><p>　　

40、if Application("NumAttempts") = 0 then</p><p>　　TheMessage = "登錄不成功，請(qǐng)重試:"</p><p>　　elseif Session("NumAttempts") > Application("NumAttempts") then</

41、p><p>　　TheMessage = "登錄不成功，登錄次數(shù)已滿，無(wú)法重試"</p><p><b>　　else</b></p><p>　　TheTimes=Application("NumAttempts")-Session("NumAttempts")+1</p>

42、<p>　　TheMessage = "登錄不成功，還有" & TheTimes & "次機(jī)會(huì)，請(qǐng)重試:"</p><p><b>　　end if</b></p><p><b>　　else</b></p><p>　　Session("ID

43、") = RSLogin("LoginID")</p><p>　　Application("ID") = RSLogin("LoginID")</p><p>　　Session("Name") = RSLogin("Name")</p><p>　　

44、Session("Password") = RSLogin("Password")</p><p>　　Session("Department") = RSLogin("Department")</p><p>　　Session("EmailAddress")=RSLogin("

45、EmailAddress")</p><p>　　Session("Position")=RSLogin("Position")</p><p>　　Session("InternalPhone")=RSLogin("InternalPhone")</p><p>　　Sess

46、ion("HomePhone")=RSLogin("HomePhone")</p><p>　　Session("MobilePhone")=RSLogin("MobilePhone")</p><p>　　Session("QQ")=RSLogin("QQ")</

47、p><p>　　Session("Birthday")=RSLogin("Birthday")</p><p>　　Session("HomeAddress")=RSLogin("HomeAddress")</p><p>　　Session("IsSystemManager&qu

48、ot;)=RSLogin("IsSystemManager")</p><p>　　Session("IsFinancialManager")=RSLogin("IsFinancialManager")</p><p>　　Response.Redirect "home.asp"</p><

49、p><b>　　end if</b></p><p><b>　　else</b></p><p>　　TheMessage="用戶名或者密碼輸入不合格式"</p><p><b>　　end if</b></p><p><b>　　en

50、d if </b></p><p>　　<% response.write TheMessage %></p><p>　　<div align="center"> </p><p><b>　　<%</b></p><p>　　if TheMessage &

51、lt;> "登錄不成功，登錄次數(shù)已滿，無(wú)法重試" then</p><p><b>　　%></b></p><p>　　<form name="form" method="post" action="index.asp"></p><p>

52、　　<p><font color="#3466BB">用戶</font> </p><p>　　<input class=itm name=UserName size=15></p><p><b>　　</p></b></p><p>　　<p><

53、;font color="#3466BB">密碼</font> </p><p>　　<input class=itm name=Password size=15 type=password></p><p><b>　　<br></b></p><p><b>　　<

54、;br></b></p><p>　　<input type="submit" name="Login" value="登錄" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF"></p>

55、<p>　　<input type="reset" name="Reset" value="重設(shè)" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF"></p><p>　　2.3用戶登錄界面及編碼設(shè)計(jì)</

56、p><p>　　本節(jié)以對(duì)用戶進(jìn)行管理為例，介紹管理員的編碼設(shè)計(jì)。管理員進(jìn)入“用戶管理”中的各種功能。</p><p><b>　　代碼如下：</b></p><p>　　<font color="#104DAD"></p><p>　　<% If Time >= #12:00:00

57、 AM# And Time < #12:00:00 PM# Then </p><p>　　Response.Write "早上好!" </p><p>　　Elseif Time >= #12:00:00 PM# And Time < #18:00:00 AM# Then </p><p>　　Response.Write &

58、quot;下午好!" </p><p><b>　　Else</b></p><p>　　Response.Write "晚上好!"</p><p><b>　　End If </b></p><p>　　%><% response.write Sessio

59、n("Name") %>,歡迎您訪問內(nèi)網(wǎng)!今天是<% response.write Date %> </font></p><p>　　</p></td></tr> </p><p>　　<tr bgcolor=white height=50></p>

60、<p>　　<td align=center> <a href="EmployeeInformation.asp"><font color="#104DAD">企業(yè)員工信息管理系統(tǒng)</font></a></td></p><p><b>　　</tr></b&

61、gt;</p><p>　　<tr bgcolor=white height=50></p><p>　　<td align=center> <a href="finance.asp"><font color="#104DAD">公司財(cái)務(wù)信息管理系統(tǒng)</font></a><

62、;/td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor=white height=50></p><p>　　<td align=center><a href="Communication.asp"> <font c

63、olor="#104DAD" >公司內(nèi)部交流信息系統(tǒng)</FONT></td></p><p>　　2.4進(jìn)入員工信息管理系統(tǒng)</p><p><b>　　代碼如下：</b></p><p>　　<table cellpadding=1 cellspacing=1 border=1 alig

64、n=center width=100%></p><p><b>　　<tr></b></p><p>　　<td width=35％><input type="radio" checked name="SendTo" value="AllEmployeeInformation&qu

65、ot; ></p><p>　　<font color="#164DA8">查詢所有員工信息</font></td></p><p><b>　　<td></b></p><p>　　<input type="radio" checked nam

66、e="AllOrder" value="Name" >按姓名排序&nbsp</p><p>　　<input type="radio" name="AllOrder" value="Department" >按部門排序&nbsp</p><p>　　<

67、input type="radio" name="AllOrder" value="Birthday" >按生日排序</p><p>　　</td></tr></p><p>　　<tr><td width=30％> </p><p>　　<inp

68、ut type="radio" name="SendTo" value="DepartmentEmployeeInformation" ></p><p>　　<font color="#164DA8">查詢某個(gè)部門員工信息</font></td></p><p>&l

69、t;b>　　<td></b></p><p>　　<select name="DepartmentName" ></p><p><b>　　<%</b></p><p>　　Do Until RSDepartments.EOF</p><p><

70、b>　　%></b></p><p>　　<option value="<% Response.Write RSDepartments("DepartmentName") %>"></p><p>　　<% Response.Write RSDepartments("Departmen

71、tName") %></option></p><p><b>　　<%</b></p><p>　　RSDepartments.Movenext</p><p><b>　　loop</b></p><p><b>　　%></b>

72、</p><p>　　</select></td></tr></p><p>　　<tr><td> </p><p>　　<input type="radio" name="SendTo" value="OneEmployeeI

73、nformation" ><font color="#164DA8">查詢某個(gè)員工信息</font></p><p><b>　　</td><td></b></p><p>　　<table width=100% border=1></p><p>

74、<b>　　<tr><td></b></p><p>　　<input type="radio" Checked name="CheckName" value="FromList" ><font color="#164DA8">從列表中選擇</font>

75、;</p><p><b>　　</td><td></b></p><p>　　<select name="RoleName" ></p><p><b>　　<%</b></p><p>　　Do Until RSRoles.EOF&l

76、t;/p><p><b>　　%></b></p><p>　　<option value="<% Response.Write RSRoles("Name") %>"><% Response.Write RSRoles("Name") %></option>

77、;</p><p><b>　　<%</b></p><p>　　RSRoles.Movenext</p><p><b>　　loop</b></p><p><b>　　%></b></p><p><b>　　</s

78、elect></b></p><p>　　</td></tr></p><p><b>　　<tr><td></b></p><p>　　<input type="radio" name="CheckName" value=&quo

79、t;Type" ><font color="#164DA8">從輸入的名字查詢</font> </p><p><b>　　</td></b></p><p><b>　　<td></b></p><p>　　<input type=

80、"text" Checked name="TypeName" value="" > </p><p>　　</td></tr></table></p><p>　　</td></tr> </p><p>　　<t

81、r><td width=30%><input type="radio" name="SendTo" value="ModifyPersonalInformation" ></p><p>　　<font color="#164DA8">修改關(guān)于我的信息</font></td

82、><td>&nbsp;</td></tr></p><p>　　<tr><td width=30%><input type="radio" name="SendTo" value="SystemManager" ></p><p>　　<

83、font color="#164DA8">系統(tǒng)管理員選項(xiàng)</font></td></p><p>　　<td><input type="radio" name=SystemOrder value="Name" checked >以姓名排序進(jìn)入&nbsp </p><p>

84、;　　<input type="radio" name=SystemOrder value="Department">以部門排序進(jìn)入&nbsp<br></p><p>　　<input type="radio" name=SystemOrder value="Birthday">以生日排序進(jìn)

85、入</td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　2.4.1修改員工個(gè)人信息</p><p><b>　　代碼如下：</b></p><

86、p>　　'更新用戶個(gè)人信息 </p><p>　　conn.Execute " update PSLogins set " _</p><p>　　& "EmailAddress='" & Request.Form("EmailAddress")

87、& "', " _</p><p>　　& "InternalPhone='" & Request.Form("InternalPhone") & "', " _</p><p>　　& "HomePhone='"

88、; & Request.Form("HomePhone") & "', " _</p><p>　　& "MobilePhone='" & Request.Form("MobilePhone") & "', " _</p

89、><p>　　& "QQ='" & Request.Form("QQ") & "', " _</p><p>　　& "HomeAddress='" & Request.Form("HomeAddress") & "

90、;', " _</p><p>　　& "Birthday='" & Request.Form("BirthdayYear") & "-" _</p><p>　　& Request.Form("BirthdayMonth") & "-

91、" _</p><p>　　& Request.Form("BirthdayDay") & "' " _</p><p>　　& " Where Name='" & Request.Form("Name") &"'"&

92、lt;/p><p>　　TheMessage = "您的個(gè)人信息已經(jīng)修改成功"</p><p><b>　　else</b></p><p>　　'如果用戶輸入了新密碼</p><p>　　if Request.Form("NewPassword") = Request.For

93、m("ConfirmNewPassword") then</p><p>　　Session("Name") = Request.Form("Name")</p><p>　　Session("Password") = Request.Form("NewPassword")</p>

94、;<p>　　Session("EmailAddress")=Request.Form("EmailAddress")</p><p>　　Session("InternalPhone")=Request.Form("InternalPhone")</p><p>　　Session("

95、HomePhone")=Request.Form("HomePhone")</p><p>　　Session("MobilePhone")=Request.Form("MobilePhone")</p><p>　　Session("HomeAddress")=Request.Form("

96、HomeAddress")</p><p>　　Session("Birthday")=Request.Form("BirthdayYear") & "-" & Request.Form("BirthdayMonth") & "-" & Request.Form("

97、;BirthdayDay")</p><p>　　Session("QQ")=Request.Form("QQ")</p><p>　　Session("HomeAddress")=Request.Form("HomeAddress") </p><p>　　c

98、onn.Execute " update PSLogins set " _</p><p>　　& "EmailAddress='" & Request.Form("EmailAddress") & "', " _</p><p>　　& "Int

99、ernalPhone='" & Request.Form("InternalPhone") & "', " _</p><p>　　& "HomePhone='" & Request.Form("HomePhone") & "&

100、#39;, " _</p><p>　　& "MobilePhone='" & Request.Form("MobilePhone") & "', " _</p><p>　　& "QQ='" & Request.Form(&q

101、uot;QQ") & "', " _</p><p>　　& "HomeAddress='" & Request.Form("HomeAddress") & "', " _</p><p>　　& "Birthday='

102、" & Request.Form("BirthdayYear") & "-" _</p><p>　　& Request.Form("BirthdayMonth") & "-" _</p><p>　　& Request.Form("BirthdayD

103、ay") & "' " _</p><p>　　& " Where Name='" & Request.Form("Name") &"'" </p><p>　　TheMe

104、ssage = "您的個(gè)人信息已經(jīng)修改成功"</p><p><b>　　else </b></p><p>　　TheMessage = "新密碼輸入不一致，請(qǐng)重試" </p><p><b>　　end if </b></p><p><b>　

105、　end if</b></p><p><b>　　else</b></p><p>　　TheMessage = "您輸入的密碼有誤，請(qǐng)重試"</p><p><b>　　end if</b></p><p>　　else </p&g

106、t;<p>　　TheMessage = "請(qǐng)?jiān)谙旅嫘薷哪膫€(gè)人信息" </p><p><b>　　end if</b></p><p><b>　　用戶信息修改表格：</b></p><p>　　<table CELLPADDING=0 CELLSPAC

107、ING=1 BORDER=0 align=center width=100%></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">姓名</font></td></p><p>　　<td>

108、<INPUT TYPE="text" NAME="Name" VALUE="<% response.write Session("Name") %>" SIZE=51 MAXLENGTH=50 ></td></tr></p><p>　　<tr bgcolor="#66C

109、CFF"><td width=25%><font color="#164DA8">電子郵件地址</font></td></p><p>　　<td><INPUT TYPE="text" NAME="EmailAddress" VALUE="<% respon

110、se.write Session("EmailAddress") %>" SIZE=51 MAXLENGTH=50 ></td></tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8"&g

111、t;內(nèi)部分機(jī)電話</font></td></p><p>　　<td><INPUT TYPE="text" NAME="InternalPhone" VALUE="<% response.write Session("InternalPhone") %>" SIZE=51 MAXL

112、ENGTH=50 ></td></tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">移動(dòng)電話</font></td></p><p>　　<td><I

113、NPUT TYPE="text" NAME="MobilePhone" VALUE="<% response.write Session("MobilePhone") %>" SIZE=51 MAXLENGTH=50 ></td></tr></p><p>　　<tr bgcolor=

114、"#66CCFF"><td width=25%><font color="#164DA8">家庭電話</font></td></p><p>　　<td><INPUT TYPE="text" NAME="HomePhone" VALUE="<% r

115、esponse.write Session("HomePhone") %>" SIZE=51 MAXLENGTH=50 ></td></tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8"

116、>QQ號(hào)</font></td></p><p>　　<td><INPUT TYPE="text" NAME="QQ" VALUE="<% response.write Session("QQ") %>" SIZE=51 MAXLENGTH=50 ></td&g

117、t;</tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">生日</font></td></p><p><b>　　<td></b></p>

118、<p>　　<select name="BirthdayYear" size=1></p><p><b>　　<%</b></p><p>　　YearCounter= Year(Session("Birthday"))</p><p><b>　　%>&

119、lt;/b></p><p>　　<option value="<% Response.Write YearCounter %>">&nbsp&nbsp<% Response.Write YearCounter %>&nbsp&nbsp</option> </p><p><b&

120、gt;　　<%</b></p><p>　　YearCounter = 2000</p><p>　　Do until YearCounter <=1900</p><p><b>　　%></b></p><p>　　<OPTION VALUE="<% Respons

121、e.Write YearCounter %>">&nbsp&nbsp<% Response.Write YearCounter %>&nbsp&nbsp</OPTION></p><p><b>　　<%</b></p><p>　　YearCounter = YearCounter-

122、1</p><p><b>　　loop</b></p><p><b>　　%></b></p><p>　　</select> 年&nbsp&nbsp </p><p>　　<select name="BirthdayMonth" si

123、ze=1></p><p><b>　　<%</b></p><p>　　MonthCounter= Month(Session("Birthday"))</p><p><b>　　%></b></p><p>　　<option value="

124、;<% Response.Write MonthCounter %>">&nbsp&nbsp<% Response.Write MonthCounter %>&nbsp&nbsp</option> </p><p><b>　　<%</b></p><p>　　MonthCoun

125、ter = 1</p><p>　　Do until MonthCounter >12</p><p><b>　　%></b></p><p>　　<OPTION VALUE="<% Response.Write MonthCounter %>">&nbsp&nbsp&l

126、t;% Response.Write MonthCounter %>&nbsp&nbsp</OPTION></p><p><b>　　<%</b></p><p>　　MonthCounter = MonthCounter+1</p><p><b>　　loop</b></

127、p><p><b>　　%></b></p><p>　　</select> 月&nbsp&nbsp </p><p>　　<select name="BirthdayDay" size=1></p><p><b>　　<%</b>

128、;</p><p>　　DayCounter= Day(Session("Birthday"))</p><p><b>　　%></b></p><p>　　<option value="<% Response.Write DayCounter %>">&nbsp&

129、amp;nbsp<% Response.Write DayCounter %>&nbsp&nbsp</option> </p><p><b>　　<%</b></p><p>　　DayCounter = 1</p><p>　　Do unt

130、il DayCounter >31</p><p><b>　　%></b></p><p>　　<OPTION VALUE="<% Response.Write DayCounter %>">&nbsp&nbsp<% Response.Write DayCounter %>&

131、nbsp&nbsp</OPTION></p><p><b>　　<%</b></p><p>　　DayCounter = DayCounter+1</p><p><b>　　loop</b></p><p><b>　　%></b><

132、/p><p>　　</select> 日&nbsp&nbsp </td></tr> </p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">

133、家庭住址</font></td></p><p>　　<td><INPUT TYPE="text" NAME="HomeAddress" VALUE="<% response.write Session("HomeAddress") %>" SIZE=51 MAXLENGTH=5

134、0 ></td></tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">請(qǐng)輸入您的密碼</font> </td></p><p>　　<td><I

135、NPUT TYPE="Password" NAME="Password" VALUE="" SIZE=51 MAXLENGTH=50 ></td></tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font

136、color="#164DA8">請(qǐng)輸入您的新密碼</font></td></p><p>　　<td><INPUT TYPE="Password" NAME="NewPassword" VALUE="" SIZE=51 MAXLENGTH=50 ></td></

137、tr></p><p>　　<tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">請(qǐng)確認(rèn)您的新密碼</font></td></p><p>　　<td><INPUT TYPE="Password&

138、quot; NAME="ConfirmNewPassword" VALUE="" SIZE=51 MAXLENGTH=50 ></td></tr></p><p><b>　　</table></b></p><p>　　2.4.2添加新用戶信息</p><p>

139、;<b>　　代碼如下：</b></p><p><b>　　添加新用戶</b></p><p>　　if not IsEmpty(Request.Form("Add")) then</p><p>　　TheLoginID=Request.Form("LoginID")</p

140、><p>　　TheName=RealString(Request.Form("Name"))</p><p>　　TheEmailAddress=Request.Form("EmailAddress")</p><p>　　ThePassword=RealString(Request.Form("Password&qu

141、ot;))</p><p>　　Session("Password") = Request.Form("Password")</p><p>　　TheDepartment=Request.Form("Department") </p><p>　　ThePosition=RealString(Reques

142、t.Form("Position") )</p><p>　　TheInternalPhone=Request.Form("InternalPhone")</p><p>　　TheHomePhone=Request.Form("HomePhone")</p><p>　　TheMobilePhone=Re

143、quest.Form("MobilePhone")</p><p>　　TheQQ=Request.Form("QQ") </p><p>　　TheHomeAddress=Request.Form("HomeAddress")</p><p>　　TheIsSystemManager=Request.Fo

144、rm("IsSystemManager")</p><p>　　TheBirthday=Request.Form("BirthdayYear") & "-" _</p><p>　　& Request.Form("BirthdayMonth") & "-" &

145、 Request.Form("BirthdayDay")</p><p>　　TheIsFinancialManager=Request.Form("IsFinancialManager")</p><p>　　'對(duì)用戶輸入進(jìn)行校驗(yàn)，合格則添加新用戶信息</p><p>　　if len(ThePassword)=0

146、or len(TheName)=0 or len(TheLoginID)=0 then</p><p>　　TheMessage="登錄名，姓名，密碼不能為空，無(wú)法添加新用戶"</p><p><b>　　else</b></p><p>　　strSQL= "INSERT INTO PSLogins(Login

147、ID, Name, EmailAddress, " _</p><p>　　& "Department, Position,Birthday, HomePhone, QQ, HomeAddress," _</p><p>　　& " MobilePhone) values (" _</p><p>

148、;　　& "'" & TheLoginID &"', " _</p><p>　　& "'" & TheName &"', " _</p><p>　　& "'" & TheEmail

149、Address &"', " _</p><p>　　& "'" & TheDepartment &"', " _</p><p>　　& "'" & ThePosition &"', "