?? workmng.asp
字號:
aa=document.form1
if (aa.LookIder.value=="") {
window.alert ("請輸入處理結果!"); aa.LookIder.focus();return false}
}
//-->
</SCRIPT>
<form name="form1" method="post" action=<%=request.servervariables("SCRIPT_NAME")%> onSubmit="return checkvalue()">
<table width="350" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor="#FFFFFF" >
<td width=60>申 請 人：</td>
<td class=pt2><%=GetOperName(sql("LoginName"))%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>申請時間：</td>
<td class=pt2><%=sql("AddTime")%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>申 請 IP：</td>
<td class=pt2><%=sql("AddIp")%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>開始時間：</td>
<td class=pt2><%=sql("BeginTime")%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>結束時間：</td>
<td class=pt2><%=sql("EndTime")%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60 valign=top>事 由：</td>
<td class=pt2><%=sql("About")%></td>
</tr>
<%if gpy="Look" then %>
<tr bgcolor="#FFFFFF" >
<td width=60 valign=top>處理結果：</td>
<td class=pt2><textarea name="LookIder" class="text2" rows="5" cols="58"></textarea></td>
</tr>
<tr align=center>
<td colspan=2>
<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="AddIder">
<input type=hidden name="LeaveLogId" value="<%=LeaveLogId%>">
<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="history.back();">
</td>
</tr>
<%else%>
<tr bgcolor="#FFFFFF" >
<td width=60 valign=top>處理結果：</td>
<td><%if sql("LookTime")<>"" then
response.write GetOperName(sql("LookMan"))&"于["&sql("LookTime")&"]從["&sql("LookIp")&"]作如下處理：<br>"&sql("LookIder")
else
response.write "還未處理！"
end if%></td>
</tr>
<%end if%>
</table>
</form>
<%
end sub
sub ShowExpertHtml()
FindDeptId=request("FindDeptId")
HtmlHead("高級功能")
Query="select OperType,MyDept.ID,MyDept.Name from MyOper,MyDept where MyDept.ID=MyOper.DeptID and MyOper.ID="&OperID
set sqlOper1=conn.Execute(Query)
if not sqlOper1.eof then
if sqlOper1("OperType")>1 then DeptAll=1 else DeptAll=0 end if '判斷是否有查看所以部門的權限
else
DeptAll=0
end if
Query="select ID from MyDept where Chief="&OperID
set sqlDept=conn.Execute(Query)
if not sqlDept.eof and FindDeptId="" then '判斷是否有查詢本部門的所有人的權限
OperAll=1
FindDeptId=sqlDept("ID")
else
OperAll=0
end if
%>
<form name="form1" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<table width="500" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr align=center>
<td colspan=2>考勤記錄查詢</td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>開始時間：</td>
<td><%BeginTimeHtml()%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width=60>結束時間：</td>
<td><%EndTimeHtml()%></td>
</tr>
<%
if DeptAll=1 then '有查詢所有部門的權限
Query="select ID,Name,Chief from MyDept"
set sqlDept=conn.Execute(Query)
while not sqlDept.eof
optDept=optDept&"<option value='"&sqlDept("ID")&"'>"&sqlDept("Name")&"</option>"
sqlDept.movenext
wend
%>
<tr bgcolor="#FFFFFF" >
<td width=60>選擇部門：</td>
<td>
<script language=javascript>
function changepage(selObj)
{
eval("window.location='<%=UrlName%>&gpy=Expert&FindDeptId="+selObj.options[selObj.selectedIndex].value+"'");
}
</script>
<SELECT NAME="DeptId" Id="DeptId" onchange="changepage(this)">
<option value='0'>------所有部門------</option>
<%=optDept%>
</SELECT>
<%if FindDeptId<>"" then%>
<script language=javascript>
document.form1.DeptId.value="<%=FindDeptId%>";
</script>
<%end if%>
</td>
</tr>
<%else%>
<tr bgcolor="#FFFFFF" >
<td width=60>查詢部門：</td>
<td>
<input type=hidden NAME="DeptId" value="<%=sqlOper1("ID")%>">
<%=sqlOper1("Name")%>
</td>
</tr>
<%end if
if FindDeptId>0 then
Query="select ID,LoginName,Name from MyOper where DeptId="&FindDeptId
else
Query="select LoginName,Name from MyOper"
end if
set sqlOper=conn.Execute(Query)
while not sqlOper.eof
optOper=optOper&"<option value='"&sqlOper("LoginName")&"'>"&sqlOper("Name")&"</option>"
sqlOper.movenext
wend
if OperAll=1 or DeptAll=1 then
%>
<tr bgcolor="#FFFFFF" >
<td width=60>選擇員工：</td>
<td>
<SELECT NAME="FindLoginName" Id="FindLoginName">
<option value='0'>------所有人------</option>
<%=optOper%>
</SELECT>
</td>
</tr>
<%else%>
<tr bgcolor="#FFFFFF" >
<td width=60>查詢員工：</td>
<td>
<input type=hidden NAME="FindLoginName" value="<%=LoginName%>"><%=UserName%>
</td>
</tr>
<%end if%>
<tr bgcolor="#FFFFFF" >
<td width=60>查詢類型：</td>
<td>
<INPUT TYPE="checkbox" NAME="FindSB" value="1" checked>上班記錄
<INPUT TYPE="checkbox" NAME="FindQJ" value="1">請假記錄
<INPUT TYPE="checkbox" NAME="FindCC" value="1">出差記錄
</td>
</tr>
<tr align=center>
<td colspan=2>
<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="FindOk">
<input type=hidden name="LeaveLogId" value="<%=LeaveLogId%>">
<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>
<%if DeptAll=1 then%>
<tr bgcolor=#FFFFFF>
<td colspan=2>考勤管理維護：
<a href="deptmng.asp">部門管理</a>
<a href="myoper.asp">員工管理</a>
<a href="<%=UrlName%>?gpy=Setup">參數據設置</a>
<a href="<%=UrlName%>?gpy=SBSetup">上班數據維護</a>
<a href="<%=UrlName%>?gpy=CCQJSetup&LeaveMark=1">出差數據維護</a>
<a href="<%=UrlName%>?gpy=CCQJSetup&LeaveMark=0">請假數據維護</a>
</td>
</tr>
<%end if%>
</table>
</form>
<%
HtmlEnd
end sub
'上班記錄
sub ShowSBRecord(sqlSB)
%>
<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 rowspan=2 width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td rowspan="2">姓 名</td>
<td rowspan="2">日 期</td>
<td colspan="2">上 午</td>
<td colspan="2">下 午</td>
<%if OperAll=1 or DeptAll=1 then%>
<td rowspan="2">校正</td>
<%end if%>
</tr>
<tr align=center>
<td >上 班</td>
<td >下 班</td>
<td >上 班</td>
<td >下 班</td>
</tr>
<%while not sqlSB.eof
Query="select * from GpyModiLog where ModiDate='"&sqlSB("WorkDate")&"' and Issuer='"&sqlSB("LoginName")&"'"
set sqlModi=conn.Execute(Query)
if not sqlModi.eof then
ModiLogId=sqlModi("ModiLogId")
ModiMark=sqlModi("Mark")
else
ModiMark=-1
end if
if ModiMark=1 then tmpMark="<font color=red>*</font>" else tmpMark=" " end if
%>
<tr bgcolor="#FFFFFF">
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td class="pt2"><%=tmpMark&"<a href=# title='"&sqlSB("Memo")&"'>"&sqlSB("Name")%></a></td>
<td class="pt2"><%=sqlSB("WorkDate")&" (周"&sqlSB("WorkWeek")&")"%></td>
<td class="pt2"><%=sqlSB("MBeginTime")%> </td>
<td class="pt2"><%=sqlSB("MEndTime")%> </td>
<td class="pt2"><%=sqlSB("ABeginTime")%> </td>
<td class="pt2"><%=sqlSB("AEndTime")%> </td>
<%if OperAll=1 or DeptAll=1 then
response.write "<td class='pt2'>"
if date<> sqlSB("WorkDate") then
if ModiMark=0 then
response.write "<a href='"&UrlName&"&gpy=Modi&WorkLogId="&sqlSB("WorkLogId")&"&ModiLogId="&ModiLogId&"'>修改</a>"
else
response.write " "
end if
else
response.write " "
end if
response.write "</td>"
end if%>
</tr>
<%sqlSB.movenext
wend%>
</table>
</td>
</tr>
<%
end sub
sub ShowModiHtml(sql,sql1)
HtmlHead("修改上班記錄")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.LookIder.value=="") {
window.alert ("請輸入處理結果!"); aa.LookIder.focus();return false}
}
//-->
</SCRIPT>
<form name="form1" method="post" action=<%=request.servervariables("SCRIPT_NAME")%> onSubmit="return checkvalue()">
<table width='600' border='1' cellspacing='0' cellpadding='0' bordercolorlight='#7C7C7C' bordercolordark='#FFFFFF'>
<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 colspan="2">上 午</td>
<td colspan="2">下 午</td>
</tr>
<tr align=center>
<td >上 班</td>
<td >下 班</td>
<td >上 班</td>
<td >下 班</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="10" height="20" bgcolor="rgb(214,211,206)"> </td>
<td class="pt2"><%=sql("Name")%></td>
<td class="pt2"><%=sql("WorkDate")%></td>
<td class="pt2"><INPUT TYPE="text" NAME="MBeginTime" size=10 value='<%=sql("MBeginTime")%>'></td>
<td class="pt2"><INPUT TYPE="text" NAME="MEndTime" size=10 value='<%=sql("MEndTime")%>'></td>
<td class="pt2"><INPUT TYPE="text" NAME="ABeginTime" size=10 value='<%=sql("ABeginTime")%>'></td>
<td class="pt2"><INPUT TYPE="text" NAME="AEndTime" size=10 value='<%=sql("AEndTime")%>'></td>
</tr>
<tr align=center>
<td colspan=7>修改理由<br><textarea name="About" class="text2" rows="5" cols="78"><%=sql1("ModiAbout")%></textarea></td>
</tr>
<tr align=center>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -