delete.asp

Hmily s Guestbooks v1.0 演示：http://chichi.6to23.com/gb 功能简介: 1、用户在线留言功能。 2、管理员后台回复、删除功能。 3、QQ邮件及普通邮件回

<!--#include file="conn.asp"-->
<% if Session.Contents("login")="yes" then %>

<%    
set conn=server.createobject("adodb.connection")     
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"")     
set rs=server.createobject("adodb.recordset")   
exec="delete  from gbook where id="&request("id") 
rs.open exec,conn,1,1     
%>

<% response.redirect"index.asp" %>

<% Else %> 

<% response.redirect"adminlogin.asp" %>

<%End If %>