📄 useronline.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="std.asp" -->
<%
OnlyLogin
Alive "环顾四方"
%>
<html>
<head>
<script language=javascript>
<!--
function view(user,myself)
{url="sendmess.asp?user="+user+"&myself="+myself;
privatemsg = window.open(url,"AE","WIDTH=400,HEIGHT=120,left=100,top=250,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,menu=no,min=no,max=no");
}
-->
</script>
<meta http-equiv="pragma" content="no-cache" >
<link rel="stylesheet" type="text/css" href="main.css">
</head>
<body class=clblue>
<% dim strSQL,iUser,i,byOrder,deleteid,misspassid
%>
<%
dim username
username=session("userid")
%>
<center>
<%=username%>你好!您可以直接点传呼给用户发送短消息!
<table width=70% class=main cellspacing=2 align=center >
<tr class=usertitle>
<td width='10%' ><center>传呼</center></td>
<td width='20%' ><center>用户ID</center></td>
<td width='30%' ><center>呢称</center></td>
<td width='10%' ><center>上站</center></td>
<td width='10%' ><center>发呆</center></td>
<td width='20%' ><center>状况</center></td>
</tr>
<% dim UserList,uT,sT
UserList = Application("UserList")
for i =1 to 100
if UserList(i,0)<>"" then
uT=clng((Timer()-UserList(i,1))/60)
if uT<0 then
uT=clng((Timer()/60+1440-UserList(i,1)/60))
end if
sT=clng((Timer()-UserList(i,2))/60)
if sT<0 then
sT=clng((Timer()/60+1440-UserList(i,2)/60))
end if
%>
<tr class=userline1>
<td align="center">
<%if UserList(i,0)<>"guest" then%>
<a href="javascript:view('<%=UserList(i,0)%>','<%=session("userid")%>')">呼叫</a>
<%else%>禁用
<%end if%>
</td>
<td> <a class=UserOnlineA href=queryUser.asp?userid=<%=UserList(i,0)%>><%=UserList(i,0)%></a></td>
<td><%=UserList(i,3)%></td>
<td align=center><%=uT%> </td>
<td align=center><%if sT >0 then %><%=sT%><%end if%> </td>
<td align=center><%=UserList(i,4)%> </td>
</tr>
<% end if
next
%>
</table>
<p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -