📄 admin_blog.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("Blog") Then
	Call ArtErr("","")
End If
%>
<!--#include file = Include/NIncHeads.asp --><head>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
<script language=Javascript>
function checkAll(e, itemName)
{
  var aa = document.getElementsByName(itemName);
  for (var i=0; i<aa.length; i++)
   aa[i].checked = e.checked;
}
function checkItem(e, allName)
{
  var all = document.getElementsByName(allName)[0];
  if(!e.checked) all.checked = false;
  else
  {
    var aa = document.getElementsByName(e.name);
    for (var i=0; i<aa.length; i++)
     if(!aa[i].checked) return;
    all.checked = true;
  }
}
</script>
</head>

<%
ipurl="admin_LockIP.asp"
blogurl="admin_blog.asp"
id=trim(request("id"))
ppdelid=trim(request("ppdelid"))
Dim DelFlag:DelFlag=Trim(Request("DelFlag"))

if ppdelid<>"" then
  conn.Execute "delete from [Art_blog] where ID in ("&Request.Form("ppdelid")&")"
   Call ArtErr("<li>您好，已删除您选择的日志！</li>","2")
end if

if DelFlag="清空所有日志" then
  conn.Execute "delete from [Art_blog]"
  Call ArtErr("<li>您好，已清空所有日志！</li>","2")
end if
 Call Heads_safe()	
 %>



<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" >
 <form method="post" name="holyfish" action="">
 <tr class="bg_tr"> 
    <td width="5%"  align="center" >选中</td>
    <td width="5%"  align="center" >编号</td>
    <td width="18%" align="center" >最后登陆后台时间</td>
    <td width="20%" align="center" >最后登陆IP</td>
    <td width="12%" align="center" >登陆后台次数</td>
    <td width="17%" align="center" >首次登陆后台日期</td>
    <td width="8%"  align="center">登陆用户</td>
	<td width="8%"  align="center" >登陆结果</td>
	<td width="7%"  align="center" >IP锁定</td>
  </tr>
 
  <%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [Art_blog] order by endtime desc",conn,1,1
if rs.recordcount<>0 then

page=int(request("page"))
rs.PageSize=20
pagecount=rs.pagesize
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page

for i=0 to pagecount
%>
 <tr onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg" height="25">
 <td align="center"><input type="checkbox" name="ppdelid" value="<%=rs("id")%>" onclick="checkItem(this, 'blogall')"></td>    
 <td align=center><%=rs("id")%></td>  
 <td align=center><%=rs("endtime")%></td>  
 <td align=center><a href=# onclick='window.open("admin_ip.asp?iP=<%=rs("logip")%>","newsplview","width=380,height=200,top=190,left=150,scrollbars=no" )'><%=rs("logip")%></a></td>  
 <td align=center><%=rs("CS")%></td>  
 <td align=center><%=rs("addtime")%> </td> 
 <td align=center><%=rs("admin_username")%> </td> 
<td  align="center">
 <%
if rs("EndLogin")=1 then 
	Response.write "<span style='color:red;'>登录成功</span>"
else
	Response.write "<span style='color:#6666FF;'>登录失败</span>"
end if
%>
 <td width="20%" align=center><a href="admin_LockIP.asp?HOPE_IP=<%=rs("logip")%>&HOPE_action=Add">锁定</a></td>      
			

    </tr>
  <%
rs.movenext
if rs.eof then exit for
next
else
response.write "<tr class=tdbg><td colspan=9 height=30>&nbsp;&nbsp;&nbsp;当前还没有日志</td></tr>"
end if
%> 
<tr>
<td  class="forumRow" colspan=9 >&nbsp;<input type=checkbox name=blogall onclick="checkAll(this, 'ppdelid')">全选/取消　　
<input type="submit" value="删除选定日志">　　<input type="submit" value="清空所有日志"  name="DelFlag" onclick='return confirm("你确定要清空所有日志吗？此操作不可恢复哦！");'>
</td></tr>

<tr><td align="center" class="forumRaw" height="30" colspan=9>
<%if rs.recordcount<>0 then
if page>1 then
response.write "<a href="&request.servervariables("URL")&"?page=1&id="&id&"&word="&word&"&lm="&lm&">首页</a>　"
response.write "<a href="&request.servervariables("URL")&"?page="&page-1&"&id="&id&"&word="&word&"&lm="&lm&">上一页</a>　"
end if
if page<rs.pagecount then
response.write "<a href="&request.servervariables("URL")&"?page="&page+1&"&id="&id&"&word="&word&"&lm="&lm&">下一页</a>　"
response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&"&id="&id&"&word="&word&"&lm="&lm&">尾页</a>　"
end if
response.write "共"&rs.recordcount&"条　每页显示"&pagecount&"条　共"&rs.pagecount&"页　"
%>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
<%for i=1 to rs.pagecount%>
<option value="<%=request.servervariables("URL")%>?page=<%=i%>&id=<%=id%>&word=<%=word%>&lm=<%=lm%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option>
<%next%>
</select>
<%end if%>
</td></tr>
</form>
</table>
<%
Call AdminPageEnd()
rs.close:set rs=nothing
conn.close:set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -