del.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
sql="select g_id from gbook where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
g_id = rs("g_id")
if g_id <> 0 then  '判断该留言是否主贴
conn.execute("Update gbook set g_rhit=g_rhit-1 where id="&g_id)
conn.execute("delete from gbook where id="&id)
Response.Write "&datatxt=回复的留言已经删除"
else
conn.execute("delete from gbook where id="&id&" or g_id in("&id&")")
Response.Write "&datatxt=被删除的是留言主贴，连同回复的留言已经删除"
end if
rs.close
set rs = nothing
%>