del.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim user
user=Request.QueryString("user")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user where user ='"&user&"'"
rs.open sql,conn,1,1
if user="" then
response.write("<script>alert('您还没有登录，不能注销日记本！')</script>")
server.transfer("login.asp")
end if
if session("password") <> rs("password") then
response.write("<script>alert('您不是改日基本的管理员，不能注销日记本！')</script>")
server.transfer("login.asp")
end if
set rs1=Server.CreateObject("ADODB.Recordset")
  sql1="delete * from user where user ='"&user&"'"
  rs1.open sql1,conn,1,1
  set rs=Server.CreateObject("ADODB.Recordset")
  sql="delete * from diary where username ='"&user&"'"
  rs.open sql,conn,1,1
  rs1.update
  rs.update
rs1.close
set rs1=nothing
rs.close
set rs=nothing
response.redirect "success.asp"
%>
<!--#include file="close.asp"-->