企業(yè)管理系統(tǒng)

年6月23日企業(yè)管理系統(tǒng)資料內(nèi)容僅供參考，如有不當(dāng)或者侵權(quán)，請(qǐng)聯(lián)系本人改正或者刪除。課程設(shè)計(jì)報(bào)告課程設(shè)計(jì)名稱人事管理系統(tǒng) 專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)班級(jí)3學(xué)號(hào)姓名指導(dǎo)教師于桂玲 成績(jī)年月日第一章概述 1第二章需求分析 12.1需求的文字表述 12.2系統(tǒng)分析 12.21系統(tǒng)功能描述 12.2.2功能模塊劃分 12.3系統(tǒng)功能模塊 1第三章概念模型設(shè)計(jì) 23.1局部E-R模型 23.1.1員工信息E-R圖:主要包括的屬性有員工編號(hào),姓名,性別,專業(yè),外語(yǔ)情況,學(xué)歷,婚姻狀況 23.1.2部門信息E-R圖:主要包括的屬性有部門的編號(hào),部門的名稱,以及部門的描述 33.1.3外語(yǔ)情況信息E-R圖:主要包括的屬性有崗位名稱,崗位說(shuō)明,所屬部門 33.1.4管理員E-R圖:主要包括的屬性有管理員編號(hào),管理員姓名,性別,年齡 33.1.5配偶信息E-R圖:主要包括的屬性有員工編號(hào),員工配偶姓名,配偶性別,工作單位 43.2集成E-R圖 4第四章邏輯結(jié)構(gòu)設(shè)計(jì) 54.1E-R圖向關(guān)系模型的轉(zhuǎn)換 64.2關(guān)系表的建立 64.2.1員工信息表的建立 64.2.2部門信息表的建立 74.2.3員工婚姻狀況表的建立 74.2.4員工學(xué)歷信息表的建立 74.3有關(guān)建表代碼與截圖 74.3.1員工信息表的建立 74.3.2部門信息表的建立 84.3.3員工婚姻表的建立 94.3.4員工學(xué)歷表的建立員工編號(hào),員工學(xué)歷,專業(yè)、畢業(yè)時(shí)間、學(xué)校、外語(yǔ)情況 104.3.5以下為前臺(tái)制作截圖: 11第一章概述 企業(yè)之間的競(jìng)爭(zhēng)主要體現(xiàn)在三個(gè)方面:產(chǎn)品市場(chǎng)的競(jìng)爭(zhēng)、資金市場(chǎng)的競(jìng)爭(zhēng)和人才市場(chǎng)的競(jìng)爭(zhēng)。在網(wǎng)絡(luò)經(jīng)濟(jì)的環(huán)境下,人才是企業(yè)生存發(fā)展的基礎(chǔ),企業(yè)必須建立有效的人力資源管理系統(tǒng),才能在競(jìng)爭(zhēng)中取得優(yōu)勢(shì)。完善的人力資源管理的兩大目標(biāo)是:第一,有效地降低管理層、員工和人力資源部員工用于人力資源管理上的時(shí)間消耗;第二,要促使人力資源部和管理層更加關(guān)注”增長(zhǎng)活動(dòng)”,從而吸引、發(fā)展和留住優(yōu)秀人才。人事管理系統(tǒng)能夠?qū)崿F(xiàn)功能包括”人事信息維護(hù)”、”數(shù)據(jù)查詢”、”系統(tǒng)維護(hù)”。該系統(tǒng)應(yīng)該提供人事信息的錄入(修改)、刪除、統(tǒng)計(jì):人事常見(jiàn)的數(shù)據(jù)查詢(包括各種復(fù)雜查詢),各類人事統(tǒng)計(jì)報(bào)表的設(shè)計(jì)、生成、表式的導(dǎo)入和導(dǎo)出、打印。第二章需求分析2.1需求的文字表述本系統(tǒng)是經(jīng)過(guò)詳細(xì)調(diào)查戶為滿足一些中小型企業(yè)公司的管理要求而制作的。當(dāng)前,利用計(jì)算機(jī)管理企業(yè)信息已經(jīng)越來(lái)越普遍,能夠說(shuō)計(jì)算機(jī)已成為一個(gè)企業(yè)不可或缺的”管理者”,它的方便性、安全性和可靠性也越來(lái)越受到人們的青睞。隨著科技的進(jìn)步,利用網(wǎng)絡(luò)連接各個(gè)部門和各個(gè)企業(yè)單位也都成為現(xiàn)實(shí)。為了方便公司各個(gè)部門的業(yè)務(wù)聯(lián)系和相關(guān)查詢,本系統(tǒng)一般要進(jìn)行必要的網(wǎng)絡(luò)連接,之后便能夠方便地使用,系統(tǒng)的特點(diǎn)如下:1、可替代許多復(fù)雜的人工勞動(dòng),如統(tǒng)計(jì)、核算等工作,節(jié)省許多資源。2、便于領(lǐng)導(dǎo)對(duì)員工的工資、調(diào)度等信息進(jìn)行查詢。3、利于高級(jí)用戶進(jìn)行洗頭膏信息管理和維護(hù),也允許普通用戶進(jìn)行部分信息瀏覽、查看,以實(shí)現(xiàn)管理機(jī)制透明化。4、提供了大量的操作提示,以其較強(qiáng)的容錯(cuò)能力,大大方便了管理者和用戶的使用,確保了數(shù)據(jù)的安全性、正確性、完整性和一致性。5、能在很大程度上優(yōu)化企業(yè)管理,提高企業(yè)的工作效率。2.2系統(tǒng)分析2.21系統(tǒng)功能描述 本系統(tǒng)是在實(shí)際調(diào)查的基礎(chǔ)上,結(jié)合廣大中小型企業(yè)的共同點(diǎn),嚴(yán)格遵循實(shí)事求是的原則創(chuàng)立而成的。目的是經(jīng)過(guò)該系統(tǒng)實(shí)現(xiàn)人事管理,信息查詢分析以及項(xiàng)目部門之間的調(diào)配工作等工作,最終實(shí)現(xiàn)科學(xué)決策。2.2.2功能模塊劃分 本系統(tǒng)從功能上分為個(gè)5模塊,分別是用戶管理、部門管理、人員管理、信息查詢及系統(tǒng)設(shè)置。 1、用戶管理:分為管理員和普通用戶,主要用戶對(duì)公司員工信息的修整和查看 2、部門管理:用于部門的創(chuàng)立、刪除及部門信息的修改和查詢等 3、人員管理:用于對(duì)員工的添加、刪除、信息的修改等進(jìn)行管理操作 4、信息查詢:用于對(duì)員工的詳細(xì)信息、各部門查詢操作 5、系統(tǒng)設(shè)置:用于對(duì)系統(tǒng)的一些基本參數(shù)的設(shè)置2.3系統(tǒng)功能模塊第三章概念模型設(shè)計(jì)3.1局部E-R模型3.1.1員工信息E-R圖:主要包括的屬性有員工編號(hào),姓名,性別,專業(yè),外語(yǔ)情況,學(xué)歷,婚姻狀況員工編號(hào)員工編號(hào)員工性別上崗日期員工外語(yǔ)情況學(xué)歷婚姻狀況姓名圖3-1員工信息E-R圖3.1.2部門信息E-R圖:主要包括的屬性有部門的編號(hào),部門的名稱,以及部門的描述部門編號(hào)部門編號(hào)部門名稱部門描述部門圖3-2部門信息E-R圖3.1.3外語(yǔ)情況信息E-R圖:主要包括的屬性有崗位名稱,崗位說(shuō)明,所屬部門崗位名稱崗位名稱崗位說(shuō)明所屬部門外語(yǔ)情況圖3-3崗位信息E-R圖3.1.4管理員E-R圖:主要包括的屬性有管理員編號(hào),管理員姓名,性別,年齡管理員編號(hào)管理員編號(hào)管理員姓名性別年齡管理員圖3-4管理員E-R圖3.1.5配偶信息E-R圖:主要包括的屬性有員工編號(hào),員工配偶姓名,配偶性別,工作單位員工配偶姓名員工配偶姓名配偶性別工作單位配偶員工編號(hào)圖3-5員工配偶信息E-R圖3.2集成E-R圖主要包括的實(shí)體有管理員,員工,部門,配偶,外語(yǔ)情況管理員與員工之間的關(guān)系是1:n配偶與員工之間的關(guān)系是1:1部門與員工之間的關(guān)系是1:n外語(yǔ)情況與員工之間的關(guān)系是1:n工作管理工作管理員工管理員部門婚姻包含配偶1n11nn111外語(yǔ)情況外語(yǔ)情況圖3-6集成E-R圖圖3-6集成E-R圖第四章邏輯結(jié)構(gòu)設(shè)計(jì)4.1E-R圖向關(guān)系模型的轉(zhuǎn)換根據(jù)E-R圖向關(guān)系模型轉(zhuǎn)換的原則,將兩個(gè)實(shí)體轉(zhuǎn)換為關(guān)系模式如下,其中碼用下劃線表示,而且不能為空。員工(員工編號(hào),姓名,性別,專業(yè),外語(yǔ)情況,學(xué)歷,婚姻狀況)部門(部門編號(hào),部門名稱,部門描述)外語(yǔ)情況(崗位名稱,崗位說(shuō)明,所屬部門)管理員(管理員編號(hào),姓名,性別,年齡)配偶(員工編號(hào),員工配偶姓名,性別,工作單位)4.2關(guān)系表的建立4.2.1員工信息表的建立 員工表中主要包括的屬性是員工編號(hào),姓名,性別,專業(yè),外語(yǔ)情況,學(xué)歷,婚姻狀況列名數(shù)據(jù)類型長(zhǎng)度允許空員工號(hào)CHAR10NOTNULL姓名CHAR10NOTNULL性別CHAR10YES專業(yè)CHAR10YES外語(yǔ)情況CHAR10YES學(xué)歷CHAR10YES婚姻狀況CHAR10YES年齡CHAR10YES畢業(yè)時(shí)間CHAR10YES畢業(yè)學(xué)校CHAR10YES表4-1員工信息表表4-1員工信息表 4.2.2部門信息表的建立 部門信息表中包括的主要的屬性有部門的編號(hào),部門的名稱,以及部門的描述列名數(shù)據(jù)類型長(zhǎng)度允許空部門編號(hào)CHAR10NOTNULL部門名稱CHAR10NOTNULL部門描述CHAR10YES表4-2部門信息表表4-2部門信息表4.2.3員工婚姻狀況表的建立 員工婚姻狀況表中包括的主要屬性有員工編號(hào),員工配偶姓名,性別,配偶工作單位列名數(shù)據(jù)類型長(zhǎng)度允許空員工編號(hào)CHAR10NOTNULL員工配偶姓名CHAR10YES性別CHAR10YES配偶工作單位CHAR10YES 表4-4員工婚姻狀況表4.2.4員工學(xué)歷信息表的建立 員工學(xué)歷信息表中包括的主要屬性有員工編號(hào),員工學(xué)歷,專業(yè)、畢業(yè)時(shí)間、學(xué)校、外語(yǔ)情況列名數(shù)據(jù)類型長(zhǎng)度允許空員工編號(hào)CHAR10NOTNULL員工學(xué)歷CHAR10YES專業(yè)CHAR10YES畢業(yè)時(shí)間CHAR10YES畢業(yè)學(xué)校CHAR10YES外語(yǔ)情況CHAR10YES 表4-5員工學(xué)歷信息表4.3有關(guān)建表代碼與截圖4.3.1員工信息表的建立Createtable員工信息(員工編號(hào)char(10)primarykey, 姓名char(10), 性別char(10), 專業(yè)char(10), 外語(yǔ)情況char(10), 學(xué)歷char(10), 婚姻狀況char(10));4.3.2部門信息表的建立Createtable部門信息( 部門編號(hào)char(10)primarykey, 部門名稱char(10), 部門描述char(10));4.3.3員工婚姻表的建立Createtable員工婚姻表( 員工編號(hào)char(10)primarykey, 員工配偶姓名char(10), 員工性別char(10), 工作單位char(10));4.3.4員工學(xué)歷表的建立員工編號(hào),員工學(xué)歷,專業(yè)、畢業(yè)時(shí)間、學(xué)校、外語(yǔ)情況Createtable員工學(xué)歷表( 員工編號(hào)char(10)primarykey, 員工學(xué)歷char(10), 專業(yè)char(10), 畢業(yè)時(shí)間char(10), 畢業(yè)學(xué)校char(10), 外語(yǔ)情況char(10));4.3.5以下為前臺(tái)制作截圖:主頁(yè)代碼<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"""><htmlxmlns=""><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>無(wú)標(biāo)題文檔</title><styletype="text/css"><!--.STYLE1{ font-size:x-large; color:#336699; font-weight:bold;}--></style></head><body><divalign="center"><spanclass="STYLE1">企業(yè)管理系統(tǒng)</span></div><p><ahref="dl.asp">登陸</a></p><p><ahref="cx.html">查詢系統(tǒng)</a></p><p><ahref="ygxxlr.asp">更新系統(tǒng)</a></p><p> </p></body></html>登陸頁(yè)代碼<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="Connections/san.asp"--><%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_san_STRINGRecordset1.Source="SELECT*FROM員工基本信息表"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%><%'***Validaterequesttologintothissite.MM_LoginAction=Request.ServerVariables("URL")IfRequest.QueryString<>""ThenMM_LoginAction=MM_LoginAction+"?"+Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form("textfield"))IfMM_valUsername<>""ThenMM_fldUserAuthorization=""MM_redirectLoginSuccess="dlcg.asp"MM_redirectLoginFailed="dlsb.asp"MM_flag="ADODB.Recordset"setMM_rsUser=Server.CreateObject(MM_flag)MM_rsUser.ActiveConnection=MM_san_STRINGMM_rsUser.Source="SELECT姓名,員工號(hào)"IfMM_fldUserAuthorization<>""ThenMM_rsUser.Source=MM_rsUser.Source&","&MM_fldUserAuthorizationMM_rsUser.Source=MM_rsUser.Source&"FROM員工基本信息表WHERE姓名='"&Replace(MM_valUsername,"'","''")&"'AND員工號(hào)='"&Replace(Request.Form("textfield2"),"'","''")&"'"MM_rsUser.CursorType=0MM_rsUser.CursorLocation=2MM_rsUser.LockType=3MM_rsUser.OpenIfNotMM_rsUser.EOFOrNotMM_rsUser.BOFThen'usernameandpasswordmatch-thisisavaliduserSession("MM_Username")=MM_valUsernameIf(MM_fldUserAuthorization<>"")ThenSession("MM_UserAuthorization")=CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)ElseSession("MM_UserAuthorization")=""EndIfifCStr(Request.QueryString("accessdenied"))<>""AndfalseThenMM_redirectLoginSuccess=Request.QueryString("accessdenied")EndIfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginSuccess)EndIfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginFailed)EndIf%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"""><htmlxmlns=""><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>無(wú)標(biāo)題文檔</title></head><body><formACTION="<%=MM_LoginAction%>"id="form1"name="form1"method="POST">請(qǐng)輸入用戶名<label><inputtype="text"name="textfield"/></label><p>請(qǐng)輸入員工號(hào)<label><inputtype="text"name="textfield2"/></label></p><p><label><inputtype="submit"name="Submit"value="提交"/></label><label><inputtype="reset"name="Submit2"value="重置"/></label><ahref="zhuye.html">返回</a></p></form></body></html><%Recordset1.Close()SetRecordset1=Nothing%><%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="Connections/san.asp"--><%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_san_STRINGRecordset1.Source="SELECT*FROM員工基本信息表"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%><%DimRepeat1__numRowsDimRepeat1__indexRepeat1__numRows=10Repeat1__index=0Recordset1_numRows=Recordset1_numRows+Repeat1__numRows%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"""><htmlxmlns=""><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>無(wú)標(biāo)題文檔</title></head><body><tableborder="1"cellpadding="3"cellspacing="3"><tr><td>姓名</td><td>年齡</td><td>性別</td><td>學(xué)歷</td><td>專業(yè)</td><td>畢業(yè)時(shí)間</td><td>畢業(yè)學(xué)校</td><td>外語(yǔ)情況</td><td>配偶</td><td>員工號(hào)</td></tr><%While((Repeat1__numRows<>0)AND(NOTRecordset1.EOF))%><tr><td><%=(Recordset1.Fields.Item("姓名").Value)%></td><td><%=(Recordset1.Fields.Item("年齡").Value)%></td><td><%=(Recordset1.Fields.Item("性別").Value)%></td><td><%=(Recordset1.Fields.Item("學(xué)歷").Value)%></td><td><%=(Recordset1.Fields.Item("專業(yè)").Value)%></td><td><%=(Recordset1.Fields.Item("畢業(yè)時(shí)間").Value)%></td><td><%=(Recordset1.Fields.Item("畢業(yè)學(xué)校").Value)%></td><td><%=(Recordset1.Fields.Item("外語(yǔ)情況").Value)%></td><td><%=(Recordset1.Fields.Item("配偶").Value)%></td><td><%=(Recordset1.Fields.Item("員工號(hào)").Value)%></td></tr><%Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1Recordset1.MoveNext()Wend%></table><p><ahref="cx.html">返回</a></p></body></html><%Recordset1.Close()SetRecordset1=Nothing%><tablewidth="396"height="134"border="1"><tr><td><ahref="chaxq.asp">企業(yè)部門情況查詢</a></td><td><ahref="cxj.asp">員工基本情況查詢</a></td></tr><tr><td><ahref="chaxg.asp">工作崗位情況查詢</a></td><td><ahref="cxh.asp">員工婚姻情況查詢</a></td></tr><tr><td><ahref="cxx.asp">員工學(xué)歷情況查詢</a></td><td><ahref="zhuye.html">返回</a></td></tr></table><%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="Connections/san.asp"--><%'***EditOperations:declarevariablesDimMM_editActionDimMM_abortEditDimMM_editQueryDimMM_editCmdDimMM_editConnectionDimMM_editTableDimMM_editRedirectUrlDimMM_editColumnDimMM_recordIdDimMM_fieldsStrDimMM_columnsStrDimMM_fieldsDimMM_columnsDimMM_typeArrayDimMM_formValDimMM_delimDimMM_altValDimMM_emptyValDimMM_iMM_editAction=CStr(Request.ServerVariables("SCRIPT_NAME"))If(Request.QueryString<>"")ThenMM_editAction=MM_editAction&"?"&Server.HTMLEncode(Request.QueryString)EndIf'booleantoabortrecordeditMM_abortEdit=false'querystringtoexecuteMM_editQuery=""%><%'***DeleteRecord:declarevariablesif(CStr(Request("MM_delete"))="form1"AndCStr(Request("MM_recordId"))<>"")ThenMM_editConnection=MM_san_STRINGMM_editTable="員工基本信息表"MM_editColumn="姓名"MM_recordId="'"+Request.Form("MM_recordId")+"'"MM_editRedirectUrl="shanccg.html"'appendthequerystringtotheredirectURLIf(MM_editRedirectUrl<>""AndRequest.QueryString<>"")ThenIf(InStr(1,MM_editRedirectUrl,"?",vbTextCompare)=0AndRequest.QueryString<>"")ThenMM_editRedirectUrl=MM_editRedirectUrl&"?"&Request.QueryStringElseMM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryStringEndIfEndIfEndIf%><%'***DeleteRecord:constructasqldeletestatementandexecuteitIf(CStr(Request("MM_delete"))<>""AndCStr(Request("MM_recordId"))<>"")Then'createthesqldeletestatementMM_editQuery="deletefrom"&MM_editTable&"where"&MM_editColumn&"="&MM_recordIdIf(NotMM_abortEdit)Then'executethedeleteSetMM_editCmd=Server.CreateObject("ADODB.Command")MM_editCmd.ActiveConnection=MM_editConnectionMM_editCmd.CommandText=MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.CloseIf(MM_editRedirectUrl<>"")ThenResponse.Redirect(MM_editRedirectUrl)EndIfEndIfEndIf%><%DimRecordset1__MMColParamRecordset1__MMColParam="1"If(Session("MM_Username")<>"")ThenRecordset1__MMColParam=Session("MM_Username")EndIf%><%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_san_STRINGRecordset1.Source="SELECT*FROM員工基本信息表WHERE姓名='"+Replace(Recordset1__MMColParam,"'","''")+"'"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%><%DimRepeat1__numRowsDimRepeat1__indexRepeat1__numRows=-1Repeat1__index=0Recordset1_numRows=Recordset1_numRows+Repeat1__numRows%><%'***RecordsetStats,MoveToRecord,andGoToRecord:declarestatsvariablesDimRecordset1_totalDimRecordset1_firstDimRecordset1_last'settherecordcountRecordset1_total=Recordset1.RecordCount'setthenumberofrowsdisplayedonthispageIf(Recordset1_numRows<0)ThenRecordset1_numRows=Recordset1_totalElseif(Recordset1_numRows=0)ThenRecordset1_numRows=1EndIf'setthefirstandlastdisplayedrecordRecordset1_first=1Recordset1_last=Recordset1_first+Recordset1_numRows-1'ifwehavethecorrectrecordcount,checktheotherstatsIf(Recordset1_total<>-1)ThenIf(Recordset1_first>Recordset1_total)ThenRecordset1_first=Recordset1_totalEndIfIf(Recordset1_last>Recordset1_total)ThenRecordset1_last=Recordset1_totalEndIfIf(Recordset1_numRows>Recordset1_total)ThenRecordset1_numRows=Recordset1_totalEndIfEndIf%><%'***RecordsetStats:ifwedon'tknowtherecordcount,manuallycountthemIf(Recordset1_total=-1)Then'countthetotalrecordsbyiteratingthroughtherecordsetRecordset1_total=0While(NotRecordset1.EOF)Recordset1_total=Recordset1_total+1Recordset1.MoveNextWend'resetthecursortothebeginningIf(Recordset1.CursorType>0)ThenRecordset1.MoveFirstElseRecordset1.RequeryEndIf'setthenumberofrowsdisplayedonthispageIf(Recordset1_numRows<0OrRecordset1_numRows>Recordset1_total)ThenRecordset1_numRows=Recordset1_totalEndIf'setthefirstandlastdisplayedrecordRecordset1_first=1Recordset1_last=Recordset1_first+Recordset1_numRows-1If(Recordset1_first>Recordset1_total)ThenRecordset1_first=Recordset1_totalEndIfIf(Recordset1_last>Recordset1_total)ThenRecordset1_last=Recordset1_totalEndIfEndIf%><%DimMM_paramName%><%'***MoveToRecordandGoToRecord:declarevariablesDimMM_rsDimMM_rsCountDimMM_sizeDimMM_uniqueColDimMM_offsetDimMM_atTotalDimMM_paramIsDefinedDimMM_paramDimMM_indexSetMM_rs=Recordset1MM_rsCount=Recordset1_totalMM_size=Recordset1_numRowsMM_uniqueCol=""MM_paramName=""MM_offset=0MM_atTotal=falseMM_paramIsDefined=falseIf(MM_paramName<>"")ThenMM_paramIsDefined=(Request.QueryString(MM_paramName)<>"")EndIf%><%'***MoveToRecord:handle'index'or'offset'parameterif(NotMM_paramIsDefinedAndMM_rsCount<>0)then'useindexparameterifdefined,otherwiseuseoffsetparameterMM_param=Request.QueryString("index")If(MM_param="")ThenMM_param=Request.QueryString("offset")EndIfIf(MM_param<>"")ThenMM_offset=Int(MM_param)EndIf'ifwehavearecordcount,checkifwearepasttheendoftherecordsetIf(MM_rsCount<>-1)ThenIf(MM_offset>=MM_rsCountOrMM_offset=-1)Then'pastendormovelastIf((MM_rsCountModMM_size)>0)Then'lastpagenotafullrepeatregionMM_offset=MM_rsCount-(MM_rsCountModMM_size)ElseMM_offset=MM_rsCount-MM_sizeEndIfEndIfEndIf'movethecursortotheselectedrecordMM_index=0While((NotMM_rs.EOF)And(MM_index<MM_offsetOrMM_offset=-1))MM_rs.MoveNextMM_index=MM_index+1WendIf(MM_rs.EOF)ThenMM_offset=MM_index'setMM_offsettothelastpossiblerecordEndIfEndIf%><%'***MoveToRecord:ifwedontknowtherecordcount,checkthedisplayrangeIf(MM_rsCount=-1)Then'walktotheendofthedisplayrangeforthispageMM_index=MM_offsetWhile(NotMM_rs.EOFAnd(MM_size<0OrMM_index<MM_offset+MM_size))MM_rs.MoveNextMM_index=MM_index+1Wend'ifwewalkedofftheendoftherecordset,setMM_rsCountandMM_sizeIf(MM_rs.EOF)ThenMM_rsCount=MM_indexIf(MM_size<0OrMM_size>MM_rsCount)ThenMM_size=MM_rsCountEndIfEndIf'ifwewalkedofftheend,settheoffsetbasedonpagesizeIf(MM_rs.EOFAndNotMM_paramIsDefined)ThenIf(MM_offset>MM_rsCount-MM_sizeOrMM_offset=-1)ThenIf((MM_rsCountModMM_size)>0)ThenMM_offset=MM_rsCount-(MM_rsCountModMM_size)ElseMM_offset=MM_rsCount-MM_sizeEndIfEndIfEndIf'resetthecursortothebeginningIf(MM_rs.CursorType>0)ThenMM_rs.MoveFirstElseMM_rs.RequeryEndIf'movethecursortotheselectedrecordMM_index=0While(NotMM_rs.EOFAndMM_index<MM_offset)MM_rs.MoveNextMM_index=MM_index+1WendEndIf%><%'***MoveToRecord:updaterecordsetstats'setthefirstandlastdisplayedrecordRecordset1_first=MM_offset+1Recordset1_last=MM_offset+MM_sizeIf(MM_rsCount<>-1)ThenIf(Recordset1_first>MM_rsCount)ThenRecordset1_first=MM_rsCountEndIfIf(Recordset1_last>MM_rsCount)ThenRecordset1_last=MM_rsCountEndIfEndIf'setthebooleanusedbyhideregiontocheckifweareonthelastrecordMM_atTotal=(MM_rsCount<>-1AndMM_offset+MM_size>=MM_rsCount)%><%'***GoToRecordandMoveToRecord:createstringsformaintainingURLandFormparametersDimMM_keepNoneDimMM_keepURLDimMM_keepFormDimMM_keepBothDimMM_removeListDimMM_itemDimMM_nextItem'createthelistofparameterswhichshouldnotbemaintainedMM_removeList="&index="If(MM_paramName<>"")ThenMM_removeList=MM_removeList&"&"&MM_paramName&"="EndIfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""'addtheURLparameterstotheMM_keepURLstringForEachMM_itemInRequest.QueryStringMM_nextItem="&"&MM_item&"="If(InStr(1,MM_removeList,MM_nextItem,1)=0)ThenMM_keepURL=MM_keepURL&MM_nextItem&Server.URLencode(Request.QueryString(MM_item))EndIfNext'addtheFormvariablestotheMM_keepFormstringForEachMM_itemInRequest.FormMM_nextItem="&"&MM_item&"="If(InStr(1,MM_removeList,MM_nextItem,1)=0)ThenMM_keepForm=MM_keepForm&MM_nextItem&Server.URLencode(Request.Form(MM_item))EndIfNext'createtheForm+URLstringandremovetheintial'&'fromeachofthestringsMM_keepBoth=MM_keepURL&MM_keepFormIf(MM_keepBoth<>"")ThenMM_keepBoth=Right(MM_keepBoth,Len(MM_keepBoth)-1)EndIfIf(MM_keepURL<>"")ThenMM_keepURL=Right(MM_keepURL,Len(MM_keepURL)-1)EndIfIf(MM_keepForm<>"")ThenMM_keepForm=Right(MM_keepForm,Len(MM_keepForm)-1)EndIf'autilityfunctionusedforaddingadditionalparameterstothesestringsFunctionMM_joinChar(firstItem)If(firstItem<>"")ThenMM_joinChar="&"ElseMM_joinChar=""EndIfEndFunction%><%'***MoveToRecord:setthestringsforthefirst,last,next,andpreviouslinksDimMM_keepMoveDimMM_moveParamDimMM_moveFirstDimMM_moveLastDimMM_moveNextDimMM_movePrevDimMM_urlStrDimMM_paramListDimMM_paramIndexDimMM_nextParamMM_keepMove=MM_keepBothMM_moveParam="index"'ifthepagehasarepeatedregion,remove'offset'fromthemaintainedparametersIf(MM_size>1)ThenMM_moveParam="offset"If(MM_keepMove<>"")ThenMM_paramList=Split(MM_keepMove,"&")MM_keepMove=""ForMM_paramIndex=0ToUBound(MM_paramList)MM_nextParam=Left(MM_paramList(MM_paramIndex),InStr(MM_paramList(MM_paramIndex),"=")-1)If(StrComp(MM_nextParam,MM_moveParam,1)<>0)ThenMM_keepMove=MM_keepMove&"&"&MM_paramList(MM_paramIndex)EndIfNextIf(MM_keepMove<>"")ThenMM_keepMove=Right(MM_keepMove,Len(MM_keepMove)-1)EndIfEndIfEndIf'setthestringsforthemovetolinksIf(MM_keepMove<>"")ThenMM_keepMove=Server.HTMLEncode(MM_keepMove)&"&"EndIfMM_urlStr=Request.ServerVariables("URL")&"?"&MM_keepMove&MM_moveParam&"="MM_moveFirst=MM_urlStr&"0"MM_moveLast=MM_urlStr&"-1"MM_moveNext=MM_urlStr&CStr(MM_offset+MM_size)If(MM_offset-MM_size<0)ThenMM_movePrev=MM_urlStr&"0"ElseMM_movePrev=MM_urlStr&CStr(MM_offset-MM_size)EndIf%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"""><htmlxmlns=""><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>無(wú)標(biāo)題文檔</title></head><body><p>歡迎您</p><p><%=Session("MM_Username")%></p><p>點(diǎn)擊員工號(hào)進(jìn)行更改信息</p><formid="form1"name="form1"method="POST"action="<%=MM_editAction%>"><inputtype="submit"name="Submit"value="點(diǎn)擊刪除信息"/><inputtype="hidden"name="MM_delete"value="form1"><inputtype="hidden"name="MM_recordId"value="<%=Recordset1.Fields.Item("姓名").Value%>"></form><p> </p><tablealign="center"border="1"><tr><tdalign="left"width="10%">姓名</td><tdalign="left"width="10%">年齡</td><tdalign="left"width="10%">性別</td><tdalign="left"width="10%">學(xué)歷</td><tdalign="left"width="10%">專業(yè)</td><tdalign="left"width="10%">畢業(yè)時(shí)間</td><tdalign="left"width="10%">畢業(yè)學(xué)校</td><tdalign="left"width="10%">外語(yǔ)情況</td><tdalign="left"width="10%">配偶</td><tdalign="left"width="10%">員工號(hào)</td></tr><%While((Repeat1__numRows<>0)AND(NOTRecordset1.EOF))%><tr><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("姓名").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("年齡").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("性別").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("學(xué)歷").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("專業(yè)").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("畢業(yè)時(shí)間").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("畢業(yè)學(xué)校").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("外語(yǔ)情況").Value)%></td><tdalign="left"width="10%"><%=(Recordset1.Fields.Item("配偶").Value)%></td><tdalign="left"width="10%"><ahref="xx.asp?<%=Server.HTMLEncode(MM_keepBoth)&MM_joinChar(MM_keepBoth)&"員工號(hào)="&Recordset1.Fields.Item("員工號(hào)").Value%>"><%=(Recordset1.Fields.Item("員工號(hào)").Value)%></a></td></tr><%Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1Recordset1.MoveNext()Wend%></table><br><tableborder="0"width="50%"align="center"><tr><tdwidth="23%"align="center"><%IfMM_offset<>0Then%><ahref="<%=MM_moveFirst%>">第一頁(yè)</a><%EndIf'endMM_offset<>0%></td><tdwidth="31%"align="center"><%IfMM_offset<>0Then%><ahref="<%=MM_movePrev%>">前一頁(yè)</a><%EndIf'endMM_offset<>0%></td><tdwidth="23%"align="center"><%IfNotMM_atTotalThen%><ahref="<%=MM_moveNext%>">下一頁(yè)</a><%EndIf'endNotMM_atTotal%>