📄 ftp_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<%
sql="select * from [User accounts] order by User"
rs.open sql,connftp,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 '跳转到指定页数
menu=request.form("menu")
id=request.form("id")
select case menu
case "lock"
chk_admin_login(2)
	if ID="" then
		Response.Write "<br><li>请指定要锁定的用户</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="Update [User accounts] set Disable=True where id in (" & ID & ")"
	else
		sql="Update [User accounts] set Disable=True where id=" & Clng(ID)
	end if
	Connftp.Execute sql      
	response.redirect "ftp_admin.asp"
case "unlock"
chk_admin_login(2)
	if ID="" then
		Response.Write "<br><li>请指定要激活的用户</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="Update [User accounts] set Disable=False where id in (" & ID & ")"
	else
		sql="Update [User accounts] set Disable=False where id=" & Clng(ID)
	end if
	Connftp.Execute sql      
	response.redirect "ftp_admin.asp"
case "del"
chk_admin_login(3)
	if ID="" then
		Response.Write "<br><li>请指定要删除的用户</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [User accounts] where id in (" & ID & ")"
	else
		sql="delete from [User accounts] where id=" & Clng(ID)
	end if
	Connftp.Execute sql      
	response.redirect "ftp_admin.asp"
end select
%>
<html>
<head>
<title></title>
<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="99%" border=0 align="center" cellpadding=4 cellspacing=1 class="a2">
  <tr align="center" class="a1">
    <td width="4%" height="25">ID</td>
    <td width="8%">用户名</td>
    <td width="14%">注册日期</td>
    <td width="15%">截止日期</td>
    <td width="15%">空间容量</td>
    <td width="15%">当前使用</td>
    <td width="15%">所在组</td>
    <td width="14%">操作</td>
  </tr>
  <form action="" method="post" onSubmit="return Confirm()">
      <%
i=0
j=0
Do While Not RS.EOF and i<pagesetup
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
i=i+1
%>
      <tr class="<%=a%>">
        <td align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></td>
        <td align="center"><a onMouseOver="showmenu(event,'<div class=menuitems><a href=ftp_show.asp?menu=user2&user=<%=rs("user")%>>查看资料</a></div><div class=menuitems><a href=../view.asp?user=<%=rs("user")%> target=_blank>浏览网站</a></div><div class=menuitems><a href=message_admin.asp?menu=addmsg&touser=<%=rs("user")%>>发送短信</a></div><div class=menuitems><a href=../gbook/index.asp?user=<%=rs("user")%> target=_blank>查看留言</a></div><div class=menuitems><a href=user_filemanage.asp?username=<%=rs("user")%> target=_blank>管理文件</a></div>')" style=cursor:hand>
<%=rs("user")%></a></td>
        <td align="center"><%=rs("regdate")%></td>
        <td align="center"><%if rs("Expiration")="1980-1-1" then
	  Response.Write("不限制")
	  else
	  Response.Write rs("Expiration")
	  end if%></td>
        <td align="center"><font face="Arial" color="blue">
          <%
if rs("QuotaMax")=0 then
Response.Write("无限制")
elseif rs("QuotaMax")<1024 then
Response.Write (""&rs("QuotaMax")&" 字节")
elseif rs("QuotaMax")<1048576 then
Response.Write (""&round(rs("QuotaMax")/1024,2)&" KB")
else
Response.Write (""&round(rs("QuotaMax")/1048576,3)&" MB")
end if
%>
        </font></td>
        <td align="center"><font face="Arial" color="blue">
          <%
if rs("QuotaCurrent")=0 then
Response.Write("未使用")
elseif rs("QuotaCurrent")<1024 then
Response.Write (""&rs("QuotaCurrent")&" 字节")
elseif rs("QuotaCurrent")<1048576 then
Response.Write (""&round(rs("QuotaCurrent")/1024,2)&" KB")
else
Response.Write (""&round(rs("QuotaCurrent")/1048576,3)&" MB")
end if
%>
        </font></td>
        <td align="center"><%if rs("Groups")="" then
	  Response.Write("未分配组")
	  else
	  Response.Write rs("Groups")
	  end if%></td>
        <td align="center"><%
		if rs("Disable")=True then
		Response.Write("<font color=red>等待激活</font>")
		elseif rs("Disable")=False then
		Response.Write("<font color=green>正常</font>")
		end if%></td>
      </tr>
      <%
	  j=j+1
rs.movenext
loop
rs.close
set rs=nothing
%>
    <tr class="a4">
      <td colspan="8" align="center"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
全选
  
  <input name="menu" type="radio" value="lock">
锁定
<input name="menu" type="radio" value="unlock">
激活
<input name="menu" type="radio" value="del">
删除
  <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>
⌨️ 快捷键说明

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