xinxi_hfdel.asp

信息类网站的不错选择

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim id,rs1,sql2
id=trim(request("selectedid"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if

Conn.Execute("Update xinxi Set hfcs=0 where    id="&cstr(id))
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql2="delete from [hf] where xxid="&id&" "
rs1.open sql2,conn,1,3

set  rs1=nothing
closedb

response.write "<script language=JavaScript>" & chr(13) & "alert('删除回复信息成功！');" & "history.back()" & "</script>"
response.end

%>