<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id,xid,i,u,str1,str2,username,tupian,objFSO,fileExt,sql1,rs1
username=request.cookies("cnmai")("username")
xid=trim(request("xid"))
id=trim(request("selectedid"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
str1=split(xid,",")
str2=split(id,",")
for i=0 to ubound(str1)
Conn.Execute("Update jle_xinxi Set hfcs=0 where id="&cstr(xid))
next
set rs1 = Server.CreateObject("ADODB.RecordSet")
for u=0 to ubound(str1)
sql1="delete from [hf] where id="&id&" "
rs1.open sql1,conn,1,3
next
response.write "删除回复信息成功！"
response.write "<meta http-equiv=refresh content=""1;URL=xxhflist.asp"">"
response.end
rs.close
set rs=nothing
closedb
%>
