📄 workmng.asp
字号:
<td colspan=7>
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value=" 修改" name="okbtn">
<input type=hidden name="Issuer" value=<%=Issuer%>>
<input type=hidden name="MenuId" value=<%=MenuId%>>
<input type=hidden name="gpy" value="Modi_Ok">
<input type=hidden name="WorkLogId" value="<%=WorkLogId%>">
<input type=hidden name="ModiLogId" value=<%=ModiLogId%>>
<input type='hidden' name=KeyId value="<%=KeyId%>">
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/Delete.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放弃" name="okbtn" onClick="window.location.href ='<%=UrlName&"?gpy=Expert&KeyId="&server.urlencode(KeyId)%>'">
</td>
</tr>
</table>
<%
HtmlEnd
end sub
sub ShowQJRecord(sqlQJ)
%>
<tr>
<td>
<table width='100%' border='1' cellspacing='0' cellpadding='0' bordercolorlight='#7C7C7C' bordercolordark='#FFFFFF'>
<tr align=center>
<td colspan=8 height="20">请假记录</td>
</tr>
<tr align=center>
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td>姓 名</td>
<td>开始时间</td>
<td>结束时间</td>
<td>处理人</td>
<td>处理时间</td>
<td>处理意见</td>
</tr>
<%while not sqlQJ.eof %>
<tr bgcolor="#FFFFFF">
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td class="pt2">
<a href=# onClick=<%="window.open('workmng.asp?gpy=Look1&LeaveLogId="&sqlQJ("LeaveLogId")&"&LeaveMark=0"%>','','scrollbars=yes,width=655,height=400,left=129,top=129') Title='<%=sqlQJ("About")&"'><font size=2 color=#000000>"&sqlQJ("Name")%></font></a>
</td>
<td class="pt2"><%=sqlQJ("BeginTime")%></td>
<td class="pt2"><%=sqlQJ("EndTime")%> </td>
<td class="pt2"><%=GetOperName1(sqlQJ("LookMan"))%> </td>
<td class="pt2"><%=sqlQJ("LookTime")%> </td>
<td class="pt2"><%=sqlQJ("LookIder")%> </td>
</tr>
<%sqlQJ.movenext
wend%>
</table>
</td>
</tr>
<%
end sub
sub ShowCCRecord(sqlCC)
%>
<tr>
<td>
<table width='100%' border='1' cellspacing='0' cellpadding='0' bordercolorlight='#7C7C7C' bordercolordark='#FFFFFF'>
<tr align=center>
<td colspan=8 height="20">出差记录</td>
</tr>
<tr align=center>
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td>姓 名</td>
<td>开始时间</td>
<td>结束时间</td>
<td>处理人</td>
<td>处理时间</td>
<td>处理意见</td>
</tr>
<%while not sqlCC.eof %>
<tr bgcolor="#FFFFFF">
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td class="pt2">
<a href=# onClick=<%="window.open('workmng.asp?gpy=Look1&LeaveLogId="&sqlCC("LeaveLogId")&"&LeaveMark=1"%>','','scrollbars=yes,width=655,height=400,left=129,top=129') Title='<%=sqlCC("About")&"'><font size=2 color=#000000>"&sqlCC("Name")%></font></a>
</td>
<td class="pt2"><%=sqlCC("BeginTime")%></td>
<td class="pt2"><%=sqlCC("EndTime")%> </td>
<td class="pt2"><%=GetOperName1(sqlCC("LookMan"))%> </td>
<td class="pt2"><%=sqlCC("LookTime")%> </td>
<td class="pt2"><%=sqlCC("LookIder")%> </td>
</tr>
<%sqlCC.movenext
wend%>
</table>
</td>
</tr>
<%
end sub
sub DelSBHtml()
set sql=server.createobject("ADODB.recordset")
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark from GpyWorkLog,MyOper where GpyWorkLog.LoginName=MyOper.LoginName order by WorkLogId "
sql.open Query,conn,1,1
sql.PageSize=CLng(PageSize)
if Page>sql.PageCount then Page=sql.PageCount
if not(sql.eof) then
sql.absolutepage=CLng(Page)
end if
PageNum=sql.PageCount
Rows=sql.RecordCount
%>
<%Call HtmlHead("上班记录维护")%>
<form name="manuscript" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<table width="600" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor="<%=TableTopBg%>" >
<td colspan="9" height="19">
<table width="100%" border="0">
<tr>
<td class="pt3"><%=sql.RecordCount%>个记录/共<%=sql.PageCount%>页
<%
if sql.PageCount>1 then
for i= 1 to sql.PageCount
response.write("<a href="&request.servervariables("SCRIPT_NAME")&"&gpy="&gpy&"&Page="&i&">"&i&"</a> ")
next
end if
%>
</td>
<td class="pt1"></td>
</tr>
</table>
</td>
</tr>
<tr align=center>
<td rowspan=2 width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td rowspan="2">删 除</td>
<td rowspan="2">姓 名</td>
<td rowspan="2">日 期</td>
<td colspan="2">上 午</td>
<td colspan="2">下 午</td>
</tr>
<tr align=center>
<td >上 班</td>
<td >下 班</td>
<td >上 班</td>
<td >下 班</td>
</tr>
<%for i=1 to Pagesize
if sql.eof then exit for%>
<tr bgcolor="#FFFFFF">
<td bgcolor="rgb(214,211,206)" width="10" height="20"> </td>
<td class="pt2" width=40><input type=checkbox name=WorkLogId value="<%=sql("WorkLogId")%>"></td>
<td class="pt2"><%="<a href=# title='"&sql("Memo")&"'>"&sql("Name")%></a></td>
<td class="pt2"><%=sql("WorkDate")%></td>
<td class="pt2"><%=sql("MBeginTime")%> </td>
<td class="pt2"><%=sql("MEndTime")%> </td>
<td class="pt2"><%=sql("ABeginTime")%> </td>
<td class="pt2"><%=sql("AEndTime")%> </td>
</tr>
<%
sql.movenext
next
%>
</table>
<div align="center">
<input type="submit" name="submit" value=" 删 除 " >
<input type="button" name="sbumit" value=" 返 回 " onClick="window.location.href ='<%=UrlName&"?gpy=Expert&KeyId="&server.urlencode(KeyId)%>'">
<input type='hidden' name=KeyId value="<%=KeyId%>">
<input type=hidden name="gpy" value="DelSB">
</div>
</form>
<%
Call HtmlEnd()
end sub
sub DelCCQJHtml()
dim aa(2)
aa(0)="请假"
aa(1)="出差"
set sqlCC=server.createobject("ADODB.recordset")
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and LeaveMark="&LeaveMark&" order by LeaveLogId "
sqlCC.open Query,conn,1,1
sqlCC.PageSize=CLng(PageSize)
if Page>sqlCC.PageCount then Page=sqlCC.PageCount
if not(sqlCC.eof) then
sqlCC.absolutepage=CLng(Page)
end if
PageNum=sqlCC.PageCount
Rows=sqlCC.RecordCount
%>
<%Call HtmlHead(aa(LeaverMark)&"记录维护")%>
<form name="manuscript" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<table width="600" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor="<%=TableTopBg%>" >
<td colspan="10" height="19">
<table width="100%" border="0">
<tr>
<td class="pt3"><%=sqlCC.RecordCount%>个记录/共<%=sqlCC.PageCount%>页
<%
if sqlCC.PageCount>1 then
for i= 1 to sqlCC.PageCount
response.write("<a href="&request.servervariables("SCRIPT_NAME")&"&gpy="&gpy&"&LeaveMark="&LeaveMark&"&Page="&i&">"&i&"</a> ")
next
end if
%>
</td>
<td class="pt1"></td>
</tr>
</table>
</td>
</tr>
<tr align=center>
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td>删 除</td>
<td>姓 名</td>
<td>开始时间</td>
<td>结束时间</td>
<td>处理人</td>
<td>处理时间</td>
<td>处理意见</td>
</tr>
<%for i=1 to Pagesize
if sqlCC.eof then exit for%>
<tr bgcolor="#FFFFFF">
<td bgcolor="rgb(214,211,206)" width="10" height="20"> </td>
<td class="pt2" width=40><input type=checkbox name=LeaveLogId value="<%=sqlCC("LeaveLogId")%>"></td>
<td class="pt2">
<a href=# onClick=<%="window.open('workmng.asp?KeyId="&server.urlencode(KeyId)&"&gpy=Look1&LeaveLogId="&sqlCC("LeaveLogId")&"&LeaveMark=1"%>','','scrollbars=yes,width=655,height=400,left=129,top=129') Title='<%=sqlCC("About")&"'><font size=2 color=#000000>"&sqlCC("Name")%></font></a>
</td>
<td class="pt2"><%=sqlCC("BeginTime")%></td>
<td class="pt2"><%=sqlCC("EndTime")%> </td>
<td class="pt2"><%=GetOperName1(sqlCC("LookMan"))%> </td>
<td class="pt2"><%=sqlCC("LookTime")%> </td>
<td class="pt2"><%=sqlCC("LookIder")%> </td>
</tr>
<%
sqlCC.movenext
next
%>
</table>
<div align="center">
<input type="submit" name="submit" value=" 删 除 " >
<input type="button" name="sbumit" value=" 返 回 " onClick="window.location.href ='<%=UrlName&"?gpy=Expert&KeyId="&server.urlencode(KeyId)%>'">
<input type=hidden name="gpy" value="DelCCQJ">
<input type=hidden name="LeaveMark" value="<%=LeaveMark%>">
<input type='hidden' name=KeyId value="<%=KeyId%>">
</div>
</form>
<%
Call HtmlEnd()
end sub
sub SetupHtml()
HtmlHead("考勤参数设置")
%>
<form name="form1" method="post" action=workmng.asp>
<table width="500" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr align=center>
<td> </td>
<td> </td>
<td>时间</td>
<td>最早提前</td>
<td>最迟推后</td>
</tr>
<tr bgcolor=#FFFFFF align=center>
<td rowspan="2" width=40>上 午</td>
<td width=40>上 班</td>
<td><input type="text" name="NewMBeginTime" maxlength="8" size="8" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 60px" value="<%=SetupValue(0)%>"></td>
<td><input type="text" name="NewMBeginWork1" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=Abs(SetupValue(4))%>">分钟</td>
<td><input type="text" name="NewMBeginWork2" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=SetupValue(5)%>">分钟</td>
</tr>
<tr bgcolor=#FFFFFF align=center>
<td>下 班</td>
<td><input type="text" name="NewMEndTime" maxlength="8" size="8" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 60px" value="<%=SetupValue(1)%>"></td>
<td><input type="text" name="NewMEndWork1" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=Abs(SetupValue(6))%>">分钟</td>
<td><input type="text" name="NewMEndWork2" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=SetupValue(7)%>">分钟</td>
</tr>
<tr bgcolor=#FFFFFF align=center>
<td rowspan="2">下 午</td>
<td>上 班</td>
<td><input type="text" name="NewABeginTime" maxlength="8" size="8" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 60px" value="<%=SetupValue(2)%>"></td>
<td><input type="text" name="NewABeginWork1" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=abs(SetupValue(8))%>">分钟</td>
<td><input type="text" name="NewABeginWork2" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=SetupValue(9)%>">分钟</td>
</tr>
<tr bgcolor=#FFFFFF align=center>
<td>下 班</td>
<td><input type="text" name="NewAEndTime" maxlength="8" size="8" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 60px" value="<%=SetupValue(3)%>"></td>
<td><input type="text" name="NewAEndWork1" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=abs(SetupValue(10))%>">分钟</td>
<td><input type="text" name="NewAEndWork2" maxlength="2" size="2" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #FFFFFF 1px solid; BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #FFFFFF 1px solid; FONT-SIZE: 9pt; WIDTH: 20px" value="<%=SetupValue(11)%>">分钟</td>
</tr>
<tr align=center>
<td colspan=5>
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value=" 修改" name="okbtn">
<input type=hidden name="Issuer" value=<%=Issuer%>>
<input type=hidden name="MenuId" value=<%=MenuId%>>
<input type=hidden name="gpy" value="SetupOk">
<input type='hidden' name=KeyId value="<%=KeyId%>">
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/Delete.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放弃" name="okbtn" onClick="window.location.href ='<%=UrlName&"?gpy=Expert&KeyId="&server.urlencode(KeyId)%>'">
</td>
</tr>
</table>
</form>
<%
HtmlEnd
end sub
sub ShowShenQingHtml()
HtmlHead("申请修正上班时间")
%>
<SCRI⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -