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

select case action
	case "up"
		sql="update vote set bclass=1, baddtime='"&now()&"'  where id="&id
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="上移成功！"
	case "down"
		sql="update vote set bclass=0 where id="&id
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="下移成功！"
	case "del"
		sql="delete * from vote  where id="&id
		conn.execute(sql)		
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="刪除成功！"
	case "add"
		dim subtype
		subtype=trim(request("subtype"))
		sql="insert into vote (bselect,baddtime) values ('"&subtype&"' , Now())"
		conn.Execute(sql)
		Conn.Close
		Set Conn=Nothing
		successmess="添加成功！"
end select
backurl="ad_view.asp"
call success
'==========================================
'程序制做:迅捷網絡.    http://www.soonhost.com
'迅捷主機網 -- 域名注冊、主機租用、網站建設、腳本開發
'網址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'請保留以上版權信息，謝謝合作！
'==========================================
%>