📄 dispcont_web.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../checkvalid.asp" -->
<%
If Not FRAdminLevel(802) Then
	Call ErrorMsg()
End If
%><head> 
<title>后台管理LOG日志</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head> 

<LINK href="../css/style.css" rel=stylesheet type=text/css>
<SCRIPT language=javascript>
function unselectall(){
    if(document.myform.chkAll.checked){
 document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    }
}
function CheckAll(form){
  for (var i=0;i<form.elements.length;i++){
    var e = form.elements[i];
    if (e.Name != 'chkAll'&&e.disabled==false)
       e.checked = form.chkAll.checked;
    }
  }

</script><body style="font-size: 9pt">
<% 
Server.ScriptTimeout=500
URL=Request.ServerVariables("URL")
Action= Request("Action")
Id=Request("id")
if Action="lock" then
	conn.execute("update job_errlog set Sqlin_Killip=1 where id="&id)
elseif Action="unlock" then
	conn.execute("update job_errlog set Sqlin_Killip=0 where id="&id)
end if
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim log_id
for i = 0 to ubound(idarr)
log_id=clng(idarr(i))
call deleteannounce(log_id)
next
else
call deleteannounce(clng(idlist))
end if
end if 
%>
<!--#include file="../../inc/memberpagelist.asp" -->
<!--#include file="../../inc/replace.asp" -->
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
	<TR>
		<td>
		<table width="100%" border="0" cellpadding="0" cellspacing="0">
		  <tr>
			<TH width="59%" height=25>网站前台安全日志管理</TH>
			<TH width="41%" height=25 ><a href="SQLSet.asp" target="_self">点此进行SQL通用防注入系统设置</a></TH>
		  </tr>
		</table>
		</td>
	</TR>
	
<tr align=center>
	<td height=30>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
 <Form name="form" method="POST" action="dispcont_web.asp"> 
 <tr>
    <td width="6%">选中</td>
    <td width="6%">编号</td>
    <td width="11%">操作ＩＰ</td>
	<td width="7%">是否锁定</td>
    <td width="15%">操作时间</td>
    <td width="19%">操作页面</td>
    <td width="9%">提交方式</td>
    <td width="11%">提交参数</td>
    <td width="16%">提交数据</td>
 </tr><%
  keyword=CheckStr(trim(request("keyword"))) 
  segment=CheckStr(trim(request("segment")))                               
  pgsz=20
  sql="SELECT * FROM job_errlog order by id"  
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  If not rs.eof then
   rs.pagesize=pgsz
	   if request("Gocurrentpage")<>"" then
		ipage=request("Gocurrentpage")
	   else
		ipage=request("currentpage")
	   end if
	   
	   if ipage="" or ipage=0 then
		ipage=1
	   else
		   if cint(ipage)>cint(rs.pagecount) then
			ipage=rs.pagecount
		   end if
	   end if 
  rs.absolutepage=ipage
  for i=1 to rs.pagesize
Response.Write "<tr>"
Response.Write "<td class=forumRow><input name='selAnnounce' type='checkbox' value='"&rs("id")&"'></td>" 
Response.Write "<td class=forumRow>"&rs("id")&"</td>" 
Response.Write "<td class=forumRow>"&rs("Sqlin_IP")&"</td>" 
If rs("Sqlin_Killip")=1 then 
	Response.write "<td class=forumRow><a href="&URL&"?action=unlock&id="&rs("id")&"><font color=red>已锁定</font></a></td>"
Else
	Response.write "<td class=forumRow><a href="&URL&"?action=lock&id="&rs("id")&"><font color=green>未锁定</font></a></td>"
End if
Response.Write "<td class=forumRow>"&rs("Sqlin_TIME")&"</td>" 
Response.Write "<td class=forumRow>"&rs("SqlIn_Web")&"</td>" 
Response.Write "<td class=forumRow>"&rs("SqlIn_FS")&" </td>"
Response.Write "<td class=forumRow>"&rs("SqlIn_CS")&" </td>"
Response.Write "<td class=forumRow>"&rs("SqlIn_SJ")&" </td>"
Response.Write "</tr>" 
rs.movenext 
if rs.eof then exit for 
next
End If
%> 
	<tr>
		<td colspan=10>请选择要删除的事件，
		  <input name='chkAll' type='checkbox' class="checkbox" id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>
		  全选 <input name=act type=submit class="inputs"  onclick="{if(confirm('您确定执行的操作吗?')){this.document.even.submit();return true;}return false;}" value=删除日志>　		
		  </td>
	</tr>
	<tr>
	  <td colspan=10><div align="right">
	    <%call pagelist("dispcont_web.asp","keyword="&keyword&"&segment="&segment&"",rs.pagecount,cint(ipage),rs.recordcount)%>
	    </div></td>
	  </tr>
 </form> 
</table></td>
</tr>
</table>

<% 
rs.close 
sub deleteannounce(log_id)
	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	sql="delete from [job_errlog] where id="&cstr(log_id)
	conn.execute sql
End sub
%>
<br>
<!--#include file="../inc/copy.asp"-->
⌨️ 快捷键说明

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