⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adminlog.asp

📁 一个不错的论坛原代码
💻 ASP
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->

<body  <%=background%> >

      

<table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
   

  <TR> 
          <td align="center" <%=hColor%> class=tdc1 height=22>管理日志</td> </TR>
</TABLE>





 <% 
 page=request.querystring("page")
  if page="" then
  page=1
  end if 
  pages = "20"
set rs = server.createobject("adodb.recordset") 
sql = "select * from log order by log_time desc" 
rs.open sql,conn,1,1
if not(rs.BOF or rs.EOF) then
rs.pagesize = pages 
maxpagecount=rs.pagecount
r=cint(rs.RecordCount)'记录总数
rs.absolutepage = page '当前页数
rcount=0

 %>
  


<table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
   

        
           <tr  align="center"> 
            <td width="15%" <%=tColor%> class=tdc1>用户名</td>
            <td width="10%" <%=tColor%> class=tdc1>登陆ip</td>
            <td width="15%" <%=tColor%> class=tdc1>登陆时间</td>
            <td width="20%" <%=tColor%> class=tdc1>登陆系统</td>
            <td width="20%" <%=tColor%> class=tdc1>登陆操作</td>
          </tr>
 
<% do while not rs.eof and rcount <rs.pagesize%> 

       <tr  align="center"> 
            <td width="15%" bgcolor=<%=tColor2%> class=tdc><%=rs("log_username")%> </td>
            <td width="10%" bgcolor=<%=tColor2%> class=tdc><%=rs("log_ip")%> </td>
            <td width="15%" bgcolor=<%=tColor2%> class=tdc><%=rs("log_time")%> </td>
            <td width="20%" bgcolor=<%=tColor2%> class=tdc><%=rs("log_window")%> </td>
            <td width="20%" bgcolor=<%=tColor2%> class=tdc><%=rs("log_content")%> </td>
          </tr>

  <% 

rs.MoveNext 
rcount=rcount+1
loop 


%> 
<tr  align="left"> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc >
             <%
            if maxpagecount="" then maxpagecount=1
            if r="" then r=0
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 管理数:"&r&" ")%>  </td></tr><%end if%>

⌨️ 快捷键说明

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