rel_act.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#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


%>