📄 log_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<%
chk_admin_login(3)
sql="select * from [log] order by id" 
rs.open sql,conn,1,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
if request("menu")="del" then
id=request("id")
call del()
end if 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/admin.css" rel=stylesheet type=text/css>
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<table width=95% border=0 align="center" cellpadding=4 cellspacing=1 class="a2">
      <tr class="a1">
        <td width="6%" height="25" align="center">&nbsp;        </td>
        <td width="9%" align="center">登录情况</td>
        <td width="12%" align="center">用户名</td>
        <td width="19%" align="center">
          登录密码</td>
        <td width="18%" align="center">登录IP</td>
        <td width="14%" align="center" valign="middle">操作系统          </td>
        <td width="22%" align="center" valign="middle">登录时间</td>
  </tr>
<form action="?menu=del" method="post" onSubmit="return Confirm()">
        <%
i=0
j=0
Do While Not RS.EOF and i<pagesetup
i=i+1
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
%>

        <tr class="<%=a%>">
          <td align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></td>
          <td align="center"><%select case rs("type")
		  case "正常登录"
		  Response.Write("正常登录")
		  case "非法登录"
		  Response.Write("<b>非法登录</b>")
		  end select%></td>
          <td align="center"><%=rs("username")%></td>
          <td align="center"><%=rs("password")%></td>
          <td align="center"><%=rs("loginip")%></td>
          <td align="center"><%=rs("os")%></td>
          <td align="center"><%=rs("time")%></td>
    </tr>
        <%
		j=j+1
rs.movenext
loop
rs.close
set rs=nothing 
%>
        <tr class="a4">
          <td colspan="7" align="center"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON"> 
            全选
          <input name="Submit" type="submit" id="Submit" value=" 删 除  "></td>
    </tr>

</form>
</table>
[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]
</body>
</html>
<%
sub Del()
	if ID="" then
		Response.Write "<br><li>请指定要删除的对象</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [log] where id in (" & ID & ")"
	else
		sql="delete from [log] where id=" & Clng(ID)
	end if
	Conn.Execute sql      
	response.redirect "log_admin.asp"
end sub
%>
⌨️ 快捷键说明

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