?? fun.asp
字號:
<td align="center" >在本系統(tǒng)記錄的所有工作時(shí)間<br>
<font color=red><%=allworktime%>分鐘 </font><font color=#889988>( <%=ROUND((allworktime/60),2)%>小時(shí))</font></td>
</tr>
</table>
<%else
response.write "<p align=center><br><br><font color=yellow size=5><b>工作和賬戶:此功能被管理員關(guān)閉<br><br></font></p>"
end if
else
response.write "<p align=center><br><br><font color=red size=5>您還沒有通過審核！<br><br>如果您非本系統(tǒng)人員，<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>簽到明細(xì)</a> </td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=cdinf.asp>遲到明細(xì)</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" >月考勤分排名時(shí)間<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>所有考勤分排名時(shí)間<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%>
一共獲得的獎勵計(jì)分<font color="#FF0000">
<%=alladdfen%></font><br><font color="#778877">獎勵理由和時(shí)間</font><br>
<%=ubbcode(payaddback)%>
</td>
<td colspan="2" width=50%>一共得到的懲罰降分 <font color="#FF0000"><%=alldelfen%></font><br><font color="#778877">懲罰理由和時(shí)間</font><br>
<%=ubbcode(paydelback)%>
</td>
</tr>
</table>
<%
else
response.write "<p align=center><br><br><font color=yellow size=5><b>考勤明細(xì):此功能被管理員關(guān)閉<br><br></font></p>"
end if
else
response.write "<p align=center><br><br><font color=red size=5>您還沒有通過審核！<br><br>如果您非本系統(tǒng)人員，<br><br>您的賬號將被刪除！<br><br></font></p>"
end if
end sub
'##########################|| 簽到明細(xì) || ###############################
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>簽到明細(xì)</font> </td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=cdinf.asp>遲到明細(xì)</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">本月簽到次數(shù)<br>
<font color=red><b><%=monthqdnum%></b></font>次 <br>
</td>
<td align="center">所有簽到次數(shù) <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" >月簽到排名時(shí)間<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 >所有簽到次數(shù)排名<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>所有簽到次數(shù)排名時(shí)間<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 >今日簽到時(shí)間<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>本月簽到明細(xì)</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>本月簽到紀(jì)錄</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>簽到明細(xì):此功能被管理員關(guān)閉<br><br></font></p>"
end if
else
response.write "<p align=center><br><br><font color=red size=5>您還沒有通過審核！<br><br>如果您非本系統(tǒng)人員，<br><br>您的賬號將被刪除！<br><br></font></p>"
end if
response.write "</table></table>"
end sub
'##########################|| 遲到明細(xì) || ###############################
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>簽到明細(xì)</a></td>
<td bgcolor="#f8f8f8" align=center ><font color=red>遲到明細(xì)</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">本月遲到次數(shù)<br>
<font color=red><b><%=monthlattertime%></b></font>次 <br>
</td>
<td align="center">所有遲到次數(shù) <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" >月遲到排名時(shí)間<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 >所有遲到次數(shù)排名<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>所有遲到次數(shù)排名時(shí)間<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>本月遲到明細(xì)</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>登陸系統(tǒng)時(shí)間</b></td><td align=center background=images/nav_back.gif width=100><b>遲到時(shí)間</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>遲到明細(xì):此功能被管理員關(guān)閉<br><br></font></p>"
end if
else
response.write "<p align=center><br><br><font color=red size=5>您還沒有通過審核！<br><br>如果您非本系統(tǒng)人員，<br><br>您的賬號將被刪除！<br><br></font></p>"
end if
response.write "</table>"
%>
</center>
</center>
<%
end sub
'############################# 系統(tǒng)操作說明 ########################
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是文章數(shù)量請自定義數(shù)目！
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
%>
<%
'################ 規(guī)章制度 #############################
sub zd()
i=10 ''''5是文章數(shù)量請自定義數(shù)目！
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
%>
<%
'################ 規(guī)章制度 #############################
sub bbslogin()
response.write "要設(shè)置論壇登陸請修改fun.asp里面的bbslogin()函數(shù)"
end sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -