admin_del.asp

来自「树型ASP论坛下载」· ASP 代码 · 共 44 行

ASP
44
字号
<!--#include file="../cc/conn.asp"-->
<!--#include file="confirmadmin.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../cc/css/style.css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="top.asp"-->
<br>
<%if request("del")<>"yes" then
name=request("name")%>
<br>
<br>
<br>
<table width="350" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td> <form name="form2" method="post" action="admin_del.asp?del=yes&name=<%=name%>">
        <div align="center">
          <input type="submit" name="Submit2" value="确定要删除<%=name%>这个注册用户吗?">
          <br>
          <br>
          <br>
          <input type="submit" name="Submit42" value="      取消删除      " onClick="javascript:history.go(-1)">
        </div>
      </form></td>
  </tr>
</table>
<%else
name=request("name")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from user where name='"&name&"'"
rs.open sql,conn,3,2
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('删除成功');" & VbCrlf
response.write "history.go(-2);" & vbCrlf
response.write "</script>" & VbCRLF
end if%>
<!--#include file="bottom.asp"-->
</body>
</html>

⌨️ 快捷键说明

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