ad_operate.asp

迅捷网上调查系统管理

<!-- #Include File=../ad_check.asp -->
<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
dim subid,successmess
action=trim(request("action"))
id=trim(request("id"))

call conned()
select case action
	case "pass"
		sql="update userinfo set bclass=1  where id="&id
		conn.execute(sql)		
		successmess="会员审核通过！"
	case "lock"
		sql="update userinfo set bclass=2  where id="&id
		conn.execute(sql)		
		successmess="该会员已经被锁定！"
	case "deluser"
		sql="delete * from userinfo  where id="&id
		conn.execute(sql)		
		successmess="删除成功！"	
	case "unlock"
		sql="update userinfo set bclass=1  where id="&id
		conn.execute(sql)		
		successmess="已经解除对该会员的锁定！"
	case "unlock"
		sql="delete * from revert  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="删除成功！"

end select
conn.close
set conn=nothing
call successclose()
'====================================================
'程序制做:迅捷网络.          http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'====================================================  
%>