<!--#include file="admin_start.asp"-->

<%
dim id
dim ids
dim n_ids

id=request("id")
ids=request("ids")
ids=replace(ids," ","")
n_ids=""


if not MySys.check.isInteger(id) and request("action")="edit" then
MySys.error.info="请选择您要操作的项目！"
MySys.error.location="back"
MySys.error.err()
end if

select case request("action")
case "delete"

	if ids="" then
		MySys.error.info="请选择你要删除的投票调查！"
		MySys.error.location="back"
		MySys.error.err()
	end if		

	conn.execute("delete from jins_vote_list where vote_id in ("&ids&") ")
	
	MySys.error.info="删除投票调查成功！"
	MySys.error.location="back"
	MySys.error.suc()
	
case else

	if request("action")="add" then
	    sql="select * from jins_vote_list "
	else
	    sql="select * from jins_vote_list where vote_id="&id&" "
	end if
	
	rs.open sql,conn,1,3
	
	'/////////////////////////////////////////////检测
	
	if request("action")="add" then
	    rs.addnew
		MySys.error.info="投票调查添加成功！"
	    MySys.error.location="admin/admin_info_vote_list.asp?order_name=vote_addtime&order_action=desc&s_n=6,sort_id,0&sort_id=0"
	else
		MySys.error.info="投票调查编辑成功！"
	    MySys.error.location="back"
	end if

	if request("action")="edit" and rs.eof then
		MySys.error.info="您选择的投票调查不存在！"
		MySys.error.location="back"
		MySys.error.err()
	end if
	

	if request("vote_title")="" then 	
		MySys.error.info="请完整填写相关项目！"
		MySys.error.location="back"
		MySys.error.err()
	end if
	
	'/////普通项
	rs("sort_id")=0
	if request("vote_title")<>"" then rs("vote_title")=trim(request("vote_title"))
	if request("vote_open")<>"" then rs("vote_open")=int(request("vote_open"))	
	if request("vote_url")<>"" then rs("vote_url")=trim(request("vote_url"))
	
	for ii=1 to request("n_options")
		'if request("vote_option_"&ii)<>"" then
		if ii=1 then rs("vote_option")=request("vote_option_"&ii) else rs("vote_option")=rs("vote_option")&","&request("vote_option_"&ii)
		if ii=1 then rs("vote_select")=request("vote_select_"&ii) else rs("vote_select")=rs("vote_select")&","&request("vote_select_"&ii)
		'end if
	next
	
	rs("vote_addtime")=trim(request("vote_addtime"))	
	
	rs.update
	
	rs.close

	MySys.error.suc()

	'/////////////////////////////////////////////
end select
Set fso = nothing

%>
<!--#include file="admin_end.asp"-->
