【正文】 名不能為空，請輸入員工姓名！ ,windows alert! exit sub end if if len(())30 then msgbox 員工姓名應(yīng)小于15個漢字！ ,windows alert! exit sub end if if trim() and not IsDate(trim()) then msgbox 請正確輸入出生日期，如：19750707！ ,windows alert! exit sub end ifif trim() and len(trim())12 then msgbox 電話號碼應(yīng)該為小于12位的數(shù)字！ ,windows alert! exit sub end if if trim() and len(trim())10 then msgbox 民族應(yīng)該為小于10個字符！ ,windows alert! exit sub end if if trim()= then msgbox 身份證號碼不可以為空！ ,windows alert! exit sub end if if not IsNumeric(trim()) then msgbox 身份證號碼必須為15位或者18位數(shù)字！ ,windows alert! exit sub end if if len(trim())18 then msgbox 身份證號碼必須為15位或者18位數(shù)字！ ,windows alert! exit sub end if end sub/script/HEADBODYform name=employee_form method=post target=_self action= language=vbscriptP align=centerFONT face=隸書 color=blue size=7人員輸入與維護(hù)/FONT/PBRP align=centerTABLE style=WIDTH: 638px。 TOP: 16px name=emp_name title=輸入員工姓名/TD TD所在部門/TD TDSELECT name=dep_id % strSQL_dep , conn while not option value= amp。 amp。 /option wend % /SELECT/TD/TR TR TD聘任職位/TD TDSELECT name=position % strSQL_pos , conn while not option value= amp。 amp。 /option wend % /SELECT/TD TD職稱信息/TD TDSELECT name=zhicheng % strSQL_zhi , conn while not option value= amp。 amp。 /option wend % /SELECT/TD/TR TR TD出生日期/TD TDINPUT name=birthday title=輸入出生日期，如：19750710/TD TD性別/TD TDSELECT name=sex/OPTIONOPTION selected value=男男/OPTIONOPTION value=女女/OPTION/SELECT/TD/TR TR TD電話號碼/TD TDINPUT name=phone_num style=WIDTH: 221px。 HEIGHT: 22px size=11 value=漢族/TD/TR TR TD身份證號碼/TD TDINPUT name=id_card style=WIDTH: 221px。 HEIGHT: 22px size=28/TD TD政治面貌/TD TDSELECT name=polity_visage /OPTIONOPTION value=團(tuán)員團(tuán)員/OPTIONOPTION selected value=黨員黨員/OPTIONOPTION value=其他人士其他人士/OPTION/SELECT/TD/TR TR TD郵件地址/TD TD colSpan=3INPUT style=WIDTH: 412px。 HEIGHT: 22px size=28/TD/TR TR TD所學(xué)專業(yè)/TD TDINPUT name=speciality style=WIDTH: 233px。 HEIGHT: 24px size=28INPUT id=reset1 type=reset value=重新安排 name=reset1 style=WIDTH: 100px。取回用戶提交的信息dep_id = trim((dep_id))position_id = trim((position))zhicheng_id = trim((zhicheng))emp_name = trim((emp_name))sex = trim((sex))birthday = trim((birthday))phone_num=trim((phone_num))nation=trim((nation))marriage_status=trim((marriage_status))id_card=trim((id_card))city=trim((city))mail_address=trim((mail_address))native_place=trim((native_place))polity_visage=trim((polity_visage))school_cal=trim((school_cal))speciality=trim((speciality))finish_school=trim((finish_school))dim strDBConndim conndim Rsdim strSQLdim emp_iddim SQL_in39。建立數(shù)據(jù)庫連接strDBConn = Driver={SQL Server}。UID=human。Database=人力資源管理信息系統(tǒng)Set conn = () strDBConnSet Rs = ()strSQL=select emp_id from t_employee where dep_id=39。 dep_id amp。 strSQL,conn39。 001else while not tempStr=Mid(rs(0),4,3) if cint(tempStr)emp_id then emp_id=tempStr end if wend emp_id=emp_id + 1 if len(emp_id)=1 then emp_id=dep_id amp。 emp_id elseif len(emp_id)=2 then emp_id=dep_id amp。 emp_id end ifend if39。 marriage_status,city,_address,native_place,polity_visage,finish_school,speciality,school_cal) VALUES(39。 emp_id amp。,39。 dep_id amp。,39。 position_id amp。,39。 zhicheng_id amp。,39。 emp_name amp。,39。 id_card amp。,39。 sex amp。,39。 birthday amp。,39。 39。end ifif phone_num then SQL_in=SQL_in amp。 39。else SQL_in=SQL_in amp。,39。 nation amp。,39。 39。end ifSQL_in=SQL_in amp。 39。if city then SQL_in=SQL_in amp。 39。else SQL_in=SQL_in amp。,39。 mail_address amp。,39。 39。end ifif native_place then SQL_in=SQL_in amp。 39。else SQL_in=SQL_in amp。,39。 polity_visage amp。,39。 finish_school amp。,39。 39。end ifif speciality then SQL_in=SQL_in amp。 39。else SQL_in=SQL_in amp。,39。 school_cal amp。)39。關(guān)閉紀(jì)錄集及數(shù)據(jù)庫連接%!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//ENHTMLHEADMETA equiv=ContentType content=text/html。對于一個企業(yè)來說，根據(jù)企業(yè)經(jīng)營方針，通過確定企業(yè)人力資源來實現(xiàn)企業(yè)的目標(biāo)是建立人力資源管理信息系統(tǒng)的實質(zhì)，保障企業(yè)人力資源的戰(zhàn)略計劃和戰(zhàn)術(shù)計劃的正確制訂和統(tǒng)一。9參考文獻(xiàn)1. 阿爾佛雷德?沃克（），《Webbased human resource》2. 申剛正，北京博惠思華信息技術(shù)有限公司總經(jīng)理，《人力資源管理信息系統(tǒng)剖析》3. 《大連益德穿梭有限公司人力資源管理信息系統(tǒng)分析與設(shè)計》