📄 user_ln.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim rs,news,sqltext
Dim ad,lt,ot,le,ip
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext="Select manage,loginTime,outTime,manage_level,ip From [LogNews] Order By ID Desc"
rs.Open sqltext,Conn,1,3
MaxPerPage=20
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to Len(Request.QueryString("page"))
checkpage = Instr(1,text,mid(Request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(Request.QueryString("page")) Then
CurrentPage=Cint(Request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<table width="95%" border="0" cellpadding="6" cellspacing="0" align="center" class=TableBorder>
<tr height="22" valign="middle" align="center">
<th>登陆信息</th>
</tr>
<%
i=0
Do While Not rs.Eof
ad = rs(0)
lt = rs(1)
ot = rs(2)
le = Manage_Level(rs(3))
ip = rs(4)
news = "<tr valign='middle' align='left' height='22'>"
news = news & "<td height='25' bgcolor='#FFFFFF'>" & le & " "
news = news & "<font color='#ff0000'>"& ad &"</font> 在 "& lt &" 登陆， 在"& ot &" 离开， IP为 "& ip &"</td>"
news = news & "</tr>"
Response.Write news
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
%>
</table>
<%
showpage()
%>
</html>
<%
rs.Close
Conn.Close
Set rs = Nothing
Set Conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -