<% Set Conn = Server.CreateObject("adodb.Connection") Conn.Open "DSN=DB2; UID=webuser; PWD=irixiai2; Database=DB2" id=request.Cookies("id") '異動日期、異動時間 date1=date time1=time yy1=year(date1)-1911 mm1=month(date1) dd1=day(date1) if len(yy1)=1 then yy1=cstr(0)+cstr(yy1) end if if len(mm1)=1 then mm1=cstr(0)+cstr(mm1) end if if len(dd1)=1 then dd1=cstr(0)+cstr(dd1) end if dayy=yy1 & mm1 & dd1 hh1=hour(time1) mi1=minute(time1) ss1=second(time1) if len(hh1)=1 then hh1=cstr(0)+cstr(hh1) end if if len(mi1)=1 then mi1=cstr(0)+cstr(mi1) end if if len(ss1)=1 then ss1=cstr(0)+cstr(ss1) end if dtime=hh1 & mi1 & ss1 i=1 %>

特殊工時休假日期建檔作業

<% For i=1 TO 99 %> <% i=i+1%> <% i=i+1%> <% i=i+1%> <% NEXT %>
請輸入下方休假日期:
日期:" size="10">日期:" size="10">日期:" size="10">