xinxi_hfdel.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id,i,str2,username,tupian,objFSO,fileExt,sql1,rs1,sql2
username=request.cookies("cnmai")("username")
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
response.write "<script language=JavaScript>" & chr(13) & "alert('删除回复信息成功！');" & "history.back()" & "</script>"
response.end
rs.close
set rs=nothing
closedb
%>