📄 web_master_log.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Css.CSS" type=text/css rel=stylesheet>
<%
Dim Action
'//检测是否跨站
'Call Check_url()
'//检测管理员是否有权限操作该页面
If Instr(1,Session("Web_Power"),"191") <= 0 Then
Call CloseDB()
Response.write "对不起!您没有访问该页面的权限..."
Response.End()
End If
Dim ac_ID,Actions
Action=Request.QueryString("Action")
Select Case Action
Case "Del"
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Dim FieldName(3),FieldValue(3)
Dim Wstr,Name,Date1,Date2
Wstr = SafeRequest("w")
Name = SafeRequest("name")
Date1 = SafeRequest("date1")
Date2 = SafeRequest("date2")
FieldName(0) = "w"
FieldName(1) = "name"
FieldName(2) = "date1"
FieldName(3) = "date2"
FieldValue(0) = Wstr
FieldValue(1) = Name
FieldValue(2) = Date1
FieldValue(3) = Date2
If Wstr = "Search" Then
Wstr = " Where sl_User like '%"&Name&"%' "
If Date1<>"" and Date2<>"" Then
Wstr=Wstr&" and (sl_LoginDate Between '"&Date1&" 00:00:00' and '"&Date2&" 23:59:59')"
Elseif Date1<>"" and Date2="" Then
Wstr=Wstr&" and sl_LoginDate >= '"&Date1&" 00:00:00' "
Elseif Date1="" and Date2<>"" Then
Wstr=Wstr&" and sl_LoginDate <= '"&Date2&" 23:59:59' "
End if
End if
%>
<SCRIPT>
function cm(nn,n2){
qus=confirm("处理完毕？")
if(qus!=0){
window.location='?Action=over&order_id='+nn+'&username='+n2;
}
}
function dm(nn,n2){
qus=confirm("确实要退订？")
if(qus!=0){
window.location='?Action=del&order_id='+nn+'&username='+n2;
}
}
</SCRIPT>
<script src="../i_include/jsdate.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="fb7a03">
<tr>
<td> <font color="#FFFFFF"><strong>管理登陆日志</strong></font></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="EFF0EB" class="text02">
<%
SQL = "Select sl_ID,sl_User,sl_Ostype,sl_LoginDate,sl_LoginIp,sl_Result,sl_ErrorPas From [pH_Web_Login] "&Wstr&" Order by sl_ID Desc"
Set Rs = Server.CreateObject("ADODB.recordset")
Rs.open SQL,Conn,1,1
Rs.pagesize=15
Pagesizes = Rs.Pagesize
PCount = Rs.PageCount
RCount = Rs.RecordCount
Page=cint(request.querystring("page"))
If Page<1 Then
Page=1
Elseif Page>Rs.pagecount then
Page=Rs.pagecount
End if
If Rs.eof Then
Response.write "<tr><td> <Font color=#FF0000>没有登陆日志！</Font></td></tr>"
Else
Rs.Absolutepage=Page
thePage = (Page-1)*Pagesizes+1
Tmp = Rs.GetRows(Pagesizes)
Rs.Close:Set Rs = Nothing
%>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" class="text02">
<tr align="center" bgcolor="EFF0EB">
<td width="6%" height="25" bgcolor="EFF0EB"> 编 号</td>
<td width="15%" height="25" bgcolor="EFF0EB"> 用户名 </td>
<td width="13%" bgcolor="EFF0EB"> 操作系统</td>
<td width="18%" height="25" bgcolor="EFF0EB"> 最后登陆时间</td>
<td width="15%" height="25" bgcolor="EFF0EB"> 最后登陆IP</td>
<td width="10%" height="25" bgcolor="EFF0EB"> 状 态</td>
<td width="13%" height="25"> 错误的密码</td>
<td width="10%" height="25" bgcolor="EFF0EB"> 操 作</td>
</tr>
<%
For i=0 to UBound(Tmp,2)
Name = Tmp(1,i)
If Trim(Tmp(5,i))="Errorname" or Trim(Tmp(5,i))="Errorpass" Then Name = "<Font Color=#FF0000>"&Name&"</Font>"
%>
<tr bgcolor="EFF0EB">
<td height="25" align="center"><%= thePage+i %></td>
<td height="25" bgcolor="EFF0EB"> <%= Name %></td>
<td height="25" bgcolor="EFF0EB"> <%= Tmp(2,i) %></td>
<td height="25"> <%= Tmp(3,i) %></td>
<td height="25"> <%= Tmp(4,i) %></td>
<td height="25"> <%
Select Case Trim(Tmp(5,i))
Case "Errorname"
Logs = "用户名错误"
Case "Errorpass"
Logs = "密码错误"
Case Else
Logs = "正常"
End select
Response.write Logs
%></td>
<td height="25"> <%= Tmp(6,i) %></td>
<td height="25" bgcolor="EFF0EB"> <a href="?Action=Del&id=<%= Tmp(0,i) %>">删除</a> </td>
</tr>
<% Next %>
</table>
<table width="100%" border="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="100%" height="25" border="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="EFF0EB">
<table width="99%" border="0" align="center" cellspacing="1" class="text02">
<Form name="pageForm" action="" method="post">
<tr>
<td width="40%">共 <Font Color=#FF0000><%= Rcount %></Font> 条记录
</td>
<td align="right">
<%Response.Write PageList(Pagesizes,RCount,Page,FieldName,FieldValue)%>
</td>
</tr>
</Form>
</table></td>
</tr>
</table></td>
</tr>
<% End if %>
</table>
<table width="99%" border="0" align="center" cellspacing="1">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="eff0eb"><table width="98%" border="0" align="center" cellspacing="1">
<Form action="?w=Search" method="post" name="theForm">
<tr>
<td>管理员登陆名：
<input name="name" type="text" id="name" size="16">
登陆时间 从
<input name="date1" type="text" id="date1" size="10" onclick="SD(this,'document.theForm.date1')">
到
<input name="date2" type="text" id="date2" size="10" onclick="SD(this,'document.theForm.date2')">
<input type="submit" name="Submit" value="搜索"></td>
</tr>
</Form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
End sub
Sub Del()
Dim id
If Not ChkPost Then
Response.write "对不起，请不要从外部提交数据！"
Response.End()
End If
id = SafeRequest("id")
Check_ID(id)
SQL="Delete From [pH_Web_Login] Where sl_id="&Cstr(id)
Conn.Execute(SQL)
Set Rs=Nothing
CloseDB
Response.Redirect "Web_Master_Log.asp"
End sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -