loglist.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 125 行

ASP
125 行
字号 
<!-- #include file="adoconn.asp" -->

<html>

<head>
<link rel="stylesheet" href="comCSS.css">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>浏览操作日志</title>

<base target="rbottom">
<meta name="Microsoft Border" content="t, default">
</head>

<body ><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="left">　</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
 
   
<% 
Dim sql 
Dim reccount 
Dim fieldi,recordi 
Dim ps,mypagesize,ys,mypage 
Dim maxcount 

Certificate()

If Request.form("B1")="全部浏览" Then
   SQL="select * from operatorLOG ORDER BY LoginTime DESC"
Else
   BeginDate=Request.form("D1") & "-" & Request.form("D2") & "-" & Request.form("D3")
   EndDate=Request.form("D4") & "-" & Request.form("D5") & "-" & Request.form("D6") & " 23:59:59"
   Sql="select * from operatorLOG Where (LoginTime>='" & BeginDate & "' AND Logintime <='" & EndDate & "') " 
   
   KeyCode=Request.form("T1")
   If KeyCode<>"" Then
      Sql=Sql & Request.form("R1") & "OperatorID='" & KeyCode & "'"
   End If 
   Sql=sql & " ORDER BY LoginTime DESC"
End if

Set rs=GetRecordset(sql)
 
IF not rs.eof then  
   Reccount=rs.RecordCount 
   Rs.PageSize=5 
   ps=Rs.PageSize 
   mypagesize=request.querystring("pagesize") 
   if mypagesize="" then 
      mypagesize=ps '//Set page size 
   end if 
    
   ys=rs.PageCount 
   
   if ys=0 then 
      mypage=reccount\ps 
   else 
      mypage=reccount\ps +1 
   end if 
   if mypage=0 then  '//To pointe first page 
     mypage=request.querystring("whichpage") 
  end if 
END IF 
%> 
 
<form method="post"> 
<center>
<table border=0 cellspacing="0"> 
<tr> 
<td><font face="华文行楷" size="4" color="#FF0000"><b>操作日志 </b></font> [  记录总数：<%=Reccount%>]</td>                                              
</tr>
</table>
</center>
<div align="left">    
  <center>          
  <table border="1" width="690" height="46">              
  <tr bgcolor=#ccccc7>            
    <td width="84" align="center" height="21">              
        <p align="center"><font color="#000080"><b>&nbsp;代码 </b></font>     
    </td>          
    <td width="82" align="center" height="21">        
        <p align="center"><font color="#000080"><b>操作员</b></font></p>        
    </td>          
    <td width="195" align="center" height="21"><font color="#000080"><b>进入该操作的时间</b></font></td>          
    <td width="240" align="center" height="21"><font color="#000080"><b>操作内容</b></font></td>          
   </tr>     
         
   <%for recordi=1 to Reccount            
         if rs.Eof then Exit for        
         if recordi mod 2=0 then     
            color="#ddddd7"     
         else     
            color="#eeeeef"     
         end if     
      response.write ("<tr bgcolor=" + color +">")  
   %>  
 
      <td width="84"><% =rs(1) %></td>          
      <td width="82"><% =rs(2) %></td>          
      <td width="195"><% =rs(3) %></td>    
      <td width="240"><% =rs(4) %></td>     
           
    <%response.write ("</tr>")%>          
    <% rs.movenext%>          
    <%next%>          
  </table>  
  </center>    
</div>          
<%      
  Set rs=nothing      
  Set Adoconn=nothing      
%>                 
          
<%scriptname=request.servervariables("script_name")%>          

</form>         

　<!--msnavigation--></td></tr><!--msnavigation--></table></body>       
</html>

loglist.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 loglist.asp 源码文件，采用 ASP 编程语言编写，共 125 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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