【正文】 沒有可選擇的員工/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=確認 /form/td /tr % wid=request(id) if request(id) then Set rs = () sql=select * from worker where id= amp。+rs1(name)+/option+chr(13)+chr(10) loop else option value=39。 value=39。 請 選 擇/option+chr(13)+chr(10) if not then do while not option amp。 option value=39。 size=39。 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請選擇員工 /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。 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)= 已經退出 % ： !include file= %const title=員工工資計算 % html head meta equiv=ContentType content=text/html。session(username)amp。/font 個 ) % /td /tr tr td font color=red size=1＊ /font編號： /td tdinput type=text name=card_id size=20 /td /tr tr tdfont color=red size=1＊ /font記錄事項： /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詳細記錄： /td tdtextarea rows=2 name=cardno cols=55/textarea/td /tr tr td height=36說明 ： /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=確認提交 input name=reset type=reset value=重新填寫 /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。沒有可選擇的員工/option+chr(13)+chr(10) end if /select ( 共 font color=redamp。+rs(name)+/option+chr(13)+chr(10) loop else option value=39。 option請選擇 /option+chr(13)+chr(10) sql=select * from worker sql,conn,1,1 ntotal= if not then do while not option value=39。 size=39。 name=39。 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＊ 為必填資料，請務必認真填寫 /font /td /tr tr td width=100font color=red size=1＊ /font姓名： /td td width=573% select class=39。 /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=員工重要事項記錄 % html head meta equiv=ContentType content=text/html。 div align=center form action= method=POST name=input LANGUAGE=javascript onsubmit=return input_onsubmit() p /p TABLE cellSpacing=0 cellPadding=0 width=600 border=0 TBODY TR TD bgColor=00309c height=184 TABLE cellSpacing=0 cellPadding=0 width=600 border=0 TBODY TR TD width=717 % select * from pany,conn,1% p align=left bspan style=LETTERSPACING: 1ptfont size=6 color=FFFFFF /fontfont size=6 face=Arial Black color=FFFFFF%=rs(ename)%/font/span/b/p p align=rightbfont size=7 face= 隸書color=FFFFFF%=rs(ame)%/font/b/p %% p align=right /p /TD /TR/TBODY/TABLE/TD/TR TR TD align=left bgColor=5a7edc