📄 zaixian.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>当前在线人员</title>
<link rel="stylesheet" type="text/css" href="style.css">
<!--#include file="coen.asp"-->
</head>
<body>
<a href=suoyou.asp>所有IP记录</a>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
    <td align="center" valign="top">
      <font color="#FF0000"><strong>当 前 在 线</strong></font></td></tr>
<tr> 
    <td align="center" valign="top"><br></td></tr>
<tr> 
    <td align="center" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td align="center" width="50%" height="22" bgcolor="#999999">手机/IP号</td><td align="center" width="30%" bgcolor="#999999">记录时间</td><td align="center" width="20%" height="22" bgcolor="#999999">其它</td></tr>
<% 
        set rs = server.createobject("adodb.recordset")
	sql="select * from online order by ID desc" 
	rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有任何数据!<br/>"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =20
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
dim i 
	i=1
	do while not rs.eof and i<=mypagesize 
%>
<tr><td align="center" width="50%" height="22" bgcolor="#ffffff"><%=rs("Num")%></td><td align="center" width="30%" bgcolor="#ffffff"><%=rs("time")%></td><td align="center" width="20%" height="22" bgcolor="#ffffff"><%=rs("dz")%></td></tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
  <tr> 
    <td align="center"><%
if page>1 then%>   
<a href='zaixian.asp?page=<%=page-1%>'>上页</a>
<%
end if
%>
<%
if page<rs.pagecount   then%>
 <a href='zaixian.asp?page=<%=page+1%>'>下页</a>
<%
end if
%>
 共<%=total%>人在线，<%=page%>/<%=rs.pagecount%>页<%end if%></td></tr>
</table></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -