📄 loglist.asp

📁 单版面小型论坛单版面小型论坛

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
logchk session("userid"),session("password")

if session("userid")<>"" and session("password")<>"" and session("manbid")<>"" then
    set loglistreco=server.createobject("adodb.recordset")
    if session("manbid")=0 then
    	sqlstr="select * from loginfo order by id desc"
    else
    	sqlstr="select * from loginfo where userid='" &session("userid")& "' order by id desc"
    end if
    loglistreco.open sqlstr,conn,1,1
    
    if loglistreco.eof then
    	errmsg="数 据 已 经 到 末 尾 ！"
    	errshow(errmsg)
    else
%>
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body bgcolor="#FFFFFF" background="images/bg.gif">
<table width="100%" border="0" cellspacing="2" cellpadding="2" class=buinput>
<tr>
  <td align="center">登 录 情 况 一 览 表</td>
</tr>
<tr>
  <td width="30%" align="center">用户ID</td>
  <td width="35%" align="center">登录时间</td>
  <td width="35%" align="center">退出时间</td>
</tr>
<%do while not loglistreco.eof%>
<tr>
  <td width="30%" align="center"><%=loglistreco("userid")%></td>
  <td width="35%" align="center"><%=loglistreco("intime")%></td>
  <td width="35%" align="center"><%=loglistreco("outtime")%></td>
</tr>
<%
	loglistreco.movenext
	loop
%>
</table>
</body>
</html>
<%
	end if
else
	errmsg="您 无 权 查 看 版 主 登 录 情 况 。"
	errshow(errmsg)
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -