<!--#include file="../../ACT.Function.asp"-->
<% 
	If Not ACTCMS.ACTCMS_QXYZ(0,"lyxt_ACT","") Then   Call Actcms.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
	response.write "错误参数"
	response.end
	end if
  sub hf()
	StrSqlla="Update Book_ACT Set hf='"&request.Form("hf")&  "' where id="&request("id")
	conn.Execute(StrSqlla)
	call Actcms.alert("回复成功","Index.asp")
	response.end
  end sub
  sub del()
	sql="delete from Book_ACT where id="&request("id")
	conn.Execute(sql)
	call Actcms.alert("删除成功","Index.asp")
	response.end
   end sub
   
   sub sh()
   	StrSqlla="Update Book_ACT Set sh=0 where id="&request("id")
	conn.Execute(StrSqlla)
	call Actcms.alert("修改成功","Index.asp")
	response.end
   end sub


%>