人事管理系統(tǒng)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)(論文)-資料下載頁(yè)

　　

【正文】 /TBODY /TABLE/TD/TR/TBODY/TABLEp /p /div /TD/TR/TBODY/TABLE /div /TD/TR TR TD vAlign=top bgColor=00309c height=89 !include file= /TD/TR/TBODY/TABLE /form /BODY/HTML ： !include file=!include file= HTMLHEADTITLE人事管理系統(tǒng) /TITLE META content=text/html。 charset=gb2312 equiv=ContentType SCRIPT language=JavaScript ()。 /SCRIPT /HEAD FRAMESET border=false frameBorder=0 frameSpacing=0 rows=95,*,56FRAME name=top noResize scrolling=no src= target=middleFRAME name=middle src= target=bottomFRAME name=bottom scrolling=no src=NOFRAMES /NOFRAMES /FRAMESETbody/body/HTML ： !include file= %const title=員工重要事項(xiàng)記錄 % html head meta equiv=ContentType content=text/html。 charset=gb2312 title/title meta content=text/html。 charset=gb2312 equiv=ContentType styleBODY { FONTSIZE: } /style meta content=Microsoft FrontPage name=GENERATOR meta name=Microsoft Border content=none /head body bgColor=ffffff text=000000 div align=centercenter !include file= % CheckLogin showtitle(title)% table border=0 cellSpacing=0 width=678 tbody tr td width=80%bfont size=3p /p/font/b/td /tr tr td align=middle width=80%form action= id=FORM1 method=post name=FrontPage_Form1 table border=0 width=678 bgcolor=F0F0F0 tbody tr bgColor=838383 td colSpan=2 width=669font color=white⊙基本資料 /fontfont color=red size=1 /fontfont color=00FFFF size=1＊ 為必填資料，請(qǐng)務(wù)必認(rèn)真填寫(xiě) /font /td /tr tr td width=100font color=red size=1＊ /font姓名： /td td width=573% select class=39。smallinput39。 name=39。name39。 size=39。139。 option請(qǐng)選擇 /option+chr(13)+chr(10) sql=select * from worker sql,conn,1,1 ntotal= if not then do while not option value=39。+rs(name)+39。+rs(name)+/option+chr(13)+chr(10) loop else option value=39。039。沒(méi)有可選擇的員工/option+chr(13)+chr(10) end if /select ( 共 font color=redamp。ntotalamp。/font 個(gè) ) % /td /tr tr td font color=red size=1＊ /font編號(hào)： /td tdinput type=text name=card_id size=20 /td /tr tr tdfont color=red size=1＊ /font記錄事項(xiàng)： /td tdinput type=text name=zw size=30 /td /tr tr tdfont color=red size=1＊ /font日期： /td tdinput type=text name=tel size=25 /td /tr tr td vAlign=top詳細(xì)記錄： /td tdtextarea rows=2 name=cardno cols=55/textarea/td /tr tr td height=36說(shuō)明 ： /td td height=36textarea rows=2 name=memo cols=55/textarea/td /tr tr td align=middle colSpan=2 width=709 height=27div align=centercenterp input name=submit type=submit value=確認(rèn)提交 input name=reset type=reset value=重新填寫(xiě) /div /center /td /tr /tbody /table /form /td /tr /tbody /table /center/divdiv align=centercenter /center/div /body /html %@ LANGUAGE=VBSCRIPT % % =true % !include file= % sql=select * from user where username=39。amp。session(username)amp。39。 sql,conn,3,2 if not then rs(isonline)=False rs(logout_time)=now() end if (adminok)= (guestok)= session(userlogin)=false session(storage)=0 session(username)= 已經(jīng)退出 % ： !include file= %const title=員工工資計(jì)算 % html head meta equiv=ContentType content=text/html。 charset=gb2312 title/title meta content=text/html。 charset=gb2312 equiv=ContentType styleBODY { FONTSIZE: } /style meta content=Microsoft FrontPage name=GENERATOR meta name=Microsoft Border content=none /head body bgColor=ffffff text=000000 div align=centercenter !include file= % CheckLogin showtitle(title)% table border=0 cellSpacing=0 width=678 tbody tr TD width=600 background=../images/FONT color=blue size=4b請(qǐng)選擇員工 /b /font/TD /tr tr td width=100%form action= id=FORM1method=postbfont size=3p% sql1=select * from worker sql1,conn,1,1 select name=39。id39。 size=39。139。 option value=39。039。 請(qǐng) 選 擇/option+chr(13)+chr(10) if not then do while not option amp。 sel amp。 value=39。+CStr(rs1(id))+39。+rs1(name)+/option+chr(13)+chr(10) loop else option value=39。039。沒(méi)有可選擇的員工/option+chr(13)+chr(10) end if /select % /font/binput type=text name=yy size=8 value=%=year(date()30)% 年 input type=text name=mm size=6 value=%=month(date()30)%月 input name=submit type=submit value=確認(rèn) /form/td /tr % wid=request(id) if request(id) then Set rs = () sql=select * from worker where id= amp。 request(id) sql,conn,3,2 else Set rs = () sql=select top 1 * from worker order by id desc sql,conn