?? user_ln.asp
字號(hào):
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim rs,news,sqltext
Dim ad,lt,ot,ip
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext="Select admin,loginTime,outTime,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="98%" border="0" cellpadding="0" 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)
ip = rs(3)
news = "<tr><td><table align=center width='90%'><tr valign='middle' height='22'>"
news = news & "<td height='25' bgcolor='#FFFFFF'>"
news = news & "<font color='#ff0000'>"& ad &"</font> 在 "& lt &" 登陸, 在"& ot &" 離開(kāi), IP為 "& ip &"</td>"
news = news & "</tr></table></td></tr>"
Response.Write news
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
Response.Write "</table>"
showpage()
Response.Write "</html>"
rs.Close
Conn.Close
Set rs = Nothing
Set Conn=Nothing
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -