fun.asp

通用考勤系统

        
      <td align="center"  >在本系统记录的所有工作时间<br>
        <font color=red><%=allworktime%>分钟 </font><font color=#889988>(&nbsp;<%=ROUND((allworktime/60),2)%>小时)</font></td>
        
 
      </tr>
    </table>
<%else
  response.write "<p align=center><br><br><font color=yellow size=5><b>工作和账户:此功能被管理员关闭<br><br></font></p>"
  end if
  else
response.write "<p align=center><br><br><font color=red size=5>您还没有通过审核！<br><br>如果您非本系统人员，<br><br>您的账号将被删除！<br><br></font></p>"
end if%>
  </center>
 
</center>


<%end sub

'##########################||  考勤信息  || ###############################
 sub kqinf()

aid=session("id")

sql="select * from ct_sql where id="&aid
rs.open sql,cn,1,1

alladdfen=rs("alladdfen") 
payaddback=rs("payaddback") 
alldelfen=rs("alldelfen")
paydelback=rs("paydelback")

monthfenpaiming=rs("monthfenpaiming") 
allfenpaiming=rs("allfenpaiming")

monthfenpmtime=rs("monthfenpmtime") 
allfenpmtime=rs("allfenpmtime")

monthfen=rs("monthfen") 
allfen=rs("allfen") 

mqr=rs("monthqdrc")  
shenhe=rs("noshenhe")

%>

   <%if shenhe=1 then %>
<div align=left>
<table width="40%"     bgcolor="#f8f8f8">
<tr>
<td align=center bgcolor="#e8e8e8" onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=zhinf.asp>工作和账户</a></td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=qdinf.asp>签到明细</a> </td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=cdinf.asp>迟到明细</a></td>  
</tr>
</table>
</div>
<%if iskqshow=1 then %>
<center>
    <table width="100%" border="1"   bordercolor="#3399ff" bgcolor="#f8f8f8">

      <tr>  
      <td  align="center" bgcolor="#eeeeee">本月考勤积分<br>
        <font color=red><b><%=monthfen%></b></font>分 <br>
 
      </td>
         <td align="center">所有考勤分 <br>
       
           <font color=red><b><%=allfen%></b></font>分</td>
       <td align="center" >本月考勤分排名<br>
         <% if monthfenpaiming=0 or monthfenpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthfenpaiming%></font> <%end if%></td>
         
        <td align="center" >月考勤分排名时间<br>
        <% if monthfenpmtime=0 or monthfenpmtime=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthfenpmtime%></font><%end if%></td>
</tr>
       <tr> 
      <td align="center" colspan=2 >所有考勤分排名<br>
        <% if allfenpaiming=0 or allfenpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=allfenpaiming%> </font> <%end if%></td>
         
       <td align="center" colspan=2>所有考勤分排名时间<br>
          <% if allfenpmtime=empty or allfenpmtime=0 then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=allfenpmtime%> </font> <%end if%></td>
  
      </tr>
      <tr> 
        <td colspan="2" width=50%>
		
		一共获得的奖励计分<font color="#FF0000">
                    <%=alladdfen%></font><br><font color="#778877">奖励理由和时间</font><br>

           <%=ubbcode(payaddback)%>   
          
        </td>
        
      <td colspan="2" width=50%>一共得到的惩罚降分 <font color="#FF0000"><%=alldelfen%></font><br><font color="#778877">惩罚理由和时间</font><br>

            <%=ubbcode(paydelback)%>  
</td>
      </tr>
      
	  
    </table>

  
   
   
<%
else
  response.write "<p align=center><br><br><font color=yellow size=5><b>考勤明细:此功能被管理员关闭<br><br></font></p>"
  end if
  else
response.write "<p align=center><br><br><font color=red size=5>您还没有通过审核！<br><br>如果您非本系统人员，<br><br>您的账号将被删除！<br><br></font></p>"
end if

 end sub
'##########################||  签到明细  || ###############################
sub qdinf()

aid=session("id")

sql="select * from ct_sql where id="&aid
rs.open sql,cn,1,1

monthqdpaiming=rs("monthqdpaiming")
monthqdpmtime=rs("monthqdpmtime")

allqdpaiming=rs("allqdpaiming") 
allqdpaimingtime=rs("allqdpaimingtime")

monthqdnum=rs("monthqdnum") 
allqdnum=rs("allqdnum") 

ip=rs("todayqdip")
todayqdontime=rs("todayqdontime")

mqr=rs("monthqdrc")  
shenhe=rs("noshenhe")

%>

   <%if shenhe=1 then %>
<div align=left>
<table width="40%"     bgcolor="#f8f8f8">
<tr>
<td align=center bgcolor="#e8e8e8" onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=zhinf.asp>工作和账户</a></td>
<td bgcolor="#f8f8f8" align=center ><font color=red>签到明细</font> </td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=cdinf.asp>迟到明细</a></td>  
</tr>
</table>
</div><%if isqdshow=1 then %>
<center>
    <table width="100%" border="1"   bordercolor="#3399ff" bgcolor="#f8f8f8">

      <tr>  
      <td  align="center" bgcolor="#eeeeee">本月签到次数<br>
        <font color=red><b><%=monthqdnum%></b></font>次 <br>
 
      </td>
         <td align="center">所有签到次数 <br>
       
           <font color=red><b><%=allqdnum%></b></font>次</td>
       <td align="center" >本月签到排名<br>
         <% if monthqdpaiming=0 or monthqdpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthqdpaiming%></font> <%end if%></td>
         
        <td align="center" >月签到排名时间<br>
        <% if monthqdpmtime=0 or monthqdpmtime=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthqdpmtime%></font><%end if%></td>
</tr>
       <tr> 
      <td align="center" colspan=2 >所有签到次数排名<br>
        <% if allqdpaiming=0 or allqdpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=allqdpaiming%> </font> <%end if%></td>
         
       <td align="center" colspan=2>所有签到次数排名时间<br>
          <% if allqdpaimingtime=empty or allqdpaimingtime=0 then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=allqdpaimingtime%> </font> <%end if%></td>
  
      </tr>
      <tr> 
      <td align="center" colspan=2 >今日签到时间<br>
        <% if todayqdontime=empty then%>
          <font color=#777777>尚未签到</font>
        <%else%>
        <font color=red><%=todayqdontime%> </font> 
        <%end if%>
        </td>
         
       <td align="center" colspan=2>今日签到IP<br>
          <% if ip=empty  then%>
          <font color=#777777>尚未签到</font>
        <%else%>
        <font color=red><%=ip%> </font> 
        <%end if%>
          </td>
  
      </tr> 
      
	  
    </table>
<table>
   <tr>
      <td width=558 height="1" colspan="3"  background=images/loginLine.gif></td>
  </tr>
    <tr> 
       <td width=558 height="30" colspan="3" align="center" bgcolor=#E4eeFE><font color=green>本月签到明细</font><br>
   </td>
   </tr>
   <tr>
     <td align=center>
　      <table border=1 bordercolor=#3399ff  bgcolor=#E4F7FE>
          <tr>
            <td   align=center background=images/nav_back.gif width=100><b>ID</b></td><td   align=center background=images/nav_back.gif width=300><b>本月签到纪录</b></td>
        </tr>
 <!--<tr><td colspan=2><%=mqr%></td></tr>//-->
          <%  

Dim mqrarg

mqrarg=split(mqr,"|")

for i=LBound(mqrarg) to (UBound(mqrarg)-1)

response.write "<tr>"
  
response.write "<td align=center>"&(i+1)&"</TD><td align=center><font color=red>"&mqrarg(i)&"  </font></TD>"
  

 response.write "</tr>"
Next



else
  response.write "<p align=center><br><br><font color=yellow size=5><b>签到明细:此功能被管理员关闭<br><br></font></p>"
  end if
  else
response.write "<p align=center><br><br><font color=red size=5>您还没有通过审核！<br><br>如果您非本系统人员，<br><br>您的账号将被删除！<br><br></font></p>"
end if
response.write "</table></table>"



end sub
'##########################||  迟到明细  || ###############################
sub cdinf()

aid=session("id")
sql="select * from ct_sql where id="&aid
rs.open sql,cn,1,1
monthlattertime=rs("monthlattertime")
alllattertime=rs("alllattertime")
alllatterpaiming=rs("alllatterpaiming") 
alllatterpmtime=rs("alllatterpmtime")
monthlatterpaiming=rs("monthlatterpaiming") 
monthlatterpmtime=rs("monthlatterpmtime") 
mlr=rs("monthlatterqdrc")  
shenhe=rs("noshenhe")
%>

   <%if shenhe=1 then %>
<div align=left>
<table width="40%"     bgcolor="#f8f8f8">
<tr>
<td align=center bgcolor="#e8e8e8" onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=zhinf.asp>工作和账户</font></td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=qdinf.asp>签到明细</a></td>
<td bgcolor="#f8f8f8" align=center ><font color=red>迟到明细</font></td>  
</tr>
</table>
</div><%if islattershow=1 then %>
<center>
    <table width="100%" border="1"   bordercolor="#3399ff" bgcolor="#f8f8f8">

      <tr>  
      <td  align="center" bgcolor="#eeeeee">本月迟到次数<br>
        <font color=red><b><%=monthlattertime%></b></font>次 <br>
 
      </td>
         <td align="center">所有迟到次数 <br>
       
           <font color=red><b><%=alllattertime%></b></font>次</td>
     
      
        
      
        
      <td align="center" >本月迟到排名<br>
         <% if monthlatterpaiming=0 or monthlatterpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthlatterpaiming%></font> <%end if%></td>
         
        <td align="center" >月迟到排名时间<br>
        <% if monthlatterpmtime=0 or monthlatterpmtime=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=monthlatterpmtime%></font><%end if%></td>
</tr>
       <tr> 
      <td align="center" colspan=2 >所有迟到次数排名<br>
        <% if alllatterpaiming=0 or alllatterpaiming=empty then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=alllatterpaiming%> </font> <%end if%></td>
         
       <td align="center" colspan=2>所有迟到次数排名时间<br>
          <% if alllatterpmtime=empty or alllatterpmtime=0then%>
          <font color=#777777>无排名</font>
        <%else%>
        <font color=red><%=alllatterpmtime%> </font> <%end if%></td>
  
      </tr>
       
      
	  
    </table>
<table>
   <tr>
      <td width=558 height="1" colspan="3"  background=images/loginLine.gif></td>
  </tr>
    <tr> 
       <td width=558 height="30" colspan="3" align="center" bgcolor=#E4eeFE><font color=green>本月迟到明细</font><br>
   </td>
   </tr>
   <tr>
     <td align=center>
　      <table border=1 bordercolor=#3399ff  bgcolor=#E4F7FE>
          <tr>
            <td   align=center background=images/nav_back.gif width=300><b>登陆系统时间</b></td><td   align=center background=images/nav_back.gif width=100><b>迟到时间</b></td>
        </tr>
          <%  

Dim mlrarg
Dim mltarg
mlrarg=split(mlr,"|")

for i=LBound(mlrarg) to (UBound(mlrarg)-1)
mltarg=split(mlrarg(i),",")
response.write "<tr>"
  for k=LBound(mltarg) to (UBound(mltarg)-1)
response.write "<td align=center>"&mltarg(k)&"</TD><td align=center><font color=red>"&mltarg(k+1)&"  </font>分钟</TD>"
  Next
Next
 response.write "</tr>"

else
  response.write "<p align=center><br><br><font color=yellow size=5><b>迟到明细:此功能被管理员关闭<br><br></font></p>"
  end if
  else
response.write "<p align=center><br><br><font color=red size=5>您还没有通过审核！<br><br>如果您非本系统人员，<br><br>您的账号将被删除！<br><br></font></p>"
end if
response.write "</table>"
%>
  </center>
 
</center>

 
<%
end sub
'#############################  系统操作说明 ########################
   sub cz()

sql="select * from artic  where typeid=2 order by id DESC"
rs.open sql,cn,1,1
if (rs.eof and rs.bof)  then 
response.write "<br><font color=red >还没有文章</font>"
else
i=0
do while not rs.eof and  i<10   '10是文章数量请自定义数目！
 id=rs("id")
title=rs("title")
response.write "<img src=images/a12.gif  ><a href=artview.asp?id="&id&" target=_blank>"&title&"</a><br>"
rs.movenext
i=i+1
loop
  rs.close
end if
 end sub
%>

<%
'################ 规章制度 #############################
  sub zd()
  i=10  ''''5是文章数量请自定义数目！

sql="select * from artic where typeid=1 order by id DESC"
rs.open sql,cn,1,1
if (rs.eof and rs.bof)  then 
response.write "<br><font color=red >还没有文章</font>"
else
do while not rs.eof and  i>0   
 id=rs("id")
title=rs("title")
response.write "<img src=images/a12.gif  ><a href=artview.asp?id="&id&" target=_blank>"&title&"</a><br>"
rs.movenext
i=i-1
loop
  rs.close
end if
 end sub

 
%>

<%
'################ 规章制度 #############################
  sub bbslogin()
  response.write "要设置论坛登陆请修改fun.asp里面的bbslogin()函数"
 end sub

 
%>