📄 kill.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="domain.asp"-->
<%
if userkill=False then WriteErrMsg("对不起，系统已经禁止使用此功能！")
if request("action")="kill" then
killuser=htmlencode2(Request.Form("username"))
killname=htmlencode2(Request.Form("truename"))
killpass=md5(htmlencode2(Request.Form("password")))
if killuser=empty or killname=empty or killpass=empty then WriteErrMsg("对不起，帐户信息没有填写完整！")
sql="select username,truename,password,groups from [user] where username='"&killuser&"' and password='"&killpass&"' and truename='"&killname&"'"
rs.open sql,conn,1,1
groups=rs("groups")
if rs.bof and rs.eof then WriteErrMsg("对不起，您的资料输入有误，请重试！")
set rshost=server.createobject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,1
conn.execute("delete from [user] where username='"&killuser&"'")
conn.execute("delete from [counter] where username='"&killuser&"'")
conn.execute("delete from [pay] where username='"&killuser&"'")
conn.execute("delete from [gbook] where username='"&killuser&"'")
conn.execute("delete from [gbuser] where username='"&killuser&"'")
conn.execute("delete from [message] where fromuser='"&killuser&"'")
conn.execute("delete from [message] where touser='"&killuser&"'")
conn.execute("delete from [user] where username='"&killuser&"'")
connftp.execute("delete from [User accounts] where user='"&killuser&"'")
if rshost("domain")=2 then
dim vdns
set vdns=new vdns_cls
if vdns.check(rshost("domainname"),killuser)="false" then vdns.delete rshost("domainname"),killuser
end if
userfolder=rshost("userdir")&killuser
bakfolder=rshost("bakfolder")&killuser
if fso.FolderExists(userfolder) then fso.DeleteFolder(userfolder),true
if fso.FolderExists(bakfolder) then fso.DeleteFolder(bakfolder),true
response.write "<script>alert('系统提示：\n\n帐号自杀成功\n\n用户"&killuser&"的所有相关资料已经彻底删除');location.href='javascript:self.close()'</script>"
rs.close
set rs=nothing
rshost.close
set rshost=nothing
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>帐号自杀</title>
<link href="css/user.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="0" class="a2">
  <tr>
    <td class="a1">帐号自杀</td>
  </tr>
  <tr>
    <td><table width="99%" border="0" align="center" cellpadding="6" cellspacing="0">
          <form action="?action=kill" method="post" name="form1" onSubmit="return confirm('注意：此操作将不可恢复！\n\n确定执行帐号自杀功能吗？');">
            
            <tr bgcolor="#FFFFFF">
              <td width="34%" height="25" align="right">用户名：</td>
              <td width="66%" height="25"><input name="username" type="text"></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" align="right">真实姓名：</td>
              <td height="25"><input name="truename" type="text" id="answer2"></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" align="right">密　码：</td>
              <td height="25"><input name="password" type="password"></td>
            </tr>
            <tr align="center" bgcolor="#FFFFFF">
              <td height="30" colspan="2">
              　
              <input name="Submit" type="submit" id="Submit" value="确定自杀"></td></tr>
          </form>
        </table>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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