<!--#include file="../../fy.Function.asp"-->
<% 
	If Not fycms.fycms_QXYZ(0,"lyxt_fy","") Then   Call fycms.Alert("对不起，你没有操作权限！","") 

Select Case request("action")
	Case "hf"
		Call hf()
	Case "del" 
		Call del()
	Case "sh" 
		  Call sh()
End Select 
Dim StrSqlla,sql
	if not isnumeric(request("id")) or request("id")="" then
	echo "错误参数"
	response.end
	end if
  sub hf()
	StrSqlla="Update Book_fy Set relcontent='"&request.Form("relcontent")&  "' where id="&request("id")
	conn.Execute(StrSqlla)
	call fycms.alert("回复成功","Index.asp")
	response.end
  end sub
  sub del()
	sql="delete from Book_fy where id="&request("id")
	conn.Execute(sql)
	call fycms.alert("删除成功","Index.asp")
	response.end
   end sub
   
   sub sh()
   	StrSqlla="Update Book_fy Set audit=0 where id="&request("id")
	conn.Execute(StrSqlla)
	call fycms.alert("修改成功","Index.asp")
	response.end
   end sub


%>