📄 onlinemng.asp
字号:
<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
wxl=request("wxl")
if wxl="" then
set sql=server.createobject("ADODB.recordset")
Query="select * from Web_SysOnline order by str_sOleDeptID"
sql.open Query ,conn,1,1
ShowBody(sql)
end if
sub ShowBody(sql)
response.write "<html><head><meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><meta http-equiv=refresh content='10;url=onlinemng.asp'></head>"
HtmlHead("目前在线同事人员名单")
%>
<table width="550" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#666666">
<tr bgcolor=#DDDDDD align=center>
<td class="pt2">姓名</td>
<td class="pt2">登录时间</td>
<td class="pt2">登录IP</td>
<td class="pt2">最后一次活动时间</td>
</tr>
<%while not sql.eof %>
<tr bgcolor=#FFFFFF>
<td class="pt2"><a href='callmng.asp?ToMen=<%=sql("int_sOleUserID")%>'><%=GetName("select str_sOperName from web_SysOperators where int_sOperID="&sql("int_sOleUserID"))%></a></td>
<td class="pt2"><%=sql("dtm_sOleLogintTime")%></td>
<td class="pt2"><%=sql("str_sOleLoginIP")%></td>
<td class="pt2"><%=sql("dtm_sOleLastTime")%></td>
</tr>
<% sql.movenext
wend%>
<tr bgcolor=#dddddd align=cener>
<td colspan=4 >访问网站在线人员</td>
</tr>
<%
'更新在线信息
Application.lock
tmpUser=split(Application("UserName"),"||")
on error resume next
for i=0 to Ubound(tmpUser)-1
aa=split(tmpUser(i),",")
%>
<tr bgcolor=#FFFFFF>
<td class="pt2">
<%if len(aa(0))<5 then%>
<a href='membercallmesg.asp?ToMen=<%=aa(0)%>'><%=aa(2)%></a>
<%else
response.write aa(2)
end if%>
</td>
<td class="pt2"><%=aa(3)%></td>
<td class="pt2"><%=aa(1)%></td>
<td class="pt2"> </td>
</tr>
<%
next
session("UserID")=session("My_ID")
Application.Unlock
%>
</table>
<%
HtmlEnd
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -