📄 qd.asp
字号:
<link href=css.css rel=stylesheet>
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="webinfo.asp"-->
<!--#include file="payinfo.asp"-->
<!--#include file="fun.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''获取系统资料''
sql="select username from ct_sql"
rs.open sql,cn,1,1
menbershenhenum=rs.recordcount
rs.close
sql="select username from ct_sql where noshenhe=0"
rs.open sql,cn,1,1
menbernoshenhenum=rs.recordcount
rs.close
sql="select username from ct_sql where mustqdok=1"
rs.open sql,cn,1,1
todaylogin=rs.recordcount
rs.close
sql="select username from ct_sql where todayqd=1"
rs.open sql,cn,1,1
nologinout=rs.recordcount
rs.close
sql="select username from ct_sql where todaylatter=1"
rs.open sql,cn,1,1
latter=rs.recordcount
rs.close
sql="select username from ct_sql where sucnownum=1"
rs.open sql,cn,1,1
noshenhesuc=rs.recordcount
rs.close
sql="select id from artic "
rs.open sql,cn,1,1
wznum=rs.recordcount
rs.close
sql="select id from annouce "
rs.open sql,cn,1,1
ggnum=rs.recordcount
rs.close
if isiplocked=1 then
lockedcn="<font color=white>系统已经设定IP锁定，您的帐号将与IP绑定，不能代签！</font>"
end if
%>
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body onkeydown="if(event.keyCode==122){event.keyCode=0;return false}" bgcolor="#CACACA" background="images/index_bj.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align=CENTER valign=top>
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<table width="750" border="0" cellpadding="0" cellspacing="0" align="center">
<!--#include file="top.asp"-->
<tr>
<td width="184" height="667" align="center" valign="top" bgcolor="#4D87D6"><table width="86%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" background="images/time.GIF" bgcolor="#FFFFFF"> <strong> <font color="#FFaa00">当前时间</font></strong></td>
</tr>
<tr>
<td height="68" align="center" valign="middle" class=sec_menu><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="140" height="115">
<param name="movie" value="images/Clock.swf">
<param name="quality" value="high">
<embed src="images/Clock.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="140" height="115"></embed></object></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="30" background="images/login.GIF"> <strong> <font color="#FFaa00">登陆接口</font></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class=sec_menu>
<%if (session("name")="" ) then%>
<!--#include file=login.asp-->
<%else%>
<!--#include file=loginin.asp-->
<%end if%> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="30" background="images/tj.GIF"> <strong> <font color="#FFaa00">统计数据</font></strong></td>
</tr>
<tr>
<td class=sec_menu> <img src=./images/favorites.gif> 系统文章数量<font color=green><%=wznum%></font>篇<br>
<img src=./images/favorites.gif> 系统公告数量<font color=green><%=ggnum%></font>篇<br>
<img src=./images/favorites.gif> 已审核成员<font color=green><%=menbershenhenum%></font>个<br>
<img src=./images/favorites.gif> 未审核成员<font color=green><%=menbernoshenhenum%></font>个<br>
<img src=./images/favorites.gif> 今天已签到人员<font color=green><%=todaylogin%></font>个<br>
<img src=./images/favorites.gif> 当前未注销人员<font color=green><%=nologinout%></font>个<br>
<img src=./images/favorites.gif> 今天迟到人员<font color=green><%=latter%></font>个<br>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="566" bgcolor="#4D87D6" align="center" valign="top">
<table width="100%" height="679" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<%
aid=session("id")
sql="select * from ct_sql where id="&aid
rs.open sql,cn,1,1
todaylatterrc=rs("todaylatterrc")
llt=rs("lattertime")
todayqd=rs("todayqd")
shenhe=rs("noshenhe")
todayqdontime=rs("todayqdontime")
todayqdtimes=rs("todayqdtimes")
nextqdtime=todayqdtimes+1
restqdtimes=dayqdtimes-todayqdtimes
nowtime=now()
todayqdlasttime=rs("todaylastontime") ''今天最后一次签到时间
todayworktime=int(datediff("s",todayqdontime,nowtime)/60) ''最近一次结算的工作时间
patrtime=int(datediff("s",todaylastontime,nowtime)/60) ''计算昨天最后一次签到与现在时间的差距,单位是分钟
autoqd=rs("auto") ''获得系统设定的签到方式，0为自由签到 ，其他为按时签到
thismustqdtime=rs("thismustqdtime") ''获得设定的下一次注销时间 格式是date
nextmustzxtime=rs("nextmustzxtime") ''获得设定的下一次注销时间 格式是date
thisqdtime=rs("thisqdtime") ''本次签到工作时间
nowtime1=time()
todayqdsuc=rs("todayqdsuc")
mustqdok=rs("mustqdok") ''获得mustqdok变量，用于判断今天是否签到
if autoqd=0 then
autocn="自由签到"
elseif autoqd>0 then
sql="select setname from qdsetall where id="&autoqd
rsa.open sql,cn,1,1
autocn=rsa("setname")
rsa.close
end if
rs.close
'response.write "<script>alert('llt:"&llt&"');</script>"
'response.write "<script>alert('autoqd:"&autoqd&"');</script>"
'response.write "<script>alert('mustqdok:"&mustqdok&"');</script>"
'response.write "<script>alert('todayqd:"&todayqd&"');</script>"
'response.write "<script>alert('todaymustqd:"&dayqdtimes&"');</script>"
'response.write "<script>alert('shenhe:"&shenhe&"');</script>"
'response.write "<script>alert('hhctime:"&hhctime&"');</script>"
if shenhe=1 then ''如果是通过了审核的人员
%>
<br><center><table width=90% /><tr><td class=sec_menu align=center><font color=blue>现在时间是<%=now%> | 您的登陆IP是<%=Request.ServerVariables("REMOTE_ADDR")%></font></td></tr>
<% if autoqd>0 then ''^^^^^^^^^^^^^^^^^^^^^^如果不是自由签到^^^^^^^^^^^^^^^^^^^^^^^^%>
<tr>
<td class=td1 align=center><font color=#F5F5F5>系统设定您的签到组为 [<a style='cursor:hand' onclick=window.open('qdinfo.asp','','width=450,height=350,top=200,left=300,menubar=no,resizable=no,status=no,scrollbars=yes,location=no'); target=_blank><%=autocn%></a>] | 签到缓冲为 <B><%=hhctime%></b> 分钟
</td>
</tr>
<tr>
<td class=td2 align=center><font color=#F5F5DC>您已经进行过 <b><%=dayqdtimes-restqdtimes%></b> 次签到操作 | 还剩余 <B><%=restqdtimes%></b> 次签到操作未完成。</td></tr>
<tr><td class=td1>下一个签到时间为
<%
sqlqd="select dayqdtime,dayzxtime from qdsettime where upsetid="&upsetid&" and qdnum="&nextqdtime
rsb.open sqlqd,cn,1,1
dayqdtime=rsb("dayqdtime")
dayzxtime=rsb("dayzxtime")
rsb.close
if ((dayqdtime=empty) and (dayzxtime=empty)) then
response.write "<font color=yellow><b>没有了</b>［当前是今日最后一次签到］</font></td></tr>"
response.write "<tr><td class=td2>下一个注销时间为 <font color=yellow><b>没有了</b>［当前是今日最后一次签到］</td></tr>"
else
response.write "<font color=yellow>"&Format_Time(dayqdtime,3)&"</font></td></tr>"
response.write "<tr><td class=td2>下一个注销时间为 <font color=yellow>"&Format_Time(dayzxtime,3)&"</td></tr>"
musttimepartnow=int(datediff("s",dayqdtime,nowtime1)/60)
recthisqdtime=int(datediff("s",dayqdtime,dayzxtime)/60)
if todayqd=0 then '''如果上一次签到已经完成
sql="select thismustqdtime,nextmustzxtime,thisqdtime from ct_sql where id="&aid
rs1.open sql,cn,1,3
rs1("thismustqdtime")=dayqdtime
rs1("nextmustzxtime")=dayzxtime
rs1("thisqdtime")=recthisqdtime
rs1.update
rs1.close
end if
end if
end if ''^^^^^^^^^^^^^^^^^^^^^结束判断^^^^^^^^^^^^^^^^^^^^^^^%>
<tr><td align=center class=td1 height=80>
<%
if todayqd=0 then '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^如果签到记录为空^^^^^^^^^^^^
if autoqd<>0 then '^^^^^^^^^^^^如果有签到组^^^^^^^^^^^^^^^
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -