加入收藏    手機頻道
當前位置:首頁  >>  網站建設
打卡系統網站建設方案 文章出處:淮南智誠網絡公司    網站責任編輯:     作者:     人氣:1874    發表時間:2013-9-24

今天小編跟大家分享一個打卡系統的網站建設系統
代碼如下

 

<!-- #include file="chk.asp" -->
<%menutitle="未打卡"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>信息管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/User_Style.css" rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY leftMargin=2 topMargin=0 rightmargin="5" bottommargin="2" marginheight="0" marginwidth="0" scroll=no>
<TABLE width="100%" height="100%" border=0 align=center cellPadding=2 cellSpacing=1 class=border>
  <TR align=middle>
    <TD height=25 colspan="5" class=topbg><STRONG><%=menutitle%>操作導航</STRONG></TD>
  <TR align="center">
    <TD width="120" height=23 class=title> <b>未打卡列表</b></TD>
    <TD width="120" class=tdbg><A href="daka_add.asp">申請<%=menutitle%></A></TD>
    <TD width="120" class=tdbg></TD>
    <TD class=tdbg></TD>
  </TR>
  <TR class=title>
    <TD align=middle colSpan=5 height=1></TD>
  </TR>
  <%
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from qdk where qjdak='1' order by id desc"
 rs.open sql,conn,1,1
 rcount=rs.recordcount
 mcount=20
 rs.pagesize=mcount
 mpage=rs.pagecount
 pageno=request("pageno")&""
 if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
   pageno=1
 end if
 rs.absolutepage=pageno
 loopno=mcount
  %>
  <TR valign="top" class=tdbg>
    <TD colspan="5"><div id="Layer1" style="position:absolute; width:100%; height:100%; z-index:1; overflow: auto;">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-top: 1 solid #449ae8;border-right: 1 solid #449ae8;border-left: 1 solid #449ae8;">
  <%style="border-bottom: 1 solid #449ae8"
  do while not rs.eof and loopno<>0
  if clng(pageno)<clng(mpage) then
   if loopno=1 then
    style=""
   end if
  else
   if pageno*mcount-loopno+1=rcount then
    style=""
   end if
  end if
 ' end if
   
  
  %>
    <tr>
   <td width="10" height="24" style="<%=style%>">&nbsp;</td>
   <td style="<%=style%>"><%=rs("ren")%>&nbsp;</td>
    </tr><%rs.movenext
    loopno=loopno-1
  loop%>
        </table>
  <%url="base.asp?classid="&classid
TurnOver rcount,pageno,mpage,url%>
    
      </div></TD>
 
</TABLE>
</BODY>
</HTML>
<%sub TurnOver(rcount,pageno,mpage,url)
 if instr(1,url,"?",1)<1 then
   chk="?"
 else
   chk="&"
 end if
  url=url&chk&"pageno="
%>
<TABLE height="22" border=0 cellPadding=2 cellSpacing=1 class="border" style="width:100%;">
  <TR>
    <TD height=22 class=title nowrap>&nbsp;<%=rcount%>&nbsp;</TD>
    <TD height=22 class=title nowrap>&nbsp;<%=pageno%>/<%=mpage%>&nbsp;</TD>
 <TD class=tdbg>&nbsp;<A href="<%=url&"1"%>"><font face="Webdings">9</font></A>&nbsp;</TD>
 <TD class=tdbg>&nbsp;<A href="<%=url&cstr(pageno-1)%>"><font face="Webdings">7</font></A>&nbsp;</TD>
<%
if mpage<=10 then
 ps=left("1,2,3,4,5,6,7,8,9,10",2*mpage)
else
 if (pageno-5>=0) and (pageno+5<=mpage) then
  ps=cstr(pageno-4)&","&cstr(pageno-3)&","&cstr(pageno-2)&","&cstr(pageno-1)&","&cstr(pageno)&","&cstr(pageno+1)&","&cstr(pageno+2)&","&cstr(pageno+3)&","&cstr(pageno+4)&","&cstr(pageno+5)
 elseif (pageno-5<0) then
  ps="1,2,3,4,5,6,7,8,9,10"
 else
  ps=cstr(mpage-9)&","&cstr(mpage-8)&","&cstr(mpage-7)&","&cstr(mpage-6)&","&cstr(mpage-5)&","&cstr(mpage-4)&","&cstr(mpage-3)&","&cstr(mpage-2)&","&cstr(mpage-1)&","&cstr(mpage)
 end if
end if
if right(ps,1)="," then
 ps=left(ps,len(ps)-1)
end if
ArrPs=split(ps,",")
for i=0 to ubound(ArrPs)
if ArrPs(i)=cstr(pageno) then
%> <TD bgColor=#ffffff>&nbsp;<U><B><font color="#FF0000"><%=ArrPs(i)%></font></B></U>&nbsp;</TD><%else
%> <TD class=tdbg>&nbsp;<A href="<%=url&ArrPs(i)%>"><%=ArrPs(i)%></A>&nbsp;</TD><%
end if
next%><TD class=tdbg>&nbsp;<A href="<%=url&cstr(pageno+1)%>"><font face="Webdings">8</font></A>&nbsp;</TD>
 <TD class=tdbg>&nbsp;<A href="<%=url&cstr(mpage)%>"><font face="Webdings">:</font></A>&nbsp;</TD>
 <TD width="100%">&nbsp;</TD>
  </TR>
</TABLE>
<%end sub%>

 

 

這些就是打卡系統網站建設系統的代碼

想和他們一樣成功嗎?
此文關鍵詞:
域名查詢

    國家域名處理投訴中心
    010-58813000
    Email:[email protected]
Copyright © 2007 - 2018 版權所有 淮南智誠互動網絡科技有限公司
皖ICP備09027578號 聯系我們
四川金7乐开奖基本走势图 首单减20商家怎么赚钱 微商代理哪种产品最赚钱 倩女幽魂好玩吗 能不能赚钱 球球大作战主播如何赚钱 迅雷赚钱宝小米路由器dmz 人生价值在赚钱辨析 魔兽70级打什么怪赚钱 安溪拉什么水果赚钱 新加坡有什么赚钱的路子吗 100级剑网三生活技能赚钱吗 商场什么小吃最赚钱 哪个打字app赚钱最多 战狼2马云赚钱 搞宅易贷赚钱吗 百度写小说赚钱吗 懂电脑怎么在网上赚钱