www.gusucode.com > 盐城分类信息网asp源码程序 > admin/del.asp

    <%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%><%@ CODEPAGE = "936" %>
<!--#include file=cookies.asp-->
<%
if Session.Contents("thegbmaster")="yes" then

keyword=Request("keyword")
page=Request("page")
pagesize=Request("pagesize")

'加入数据
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../alldata/lgwzjs#304133183xxw.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select  * from guestbook where id=" & request("id")
rs.Open sql,conn,3,2

if not rs.EOF then rs.Delete

msg="删除成功。"

rs.Close
set rs=nothing
conn.Close
set conn=nothing

if error<> 0 then msg="删除过程中遇到了错误，请检查删除是否成功。"
else
msg="您不是管理员，不能删除留言。"
end if
Response.Redirect "admindiary.asp?pagesize=" & pagesize & "&keyword=" & keyword & "&page=" & page & "&msg=" & msg
%>
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%>