index.asp
来自「与asp相关的技术 如数据库和网页设计 很有用的哦」· ASP 代码 · 共 45 行
ASP
45 行
<%
If Session("user_type")<>"T" Then
Response.Redirect "../../../../index.asp"
End If
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
<TITLE>登录详情 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<h2 align="center">登录详情</h2>
<%
dim rs,sql
'查看详细情况
SQL="select user_id,log_date,user_ip from day_log"
sql=sql & " order by log_date desc"
SET RS=db.EXECUTE(SQL)
%>
<center>
<a href="delete.asp">清空日志</a>
<TABLE border="0" width="95%">
<Tr bgcolor=#B7B7B7 align="center">
<TD width=30%>用户名</TD>
<TD width=30%>时间</TD>
<TD width=40%>IP地址</TD>
</Tr>
<%
do while not rs.eof
response.write "<tr bgcolor=#00CCFF align='center'>"
response.write "<td>" & rs("user_id") & "</td>"
response.write "<td>"& rs("log_date") & "</td>"
response.write "<td>" & rs("user_ip") &"</td>"
response.write "</tr>"
rs.movenext
loop
%>
</table>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?