www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/online.asp
<!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<!--#include file="zx.asp"-->
<%
sub online
sqlxs="select * from lsb"
set rsxs=conn.execute(sqlxs)
do while not rsxs.eof
response.write"<tr class=a4 align=middle>"
response.write"<td height=24>" & rsxs("dlip") &"</td>"
response.write"<td height=24>" & rsxs("dldate") &"</td>"
response.write"<td height=24>" & rsxs("cnuser") &"</td>"
response.write"</tr>"
rsxs.movenext
loop
rsxs.close
set rsxs=nothing
end sub
%>
<head>
<title><%=request.cookies("mc")%> - 在线情况</title>
<meta name="keywords" content="<%=request.cookies("gjz")%>">
</head>
<body topmargin=0>
<!--#include file="gyym.asp"-->
<table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0">
<tr class="a3">
<td height="25"> <img src="imgs/Forum_nav.gif" width="9" height="9"> <a href="index.asp?ltbh=<%=ltbh%>"><%=request.cookies("mc")%></a> >> 在线情况
</td>
</tr>
</table>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0">
<tr class="a3">
<td align="middle" width="96%" height="10">
<p align="left">总在线 <%=zxrss%> 人。其中注册用户 <%=zcrs%>
人，访客 <%=fks%> 人。</td>
</tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table class="a2" cellSpacing="1" cellPadding="1" width="97%" align="center" border="0">
<tr class="a1" align="middle">
<td height="23">IP地址</td>
<td height="23">登录时间</td>
<td height="23">用户名</td>
</tr>
<%online%>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<%
call bq
dbjl.close
set dbjl=nothing
%><%dbclose%>