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 "up"
		sql="update content set bistop=1  where id="&id
		conn.execute(sql)		
		successmess="置顶成功！"
		call successclose()
	case "down"
		sql="update content set bistop=0  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="取消置顶成功！"
		call successclose()
	case "del"
		sql="delete * from content  where id="&id
		conn.execute(sql)
		sql="delete * from revert  where bid="&id
		conn.execute(sql)
		successmess="删除成功！"
		call successclose()
	case "isgood"
		sql="update content set bisgood=1  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="加入精华成功！"
		call successclose()
	case "outgood"
		sql="update content set bisgood=0  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="移出精华成功！"
		call successclose()
	case "delrevert"
		sql="delete * from revert  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="删除成功！"
		call successclose()
	case "deluser"
		sql="delete * from userinfo  where id="&id
		'response.write(sql)
		conn.execute(sql)		
		successmess="删除用户成功！"
		call successclose()
end select
conn.close
set conn=nothing
'====================================================
'程序制做:迅捷网络.          http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'==================================================== 
%>