【導(dǎo)讀】用它代替企業(yè)傳統(tǒng)的手工管理方式，大大提高了工作效率和安全性，提高了。資管理系統(tǒng)化、科學(xué)化、規(guī)范化和自動(dòng)化。是現(xiàn)代企業(yè)必不可少的管理工具。三個(gè)功能模塊），公司內(nèi)部交流模塊等模塊，獎(jiǎng)懲相關(guān)聯(lián)，生成較合理的薪酬管理體制，以產(chǎn)生有效的激勵(lì)機(jī)制?，F(xiàn)數(shù)據(jù)的錄入、刪除、查詢、更新等功能，能滿足企業(yè)職工管理方面的基本要求。Keyword：ASP；Accessdatabase；staffing；earnings。面向非數(shù)值處理的各個(gè)領(lǐng)域中滲透并發(fā)揮著越來越重要的作用。商業(yè)信息管理等方面的應(yīng)用，日益受到人們的關(guān)注。決策者和管理者來說至關(guān)重要。但一直以來大多數(shù)企業(yè)內(nèi)部人事和工資的管理基。足及時(shí)記錄、隨時(shí)查詢的需要，為信息的管理者帶來諸多不便。量大,壽命長(zhǎng),成本低等優(yōu)點(diǎn),這些更是手工管理所無法比擬的。用計(jì)算機(jī)支持完成

　　

【正文】 the progress and development. Of course, this traditional system is the salary of a refined, if you can add the system which staff at the total salary, and staff for assistance, and so on every aspect of information, that is a perfect and to widely used salary system. all the time allowed, under conditions of the system more perfect. 有關(guān)于登錄顯示時(shí)間模塊代碼： script language=vbscript settimeoutclock,1000 sub clock() = 現(xiàn)在時(shí)間 為： amp。hour(now)amp。 時(shí) amp。minute(now)amp。 分amp。second(now)amp。秒 settimeoutclock,1000 end sub 王聰 ： 基于 ASP 的人事薪資管理系統(tǒng) /script font color=669999center id=nowtime在變化中計(jì)劃 /center/font 以上是一個(gè)時(shí)間實(shí)時(shí)更新的代碼。打開頁面以后先顯示“在變化中計(jì)劃”然后 1秒后轉(zhuǎn)化為本地時(shí)間精確到秒。以 settimeout “ clock” ,1000 來完成每秒更新一次的功能。 %@ Language=VBScript % !include file= % 39。判斷用戶是否登錄 if isempty(Session(ID)) then ../ end if 39。判斷用戶是否具有財(cái)務(wù)管理員身份 if Session(IsFinancialManager)=False then end if 39。連接系統(tǒng)數(shù)據(jù)庫(kù) 39。set conn = () 39。 ASPData, sa, Warning=false 39。查詢某個(gè)財(cái)務(wù)記錄 if not IsEmpty((Query)) then 39。獲得用戶的查詢條件 if (QueryCheck1)=on and len(trim((FinancialRecordID)))0 then sql1=and ID= amp。 (FinancialRecordID) else sql1= 武漢科技大學(xué)中南分校 2021 屆畢業(yè)設(shè)計(jì) (論文 ) 第 5 頁 共 9 頁 end if if (QueryCheck2)=on and len(trim((FinancialProjectName)))0 then sql2= and ProjectName=39。 amp。 (FinancialProjectName) amp。 39。 else sql2= end if if (QueryCheck3)=on then sql3= and Name=39。 amp。 (SelectName) amp。 39。 else sql3= end if if (QueryCheck4)=on then TheAddDate=(AddYear) amp。 amp。 (AddMonth) amp。 _ amp。 (AddDay) sql4= and AddDate=amp。 TheAddDate amp。 else sql4= end if set RSRecordResult=(select * from FinancialRecord where AccountName=39。 _ amp。 Session(Name) amp。39。 amp。 sql1 amp。 sql2 amp。 sql3 amp。 sql4 amp。 order by Name) TheMessage=您查詢的財(cái)務(wù)記錄如下 QueryLabel=2 39。用戶選定了查詢出來的 某個(gè)財(cái)務(wù)記錄 elseif not IsEmpty((SelectRecord)) then TheMessage=請(qǐng)?jiān)谙旅嫘薷拇藯l財(cái)務(wù)記錄 王聰 ： 基于 ASP 的人事薪資管理系統(tǒng) set RSThisRecord=(select * from FinancialRecord _ amp。 where ID=amp。(RadioFinancialRecord)) QueryLabel=3 39。用戶對(duì)選定的財(cái)務(wù)記錄進(jìn)行了更新 elseif not IsEmpty((UpdateRecord)) then 39。校驗(yàn)用戶的輸入 if not IsNumeric((UpdateFundTypeA)) or _ not IsNumeric((UpdateFundTypeB)) or _ not IsNumeric((UpdateFundTypeC)) or _ not IsNumeric((UpdateFundTypeD)) then TheMessage=記錄中的款項(xiàng)字段中出現(xiàn)了非數(shù)字內(nèi)容，無法修改此記錄，請(qǐng)重填記錄 Warning=true QueryLabel=3 else set RSLinkedDepartment=(select Department from UserInfo where Name=39。 _ amp。 (UpdateName) amp。 39。) TheName=(UpdateName) TheDepartment=RSLinkedDepartment(Department) TheProjectName=(UpdateProjectName) TheFundTypeA=CCur((UpdateFundTypeA)) TheFundTypeB=CCur((UpdateFundTypeB)) TheFundTypeC=CCur((UpdateFundTypeC)) TheFundTypeD=CCur((UpdateFundTypeD)) TheSummary=Cstr((UpdateSummary)) TheRemark=Cstr((UpdateRemark)) TheModifyDate=Date 武漢科技大學(xué)中南分校 2021 屆畢業(yè)設(shè)計(jì) (論文 ) 第 7 頁 共 9 頁 TheSum=CCur(TheFundTypeA+TheFundTypeB+TheFundTypeC+TheFundTypeD) 39。修改此條財(cái)務(wù)記錄 update FinancialRecord set _ amp。 Name=39。 amp。 TheName amp。 39。, _ amp。 Department=39。 amp。 TheDepartment amp。 39。, _ amp。 FundTypeA= amp。 TheFundTypeA amp。 , _ amp。 FundTypeB= amp。 TheFundTypeB amp。 , _ amp。 FundTypeC= amp。 TheFundTypeC amp。 , _ amp。 FundTypeD= amp。 TheFundTypeD amp。 , _ amp。 Sum= amp。 TheSum amp。 , _ amp。 Summary=39。 amp。 TheSummary amp。 39。, _ amp。 Remark=39。 amp。 TheRemark amp。 39。, _ amp。 ModifyDate=39。 amp。 TheModifyDate amp。 39。, _ amp。 ProjectName=39。 amp。 TheProjectName amp。 39。 _ amp。 Where ID= amp。 (UpdateID) QueryLabel=3 TheMessage=記錄已經(jīng)修改成功 end if set RSThisRecord=(select * from FinancialRecord where ID=amp。(UpdateID)) else TheMessage = 請(qǐng)?jiān)谙旅嫣顚懩薷牡呢?cái)務(wù)記錄的查詢條件 QueryLabel=1 end if set RSPersons = (select Name from UserInfo order by Name) set RSFinancialRecord=(select * from FinancialRecord where 王聰 ： 基于 ASP 的人事薪資管理系統(tǒng) AccountName=39。 _ amp。 Session(Name) amp。 39。 order by Name) set RSFinancialProject=(select * from FinancialProject order by FinancialProjectName) %以上 sql 語句所包含的內(nèi)容有：身份驗(yàn)證、查詢記錄、修改 記錄，以及權(quán)限管理。 tr height=35tdinput type=checkbox name=QueryCheck4/tdtd width=25％ font color=16A84D財(cái)務(wù)記錄添加日期 /font/tdtd select name=AddYear size=1 OPTION VALUE=% Year(Date) %amp。nbspamp。nbsp% Year(Date) %amp。nbspamp。nbsp/OPTION % YearCounter = 2050 Do until YearCounter =1990 % OPTION VALUE=% YearCounter %amp。nbspamp。nbsp% YearCounter %amp。nbspamp。nbsp/OPTION % YearCounter = YearCounter1 loop % /select年 select name=AddMonth size=1 OPTION VALUE=% Month(Date) %amp。nbspamp。nbsp% Month(Date) %amp。nbspamp。nbsp/OPTION % MonthCounter = 12 Do until MonthCounter =0 武漢科技大學(xué)中南分校 2021 屆畢業(yè)設(shè)計(jì) (論文 ) 第 9 頁 共 9 頁 % OPTION VALUE=% MonthCounter %amp。nbspamp。nbsp% MonthCounter %amp。nbspamp。nbsp/OPTION % MonthCounter = MonthCounter1 loop % /select 月 select name=AddDay size=1 OPTION VALUE=% Day(Date) %amp。nbspamp。nbsp% Day(Date) %amp。nbspamp。nbsp/OPTION % DayCounter = 31 Do until DayCounter =0 % OPTION VALUE=% DayCounter %amp。nbspamp。nbsp% DayCounter %amp。nbspamp。nbsp/OPTION % DayCounter = DayCounter1 loop % /select日 /td/tr/table 以上是按日期要求查詢信息 代碼 。