delete.asp

由ASP ACCESS编写的简单留言本

<%
If session("admin")="admin" Then 
%>
<!-- #include file="include/conn.asp" -->
<%
  set rs=server.CreateObject("adodb.recordset")
  sql="delete  from contents where id="&request("id")
  conn.Execute(sql)
  conn.close
  Set conn = nothing
  response.redirect("admin_index.asp")
 }
 else 
 response.write ("<script language='javascript'>alert('非法进入可耻！');location='index.asp';</script>")
 End If 
%>