📄 logdetail.asp

📁 一个VB的p2p聊天系统

💻 ASP

字号:

<!--#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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -