accdiary.asp

这个系统是企业管理系统

				<form name="form2" method="post" action=""><div align="center">
				  <%if not rs.eof then%>
				  <span class="style4"> 共有<%=rs.recordcount%>条记录,每页显示<%=rs.pagesize%>条 ，第<%=page%>/<%=rs.pagecount%>页&nbsp;
    <%if page>1 then%>
    <a href="accdiary.asp?Page=<% = 1%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">首页</a> <a href="accdiary.asp?Page=<% =page -1 %>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">上一页</a>
    <%end if %>
    <%if page<>rs.pagecount then %>
    <a href="accdiary.asp?Page=<% =page + 1%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">下一页</a> <a href="accdiary.asp?Page=<% = rs.PageCount%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">尾页</a></span>
  <% end if %>
    <select name="select" id="select2" onChange="javascript:window.location.href('accdiary.asp?page='+this.options[this.selectedIndex].value+'&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>')">
      <% for i=1 to rs.pagecount%>
      <option value="<%=i%>" <%if i=page then response.Write("selected") end if%> ><%=i%> </option>
      <% next%>
    </select>
    <span class="STYLE13">
    <select name="pagesize" id="pagesize" onChange="javascript:window.location.href('accdiary.asp?pagesize='+this.options[this.selectedIndex].value+'&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>')">
   	    <% for iii=10 to 50 step 5%>
      <option value="<%=iii%>" <%if iii=rs.pagesize then response.Write("selected") end if%> >每页显示<%=iii%>条记录</option>
      <% next%>
      <% for i=60 to 180 step 20%>
      <option value="<%=i%>" <%if i=rs.pagesize then response.Write("selected") end if%> >每页显示<%=i%>条记录</option>
      <% next%>
      <% for ii=200 to 1000 step 200%>
      <option value="<%=ii%>" <%if ii=rs.pagesize then response.Write("selected") end if%> >每页显示<%=ii%>条记录</option>
      <% next%>
      <option value="10000" <%if rs.pagesize=10000 then response.Write("selected") end if%> >每页显示10000条记录</option>
    </select>
    </span><br>
</div>
  <TABLE width=100% border=1 align="center" cellPadding=0 cellSpacing=0 
            borderColorLight=#6699ff borderColorDark=#ffffff bgcolor="#FFFFFF" style="border-collapse:collapse">
  <col width="166" />
  <tr height="21">
    <td width="11%" height="22"  bgcolor="#CCFF00"><div align="center">
      <input name="checkbox" type=checkbox id="checkbox" onClick="this.value=check(this.form.seljgid)" value="全选">
    </div></td>
    <td width="13%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE4">行号</td>
    <td width="17%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE2"><div align="center">管理员用户名<span class="style1"><a title="按管理员用户名升序排列" <%if by="adminloginasc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=adminloginasc&key=<%=key%>&ziduan=<%=ziduan%>" >↑</a><a title="按管理员用户名降序排列" <%if by="adminlogindesc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=adminlogindesc&key=<%=key%>&ziduan=<%=ziduan%>" >↓</a></span></div></td>
    <td width="15%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE2">管理员姓名<span class="style1"><a title="按管理员姓名升序排列" <%if by="adminnameasc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=adminnameasc&key=<%=key%>&ziduan=<%=ziduan%>" >↑</a><a title="按管理员姓名降序排列" <%if by="adminnamedesc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=adminnamedesc&key=<%=key%>&ziduan=<%=ziduan%>" >↓</a></span></td>
    <td width="10%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE2">单位<span class="style1"><a title="按单位升序排列" <%if by="danweiasc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=danweiasc&key=<%=key%>&ziduan=<%=ziduan%>" >↑</a><a title="按单位降序排列" <%if by="danweidesc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=danweidesc&key=<%=key%>&ziduan=<%=ziduan%>" >↓</a></span></td>
    <td width="18%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE2">登录时间<span class="style1"><a title="按登录时间升序排列" <%if by="logintimeasc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=logintimeasc&key=<%=key%>&ziduan=<%=ziduan%>" >↑</a><a title="按登录时间降序排列" <%if by="logintimedesc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=logintimedesc&key=<%=key%>&ziduan=<%=ziduan%>" >↓</a></span></td>
    <td width="16%" align="center" valign="middle"  bgcolor="#CCFF00" class="STYLE2">访问IP<span class="style1"><a title="按访问IP升序排列" <%if by="loginipdesc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=loginipdesc&key=<%=key%>&ziduan=<%=ziduan%>" >↑</a><a title="按访问IP降序排列" <%if by="loginipasc" then%> style="color:#FF00FF;"<%end if%> href="accdiary.asp?by=loginipasc&key=<%=key%>&ziduan=<%=ziduan%>" >↓</a></span></td>
  </tr>
   <%count=0
do while not rs.eof and count<rs.pagesize %>
   <%if count Mod 2=0 then%><TR bgcolor="#F5FAFE" onMouseOver="this.style.backgroundColor='#F1FFB9'" onMouseOut="this.style.backgroundColor='#F5FAFE'">
     <%else%><TR bgcolor="#E2EEFC" onMouseOver="this.style.backgroundColor='#F1FFB9'" onMouseOut="this.style.backgroundColor='#E2EEFC'">
<%end if%>  
     <td height="22"><div align="center">
      <input name="seljgid" type="checkbox" id="seljgid" value="<%=rs("id")%>">
    </div></td>
     <td height="22"><div align="center" class="STYLE17"><%=xuhao2+1%></div></td>
     <td height="22"><div align="center"><span class="STYLE17"><%=rs("adminlogin")%></span></div></td>
    <td height="22" align="center" class="STYLE17"><%=rs("adminname")%></td>
    <td height="22" align="center" class="STYLE17"><%=rs("danwei")%></td>
    <td height="22" align="center" class="STYLE17" ><%=rs("logintime")%></td>
    <td height="22" align="center"><span class="STYLE17" style="font-size: 12px"><%=rs("loginip")%></span></td>
   
  </tr>
  <%
  rs.movenext
  count=count+1
  xuhao2=xuhao2+1
  loop

  %>
  <%end if%>
</table>
<div align="center">
<p align="center">
    <%end if%>
    <span class="style4">共有<%=rs.recordcount%>条记录,每页显示<%=rs.pagesize%>条 ，第<%=page%>/<%=rs.pagecount%>页&nbsp;
      <%if page>1 then%>
      <a href="accdiary.asp?Page=<% = 1%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">首页</a><a href="accdiary.asp?Page=<% = 1%>"&key=<%=key%>&ziduan=<%=ziduan%>></a> <a href="accdiary.asp?Page=<% =page -1 %>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">上一页</a><a href="accdiary.asp?Page=<% =page -1 %>&key=<%=key%>&ziduan=<%=ziduan%>"></a>
      <%end if %>
      <%if page<>rs.pagecount then %>
      <a href="accdiary.asp?Page=<% =page + 1%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">下一页</a><a href="accdiary.asp?Page=<% =page + 1%>&key=<%=key%>&ziduan=<%=ziduan%>"></a> <a href="accdiary.asp?Page=<% = rs.PageCount%>&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>">尾页</a><a href="accdiary.asp?Page=<% = rs.PageCount%>&key=<%=key%>&ziduan=<%=ziduan%>"></a></span>
      <% end if %>
    <select name="select2" id="select" onChange="javascript:window.location.href('accdiary.asp?page='+this.options[this.selectedIndex].value+'&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>')">
      <% for i=1 to rs.pagecount%>
      <option value="<%=i%>" <%if i=page then response.Write("selected") end if%> ><%=i%> </option>
      <% next%>
    </select>
    <span class="STYLE13">
    <select name="pagesize" id="pagesize" onChange="javascript:window.location.href('accdiary.asp?pagesize='+this.options[this.selectedIndex].value+'&key=<%=key%>&ziduan=<%=ziduan%>&by=<%=by%>')">
         <% for iii=10 to 50 step 5%>
      <option value="<%=iii%>" <%if iii=rs.pagesize then response.Write("selected") end if%> >每页显示<%=iii%>条记录</option>
      <% next%>
      <% for i=60 to 180 step 20%>
      <option value="<%=i%>" <%if i=rs.pagesize then response.Write("selected") end if%> >每页显示<%=i%>条记录</option>
      <% next%>
      <% for ii=200 to 1000 step 200%>
      <option value="<%=ii%>" <%if ii=rs.pagesize then response.Write("selected") end if%> >每页显示<%=ii%>条记录</option>
      <% next%>
      <option value="10000" <%if rs.pagesize=10000 then response.Write("selected") end if%> >每页显示10000条记录</option>
    </select>
    </span>    <a href="accdiary.asp" target="_self"></a></p>
  <p align="center"><span class="STYLE13">
 全选/不选</span>
    <input name="checkbox2" type=checkbox onClick="this.value=check(this.form.seljgid)" value="全选">
    　
     
     
    <input type="button" name="Submit3" value="清除所选的管理员访问记录" onClick="subdeleteforever()" style="width:165;background-color: #FFCC66; color: #000000; border: 1 solid #00CC00">
	　　　
	<select name="monthadmin" size="1" class="put" id="select14">
      <%for i=1 to DateDiff("m",Dateadd("yyyy",-5,date),date) step 1 %>
      <option value="<%=i%>">清除<%=Dateadd("m",-i,date) %>以前的管理员访问记录</option>
      <%next%>
    </select>
    <input type="button" name="Submit3" value="确认清除" onClick="subyiqian()" style="width:60;background-color: #FFCC66; color: #000000; border: 1 solid #00CC00">
    <input name="del" type="hidden" id="del">
  </p>
  </form>
  
         <p style="color: #999999">      </p></td>
      </tr>
    </table></td>
  </tr>
</table>

</body>
</html>
 <script language="javascript">

//
function subdeleteforever()
{
    if (window.confirm('真的要删除所选管理员访问记录吗？该操作不可恢复！继续吗？'))
     {
	  form2.action="accdiarydel.asp";
	  form2.del.value="delsel_admin";
       form2.submit();//提交该表单; 
     }
    
}
function subyiqian()
{
if (window.confirm('真的要清除所选范围的管理员访问日记吗？该操作不可恢复！继续吗？'))
     {
	form2.action="accdiarydel.asp"; 
form2.del.value="delsel_admin_yiqian";
form2.submit();
     }
    else
     {
       return;//取消提交表单操作
     }

}
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- 
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "false"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "true"; }
}
 -->
</script>