📄 workmng.asp
字号:
About=About&"将下午下班时间改为["&AEndTime1&"]"
end if
About=About&" 修改人："&GetOperName1(Issuer)&" 修改时间:"&AddTime
Query="Update GpyWorkLog set MBeginTime='"&MBeginTime1&"',MEndTime='"&MEndTime1&"',ABeginTime='"&ABeginTime1&"',AEndTime='"&AEndTime1&"',Memo='"&About&"' where WorkLogId='"&WorkLogId&"'"
conn.Execute(Query)
conn.Execute("Update GpyModiLog set Mark=1 where ModiLogId='"&ModiLogId&"'")
%>
<script language='javascript'>
alert('上班考勤修改成功！修改原因：<%=About%>');
window.location.href = "<%=UrlName%>";
</script>
<%
elseif gpy="Setup" then '考勤参数设置
SetupHtml()
elseif gpy="SetupOk" then
NewMBeginTime=request("NewMBeginTime")
NewMEndTime=request("NewMEndTime")
NewMBeginWork1="-"&request("NewMBeginWork1")
NewMBeginWork2=request("NewMBeginWork2")
NewMEndWork1="-"&request("NewMEndWork1")
NewMEndWork2=request("NewMEndWork2")
NewABeginTime=request("NewABeginTime")
NewAEndTime=request("NewAEndTime")
NewABeginWork1="-"&request("NewABeginWork1")
NewABeginWork2=request("NewABeginWork2")
NewAEndWork1="-"&request("NewAEndWork1")
NewAEndWork2=request("NewAEndWork2")
TextContent=NewMBeginTime&"||"&NewMEndTime&"||"&NewABeginTime&"||"&NewAEndTime&"||"&NewMBeginWork1&"||"&NewMBeginWork2&"||"&NewMEndWork1&"||"&NewMEndWork2&"||"&NewABeginWork1&"||"&NewABeginWork2&"||"&NewAEndWork1&"||"&NewAEndWork2
set MyTextFile=FileObject.CreateTextFile(SetupFileName)
MyTextFile.WriteLine(TextContent)
MyTextFile.Close
%>
<script language='javascript'>
alert('考勤参数设置成功！');
window.location.href = <%response.write("'"&request.servervariables("SCRIPT_NAME")&"&gpy=Setup'")%>
</script>
<%
response.end
elseif gpy="SBSetup" then '上班数据维护
DelSBHtml()
elseif gpy="DelSB" then '删除上班记录
num=request("WorkLogId").count
if num <=0 then
Back("请选择要删除的数据!")
end if
for i= 1 to num
Query="delete from GpyWorkLog where WorkLogId='"&request("WorkLogId")(i)&"'"
conn.Execute(Query)
next
%>
<script language='javascript'>
alert('操作成功!<%=num%>条记录被删除!');
window.location.href = <%response.write("'"&request.servervariables("SCRIPT_NAME")&"&gpy=SBSetup'")%>
</script>
<%
response.end
elseif gpy="CCQJSetup" then '出差数据维护
LeaveMark=request("LeaveMark")
DelCCQJHtml()
elseif gpy="DelCCQJ" then '删除出差请假记录
LeaveMark=request("LeaveMark")
num=request("LeaveLogId").count
if num <=0 then
Back("请选择要删除的数据!")
end if
for i= 1 to num
Query="delete from GpyLeaveLog where LeaveLogId='"&request("LeaveLogId")(i)&"'"
conn.Execute(Query)
next
%>
<script language='javascript'>
alert('操作成功!<%=num%>条记录被删除!');
window.location.href = <%response.write("'"&request.servervariables("SCRIPT_NAME")&"&gpy=CCQJSetup&LeaveMark="&LeaveMark&"'")%>
</script>
<%
response.end
elseif gpy="ModiTime" then
ShowShenQingHtml()
elseif gpy="AddShenQing" then
ModiDate=request("Eyy")&"-"&request("Emm")&"-"&request("Edd")
About=html(request("About"))
set sql=conn.Execute("select * from GpyModiLog where ModiDate='"&ModiDate&"' and Issuer='"&UserName&"'")
if not sql.eof then Back("一天只能有一次申请！")
Query="Insert into GpyModiLog (ModiDate,ModiAbout,Issuer,AddTime,AddIp,Mark) values('"&ModiDate&"','"&About&"','"&UserName&"','"&AddTime&"','"&AddIp&"','0')"
conn.Execute(Query)
%>
<script language='javascript'>
alert("修正申请增加成功，请等候负责人处理！");
window.location.href = <%response.write("'"&request.servervariables("SCRIPT_NAME")&"'")%>
</script>
<%
end if
sub ShowHolidayHtml()
HtmlHead(MarkName(LeaveMark)&"申请")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.LookMan.value=="") {
window.alert ("请选择受理人!"); aa.LookMan.focus();return false}
if (aa.About.value=="") {
window.alert ("请输入事由!"); aa.About.focus();return false}
}
//-->
</SCRIPT>
<form name="form1" method="post" action=<%=request.servervariables("SCRIPT_NAME")%> onSubmit="return checkvalue()">
<table border="0" bgcolor="rgb(214,211,206)" cellspacing="5" style="font-family: 宋体; font-size: 10.5pt">
<tr>
<td class=pt1>开始时间：</td>
<td class=pt>
<%BeginTimeHtml()%>
</td>
</tr>
<tr>
<td class=pt1>结束时间：</td>
<td class=pt>
<%EndTimeHtml()%>
</td>
</tr>
<tr >
<td width="60" valign="top" class="pt1">受理对象：</td>
<td>
<%
set sqlOper=conn.Execute("select LoginName,Name from MyOper order by LoginName desc")
while not sqlOper.eof
opt=opt&"<option value='"&sqlOper(0)&"'>"&sqlOper(1)&"</option>"
sqlOper.movenext
wend
%>
<SELECT NAME="LookMan" ID="LookMan">
<option value=''>----请选择----</option><%=opt%>
</SELECT>
</td>
</tr>
<tr >
<td width="60" valign="top" class="pt1"><%=MarkName(LeaveMark)%>事由：</td>
<td> <textarea name="About" 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="AddHoliday">
<input type=hidden name="LeaveMark" value="<%=LeaveMark%>">
<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>
</table>
</form>
<%
set sql=server.createobject("ADODB.recordset")
Query="select * from GpyLeaveLog where LeaveMark='"&LeaveMark&"' and LoginName='"&UserName&"' order by AddTime desc"
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
%>
<table width="600" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor=<%=TableTopBg%>>
<td colspan="7">
<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")&"Page="&i&">"&i&"</a> ")
next
end if
%>
</td>
<td class="pt1"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor=<%=TableTopBg%>>
<td bgcolor="rgb(214,211,206)" width="10" height="20"> </td>
<td class=pt2>开始时间</td>
<td class=pt2>结束时间</td>
<td class=pt2>申请时间</td>
<td class=pt2>处理人</td>
<td class=pt2>处理时间</td>
<td class=pt2>意见</td>
</tr>
<%for i=1 to Pagesize
if sql.eof then exit for
%>
<tr bgcolor=<%=TableContentBg%>>
<td bgcolor="rgb(214,211,206)" width="10" height="20"> </td>
<td class=pt2><%=sql("BeginTime")%></td>
<td class=pt2><%=sql("EndTime")%></td>
<td class=pt2><%=sql("AddTime")%></td>
<td class=pt2><%=GetOperName1(sql("LookMan"))%></td>
<td class=pt2><%=sql("LookTime")%> </td>
<td class=pt2><%=sql("LookIder")%> </td>
</tr>
<%
sql.movenext
next
%>
</table>
<%
HtmlEnd
end sub
sub BeginTimeHtml()
%>
<select name="Byy">
<option value="2000" selected>2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
</select>
年
<select name="Bmm">
<option value="1" selected>01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
月
<select name="Bdd">
<option value="1" selected>01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>日
<%if gpy<>"Expert" then%>
<select name="BHour">
<option value="0">00</option>
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8" selected>08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -