📄 latterrc.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<title>教师考勤管理系统后台  by 野马</title>
<!--#include file="check.asp"-->
<!--#include file="MD5.asp"-->
 <!--#include file="conn.asp"-->
 <!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
 
if session("qx")>4  then
response.write "<script >alert('您不能进入此页面');history.back();</script>"
else

%><center>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/tlatter.GIF><br><b>
[当前操作对象：<%=request("rname")%>]
</td></tr></table>
<% 
aid=request("aid")
sql="select * from ct_sql where id="&aid
rs2.open sql,cn,1,1
mlr=rs2("monthlatterqdrc")

rs2.close
set rs2=nothing
set cn=nothing

  %>
        <table border=1 bordercolor=#0055aa  >
          <tr>
            <td   align=center class=tdwhtimg width=300><b>登陆系统时间</b></td>
             <td   align=center class=tdwhtimg 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 class=td1>"&mltarg(k)&"</TD><td align=center class=td2><font color=red>"&mltarg(k+1)&"  </font>分钟</TD>"
  Next
Next
 response.write "</tr>"
response.write "</table>"





end if


dim Maxpagelen,page,content,PageNumber,id
dim contentlen
dim BeginPoint,EndPoint

Maxpagelen=600
id=aid
contentlen=5400
page=request.QueryString("page")

if contentlen<=Maxpagelen then 
response.Write content
else 
if page="" then
page=1
else
page=Cint(page)
end if 

if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page 
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if

content1=Mid(content,BeginPoint,EndPoint-BeginPoint) 
response.Write content1
response.Write"<br>"
response.Write"<br>"
response.Write"<br>"

end if
for i=1 to PageNumber
response.Write "<a href=latterrc.asp?rname="&request("rname")&"&aid=" & aid &"&page=" & i & "> "& i &"</a>"
Next
 
%>

</td>
<br>
<br>
<br>
<br>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -