diary_del.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim user,id
user=Request.QueryString("user")
id=Request.querystring("id")
set rs1=server.createobject("adodb.recordset")
sql1="select * from user where user = '"&user&"'"
rs1.open sql1,conn,1,1
if session("password") <> rs1("password") then
response.write("<script>alert('您还没有登录，不能删除日记')</script>")
server.transfer("login.asp")
end if
set rs=Server.CreateObject("ADODB.Recordset")
  sql="delete * from diary where id ="&id
  rs.open sql,conn,1,1
  rs.update
  rs1.close
  set rs1=nothing
  rs.close
  set rs=nothing
  response.redirect "diary.asp?user="&user  
%>
<!--#include file="close.asp"-->