📄 useronline_list.asp

📁 ASP程序实现的科技期刊系统
💻 ASP
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/adoconn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
strsql="update xt_tc_user set 登录时间='' where datediff(minute,登录时间,getdate())>20"
conn.execute strsql,1
strSQLWhere=""
for i=0 to ubound(session("role"))-1
if session("role")(i)="系统管理员" then 
	strSQLWhere=""
	info="现系统中"
	exit for
else
if  session("role")(i)="主管部门" then
	strSQLWhere=" and left(用户编码,3)='"&left(session("usercode"),3)&"'"
	info="您的部门中"
	exit for
else
if  session("role")(i)="项目申报单位或个人" then
	strSQLWhere=" and 用户编码='"&session("usercode")&"'"
	info="您只能看到您自己的信息"
	exit for
else
	strSQLWhere=""
	info="现系统中"
	exit for
end if
end if
end if
next 
%>
<%
	strsql="select 用户编码,用户姓名,登录时间 from xt_tc_user where 登录时间<>'' "&strSQLWhere&" order by 登录时间"
	set rst=server.CreateObject ("adodb.recordset")
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open strsql,strconn
%>
<html>
<head>
<title>在线用户列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
tr{
	font-size:9pt;
    BORDER-BOTTOM: #000000 1px solid;
    BORDER-TOP: #000000 1px solid;
}
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><font color="#006699"><%=session("userName")%>您好!系统当前在线：<%=Application("AllUsers")%>人；游客：<%=Application("AllUsers")-rst.recordcount%>人；注册用户：<%=info%>共有<%=rst.recordcount%>人。</font></td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="1" bordercolor="#666666" align="center">
  <tr bordercolor="#0099FF" bgcolor="#EFEFEF"> 
    <td width="35" height="20"> 
        <div align="center">序号</div>
      </td>
      <td width="61" height="20">用户编码</td>
      <td width="124" height="20" bgcolor="#EFEFEF"> 用户名称</td>
      <td width="170" height="20">刷新时间</td>
    </tr>
    <%
if rst.recordcount<=0 then '如果没有记录
%>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="4">对不起，没有符合要求的记录！ </td>
    </tr>
    <%
	response.end
else'有记录
rst.pagesize=20 '每页最多显示20条纪录
page=cint(request("page"))'从URL获取当前要显示的页
'页面参数异常处理
if page="" then page=1
if page<1 then page=1
if page>= rst.pagecount then page=rst.pagecount

rst.absolutepage=page '当前页为page参数指定的页
rowcount=rst.pagesize'当页的记录数
ThisCordCount=rst.PageSize*(page-1)+1
do while not rst.eof and rowcount>0
%>
    <tr bgcolor="#FFFFFF" valign="top"> 
      <td width="35" height="18"> 
        <div align="center"><%=ThisCordCount%></div>
      </td>
      <td width="61" height="18"><%=rst("用户编码")%></td>
      <td width="124" height="18"><%=rst("用户姓名")%></td>
      <td width="170" height="18" ><%=rst("登录时间")%></td>
    </tr>
    <%
rst.movenext '纪录指针下移
rowcount=rowcount-1
ThisCordCount=ThisCordCount+1
loop
end if
%>
    <tr bgcolor="#EFEFEF"> 
      <td colspan="4" height="20" align=center> 
        <%if page>1 then 
	    response.write "<a href='/system/userOnline_List.asp?page=1' class=blank>首页</a> | " 
        response.write "<a href='/system/userOnline_List.asp?page="&(page-1)&"' class=blank>上一页</a> | " 
        else
        Response.Write "首页 | "
        Response.Write "上一页 | "
        end if 
		if page<>rst.pagecount then 
		response.write "<a href='/system/userOnline_List.asp?page="&(page+1)&"' class=blank>下一页</a> | " 
        response.write "<a href='/system/userOnline_List.asp?page="&rst.pagecount&"' class=blank>最后一页</a> | " 
        else
        Response.Write "下一页 | "
        Response.Write "末页"
        end if
		response.write "　　　　　　　　　　第"&page&"页/共"&rst.pagecount &"页/共"&rst.RecordCount&"条记录"%>
      </td>
    </tr>
</table>
<%
'关闭对象，释放内存
rst.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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