onlineuser.asp

来自「很好的OA办公系统」· ASP 代码 · 共 52 行

ASP

52 行

<%response.expires=0%>
<%
oabusyusername=request.cookies("oabusyusername")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="no-cache">
<title>NetMeeting---网络会议</title>
<link rel="stylesheet" type="text/css" href="css/css.css">
<script language="javascript">
function calluser(ip,username)
{
	parent.NetMeeting1.CallTo(ip);
	parent("temp").location.href="netmeetinginfo.asp?username="+username+"&ip="+ip;
}
</script>
</head>
<body topmargin="2" leftmargin="1">
<div align="center">
  <center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<%
dim onlineuser
application.lock
onlineuser=application("onlineuser")
number=ubound(onlineuser)
for i=0 to number
	if onlineuser(i)<>"" then
		dimstr=split(onlineuser(i),"$")
		if dimstr(0)<>oabusyusername then
%>
  <tr>
    <td width="50%" height="25">
    <input type="button" style="height:20px" name="call" value="呼叫" onclick="calluser('<%=dimstr(3)%>','<%=dimstr(0)%>');"><%=dimstr(1)%>
    </td>
    <td width="50%" height="25"><%=dimstr(2)%></td>
  </tr>
<%
		end if
	end if
next
application.unlock
%>
</table>
<p align="center"><input type="button" name="reload" value="刷新" onclick="location.reload();"></p>
  </center>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

onlineuser.asp

onlineuser.asp - 源码说明

⌨️ 快捷键说明