?? workmng.asp
字號:
<%@LANGUAGE="VBScript"%>
<!--#include file="login.asp"-->
<%
'程序：王星亮 網(wǎng)名：血飲狂刀 國外的叫我LANBOO
'OICQ：40001
'EMAIL：webmaster@xytime.com
'我是什么都有，您想要我開發(fā)什么程序，盡管說。只要價格合理就行。
'我電話：13308715776 0871-3394913
response.expires = 0
Const PageSize=15
Page=CInt(request("Page"))
if Page<=0 then Page=1
OperID= session("My_Login_ID")
LoginName= session("My_Login_Name")
gpy=request("gpy")
AddTime=now
AddIp=request.servervariables("remote_addr")
OperId=OperID
'////定義星期
dim WeekName(8)
WeekName(1)="日"
WeekName(2)="一"
WeekName(3)="二"
WeekName(4)="三"
WeekName(5)="四"
WeekName(6)="五"
WeekName(7)="六"
'///結(jié)束定義
set FileObject=Server.CreateObject("Scripting.FileSystemObject")
SetupFileName=Server.MapPath("./work.ini")
if not FileObject.FileExists(SetupFileName) then
TextContent="8:40:00||12:00:00||13:00:00||17:40:00||-30||30||-30||30||-30||30||-30||30"
set MyTextFile=FileObject.CreateTextFile(SetupFileName)
MyTextFile.WriteLine(TextContent)
MyTextFile.Close
end if
set MyTextFile=FileObject.OpenTextFile(SetupFileName)
TextContent=MyTextFile.ReadLine
MyTextFile.Close
SetupValue=split(TextContent,"||")
BeginTime1=date&" "&SetupValue(0) '上午上班時間
EndTime1=date&" "&SetupValue(1) '上午下班時間
BeginTime2=date&" "&SetupValue(2) '下午上班時間
Endtime2=date&" "&SetupValue(3) '下午下班時間
MBeginWork1=CInt(SetupValue(4)) '上午上班允許最早打卡時間
MBeginWork2=CInt(SetupValue(5)) '上午上班允許最晚打卡時間
if DeptId=16 then MBeginWork2=MBeginWork2+65 '如果是技術(shù)部人員,推遲六十五分鐘
MEndWork1=CInt(SetupValue(6)) '上午下班允許最早打卡時間
MEndWork2=CInt(SetupValue(7)) '上午下班允許最晚打卡時間
ABeginWork1=CInt(SetupValue(8)) '下午上班允許最早打卡時間
ABeginWork2=CInt(SetupValue(9)) '下午上班允許最晚打卡時間
AEndWork1=CInt(SetupValue(10)) '下午下班允許最早打卡時間
AEndWork2=CInt(SetupValue(11)) '下午下班允許最晚打卡時間
numBegin1=DateDiff("n",BeginTime1,AddTime)
numBegin2=DateDiff("n",BeginTime2,AddTime)
numEnd1=DateDiff("n",EndTime1,AddTime)
numEnd2=DateDiff("n",EndTime2,AddTime)
'response.write numBegin1&"||"&numBegin2&"||"&numEnd1&"||"&numEnd2&"<br>"
'response.write ABeginWork1&"||"&ABeginWork2
LeaveMark=request("LeaveMark")
dim MarkName(2)
MarkName(0)="請假"
MarkName(1)="出差"
'顯示主界面
if gpy="" then
set sql=conn.Execute("select OperType from MyOper where OperType>1 and ID="&OperID) '判斷是否高級用戶
if sql.eof then ButtonType1=0 else ButtonType1=1 end if
set sql=conn.Execute("select Chief from MyDept where Chief="&OperID) '判斷是否部門領(lǐng)導
if sql.eof then ButtonType2=0 else ButtonType2=1 end if
'////////在第一個人上班時,將今天的所有人的上班記錄初始化
set sqlLog=conn.Execute("select * from GpyWorkLog where WorkDate=#"&Date&"#")
if sqlLog.eof then
set sqlOper=conn.Execute("select LoginName from MyOper where OperType>0")
while not sqlOper.eof
InsertQuery="Insert into GpyWorkLog (LoginName,WorkDate,WorkWeek) values('"&sqlOper("LoginName")&"',#"&date&"#,'"&WeekName(weekday(date))&"')"
'response.write InsertQuery & "<br>"
conn.Execute(InsertQuery)
sqlOper.movenext
wend
end if
'///////
ShowLookHtml
'上班登記 WeekName(weekday(date))
elseif gpy="BeginWork" then
Query="select * from GpyWorkLog where LoginName='"&LoginName&"' and WorkDate=#"&Date&"#"
set sql=conn.Execute(Query)
if not sql.eof then
if numBegin1>=MBeginWork1 and numBegin1<=MBeginWork2+5 then
if sql("MBeginTime")<>"" then Back("對不起，已經(jīng)登記過！請不要重復登記！")
Query="Update GpyWorkLog set MBeginTime=#"&Time&"# where WorkLogId="&sql("WorkLogId")
elseif numBegin2>=ABeginWork1 and numBegin2<=ABeginWork2+5 then
if sql("ABeginTime")<>"" then Back("對不起，已經(jīng)登記過！請不要重復登記！")
Query="Update GpyWorkLog set ABeginTime=#"&Time&"# where WorkLogId="&sql("WorkLogId")
end if
else
if numBegin1>=MBeginWork1 and numBegin1<=MBeginWork2+5 then
Query="Insert into GpyWorkLog (LoginName,WorkDate,WorkWeek,MBeginTime) values('"&LoginName&"',#"&date&"#,'"&WeekName(weekday(date))&"',#"&Time&"#)"
elseif numBegin2>=ABeginWork1 and numBegin2<=ABeginWork2+5 then
Query="Insert into GpyWorkLog (LoginName,WorkDate,WorkWeek,ABeginTime) values('"&LoginName&"',#"&date&"#,'"&WeekName(weekday(date))&"',#"&Time&"#)"
end if
end if
'response.write Query
conn.Execute(Query)
%>
<script language='javascript'>
alert('上班登記成功！登記時間：<%=time%>');
window.location.href = "<%=UrlName%>";
</script>
<%
'下班登記
elseif gpy="EndWork" then
Query="select * from GpyWorkLog where LoginName='"&LoginName&"' and WorkDate=#"&date&"#"
set sql=conn.Execute(Query)
if not sql.eof then
if numEnd1>=MEndWork1 and numEnd1<=MEndWork2+5 then
if sql("MEndTime")<>"" then Back("對不起，已經(jīng)登記過！請不要重復登記！")
Query="Update GpyWorkLog set MEndTime=#"&Time&"# where WorkLogId="&sql("WorkLogId")
elseif numEnd2>=AEndWork1 and numEnd2<=AEndWork2+5 then
if sql("AEndTime")<>"" then Back("對不起，已經(jīng)登記過！請不要重復登記！")
Query="Update GpyWorkLog set AEndTime=#"&Time&"# where WorkLogId="&sql("WorkLogId")
end if
else
if numEnd1>=MEndWork1 and numEnd1<=MEndWork2+5 then
Query="Insert into GpyWorkLog (LoginName,WorkDate,MEndTime) values('"&LoginName&"',#"&date&"#,#"&Time&"#)"
elseif numEnd2>=AEndWork1 and numEnd2<=AEndWork2+5 then
Query="Insert into GpyWorkLog (LoginName,WorkDate,AEndTime) values('"&LoginName&"',#"&date&"#,#"&Time&"#)"
end if
end if
'response.write Query
conn.Execute(Query)
%>
<script language='javascript'>
alert('下班登記成功！登記時間：<%=AddTime%>');
window.location.href = "<%=UrlName%>";
</script>
<%
'顯示請假和出差登記的界面
elseif gpy="Holiday" then
ShowHolidayHtml()
'出差和請假登記
elseif gpy="AddHoliday" then
BeginTime=request("Byy")&"-"&request("Bmm")&"-"&request("Bdd")&" "&request("BHour")&":"&request("BMin")&":00"
EndTime=request("Eyy")&"-"&request("Emm")&"-"&request("Edd")&" "&request("EHour")&":"&request("EMin")&":00"
About=html(request("About"))
LookMan=request("LookMan")
Query="Insert into GpyLeaveLog (LeaveMark,LoginName,BeginTime,EndTime,AddTime,AddIp,About,LookMan) values('"&LeaveMark&"','"&LoginName&"',#"&BeginTime&"#,#"&EndTime&"#,'"&AddTime&"','"&AddIp&"','"&About&"','"&LookMan&"')"
conn.Execute(Query)
%>
<script language='javascript'>
alert('申請登記成功！請等候處理！');
window.location.href = "<%=UrlName%>";
</script>
<%
'處理出差和請假的網(wǎng)頁
elseif gpy="Look" or gpy="Look1" then
LeaveLogId=request("LeaveLogId")
Query="select * from GpyLeaveLog where LeaveLogId="&LeaveLogId
set sql=conn.Execute(Query)
ShowLook(sql)
'處理出差和請假的結(jié)果
elseif gpy="AddIder" then
LeaveLogId=request("LeaveLogId")
LookIder=html(request("LookIder"))
Query="Update GpyLeaveLog set LookTime='"&AddTime&"',LookIp='"&AddIp&"',LookIder='"&LookIder&"' where LeaveLogId="&LeaveLogId
' response.write Query
conn.Execute(Query)
%>
<script language='javascript'>
alert('申請?zhí)幚沓晒Γ?#039;);
window.close();
</script>
<%
'顯示高級功能網(wǎng)頁
elseif gpy="Expert" then
ShowExpertHtml()
elseif gpy="FindOk" then
FindSB=request("FindSB")
FindQJ=request("FindQJ")
FindCC=request("FindCC")
Byy=request("Byy")
Bmm=request("Bmm")
Bdd=request("Bdd")
BeginDate=Byy&"-"&Bmm&"-"&Bdd
BeginTime=BeginDate&" 00:00:01"
Eyy=request("Eyy")
Emm=request("Emm")
Edd=request("Edd")
EndDate=Eyy&"-"&Emm&"-"&Edd
EndTime=EndDate&" 23:59:59"
DeptId=request("DeptId")
FindLoginName=request("FindLoginName")
if FindSB="" and FindQJ="" and FindCC="" then Back("提示：請選擇查詢類型！")
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 '判斷是否有查看所以部門的權(quán)限
else
DeptAll=0
end if
Query="select ID from MyDept where Chief="&OperID
set sqlDept=conn.Execute(Query)
if not sqlDept.eof then '判斷是否有查詢本部門的所有人的權(quán)限
OperAll=1
FindDeptId=sqlDept("ID")
else
OperAll=0
end if
HtmlHead("考勤記錄查詢結(jié)果")
response.write "<table width='600' border='1' cellspacing='0' cellpadding='0' bordercolorlight='#7C7C7C' bordercolordark='#FFFFFF'>"
if FindSB="1" then '上班記錄
if DeptId=0 and FindLoginName="0" then '所有人的記錄
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,WorkWeek,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark from GpyWorkLog,MyOper where GpyWorkLog.LoginName=MyOper.LoginName and WorkDate>=#"&BeginDate&"# and WorkDate<=#"&EndDate&"# order by WorkLogId desc"
elseif FindLoginName<>"0" and FindLoginName<>"" then '指定人的記錄
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,WorkWeek,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark from GpyWorkLog,MyOper where GpyWorkLog.LoginName=MyOper.LoginName and WorkDate>=#"&BeginDate&"# and WorkDate<=#"&EndDate&"# and GpyWorkLog.LoginName='"&FindLoginName&"' order by WorkDate desc"
elseif DeptId<>0 and FindLoginName="0" then
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,WorkWeek,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark from GpyWorkLog,MyOper where GpyWorkLog.LoginName=MyOper.LoginName and WorkDate>=#"&BeginDate&"# and WorkDate<=#"&EndDate&"# and DeptId="&DeptId&" order by WorkLogId desc"
end if
' response.write Query
set sqlSB=conn.Execute(Query)
ShowSBRecord(sqlSB)
end if
if FindQJ="1" then '請假記錄
if DeptId=0 and FindLoginName="0" then '所有人的記錄
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and LeaveMark=0 order by BeginTime desc"
elseif FindLoginName<>"0" and FindLoginName<>"" then '指定人的記錄
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and GpyLeaveLog.LoginName='"&FindLoginName&"' and LeaveMark=0 order by BeginTime desc"
elseif DeptId<>0 and FindLoginName="0" then
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and DeptId="&DeptId&" and LeaveMark=0 order by BeginTime desc"
end if
set sqlQJ=conn.Execute(Query)
ShowQJRecord(sqlQJ)
end if
if FindCC="1" then '出差記錄
if DeptId=0 and FindLoginName="0" then '所有人的記錄
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and LeaveMark=1 order by BeginTime desc"
elseif FindLoginName<>"0" and FindLoginName<>"" then '指定人的記錄
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and GpyLeaveLog.LoginName='"&FindLoginName&"' and LeaveMark=1 order by BeginTime desc"
elseif DeptId<>0 and FindLoginName="0" then
Query="select LeaveLogId,Name,GpyLeaveLog.LoginName,BeginTime,EndTime,GpyLeaveLog.AddTime,LookMan,LookTime,LookIder,About from GpyLeaveLog,MyOper where GpyLeaveLog.LoginName=MyOper.LoginName and BeginTime>=#"&BeginTime&"# and BeginTime<=#"&EndTime&"# and DeptId="&DeptId&" and LeaveMark=1 order by BeginTime desc"
end if
set sqlCC=conn.Execute(Query)
ShowCCRecord(sqlCC)
end if
response.write "</table>"
HtmlEnd
elseif gpy="Modi" then
WorkLogId=request("WorkLogId")
ModiLogId=request("ModiLogId")
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark,ModiAbout from GpyWorkLog,MyOper,GpyModiLog where WorkDate=ModiDate and GpyWorkLog.LoginName=MyOper.LoginName and WorkLogId='"&WorkLogId&"'"
set sql=conn.Execute(Query)
set sql1=conn.Execute("select ModiAbout from GpyModiLog where ModiLogId='"&ModiLogId&"'")
ShowModiHtml sql,sql1
elseif gpy="Modi_Ok" then
MBeginTime1=request("MBeginTime")
MEndTime1=request("MEndTime")
ABeginTime1=request("ABeginTime")
AEndTime1=request("AEndTime")
WorkLogId=request("WorkLogId")
ModiLogId=request("ModiLogId")
Query="select WorkLogId,Name,GpyWorkLog.LoginName,WorkDate,MBeginTime,MEndTime,ABeginTime,AEndTime,Memo,WorkMark from GpyWorkLog,MyOper where GpyWorkLog.LoginName=MyOper.LoginName and WorkLogId='"&WorkLogId&"'"
set sql=conn.Execute(Query)
About=sql("Memo")
if html(request("About"))<>"" then
About=About&"因為如下原因："&html(request("About"))
end if
if MBeginTime1<>sql("MBeginTime") then
About=About&"將上午上班時間從["&sql("MBeginTime")&"]改為["&MBeginTime1&"]"
end if
if MBeginTime1<>"" and IsNull(sql("MBeginTime")) then
About=About&"將上午上班時間改為["&MBeginTime1&"]"
end if
if MEndTime1 <> sql("MEndTime") then
About=About&"將上午下班時間從["&sql("MEndTime")&"]改為["&MEndTime1&"]"
end if
if MEndTime1 <>"" and IsNull(sql("MEndTime")) then
About=About&"將上午下班時間改為["&MEndTime1&"]"
end if
if ABeginTime1<>sql("ABeginTime") then
About=About&"將下午上班時間從["&sql("ABeginTime")&"]改為["&ABeginTime1&"]"
end if
if ABeginTime1<>"" and IsNull(sql("ABeginTime")) then
About=About&"將下午上班時間改為["&ABeginTime1&"]"
end if
if AEndTime1<>sql("AEndTime") then
About=About&"將下午下班時間從["&sql("AEndTime")&"]改為["&AEndTime1&"]"
end if
if AEndTime1<>"" and IsNull(sql("AEndTime")) then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -