logdetail.asp

来自「一个VB的p2p聊天系统」· ASP 代码 · 共 33 行

ASP
33
字号
<!--#include file="headfiles/Connection.inc"-->
<%
dim rsLog
set rsLog=server.CreateObject("adodb.recordset")
strSql="select * from LogTable"
rsLog.open strSql,conn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
</head>

<body background="images/bg.gif" bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0">
  	<table width="580" cellpadding="2" cellspacing="0" border="1" class="title1">
	  <tr class="title2" align="center"><td height="25" width="50">序号</td><td width="90">用户</td><td width="100">IP地址</td><td width="110">登录日期</td><td width="110">登录时间</td><td width="110">退出时间</td></tr>
<%
	dim i
	i=1
	do while not rsLog.eof
%>
	  <tr onMouseOut="this.className='';" onMouseOver="this.className='hand2';" <% if (i mod 2)=0 then %> bgcolor="#eeeeff"<% end if %>><td align="center"><%=rsLog.fields(0)%></td><td><%=rsLog.fields(1)%></td><td><%=rsLog.fields(2)%></td><td><%=rsLog.fields(3)%></td><td><%=rsLog.fields(4)%></td><td><%=rsLog.fields(5)%></td></tr>
<%
		i=i+1
		rsLog.movenext
	loop
%>
	</table>

</body>
</html>

⌨️ 快捷键说明

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