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

if request("action")="deloption" then
	call deloption() '刪除某個選項的函數
elseif request("action")="delvote" then
	call delvote() '刪除整個投票項目的函數
else
	mdfid=request("mdfid")
	'讀取驗證表單數據,添加和修改公用
	ZhuTi=request("ZhuTi")
	x=request("x")
		
	if ZhuTi="" or len(ZhuTi)>20 then
		response.write "<script>alert('主題不能為空且'"_
		&"+'不能超過20個字符！');</script>"
response.write "<script>"_
&" history.back(1);</script>"  
		response.end
	end if
	
	for i=1 to n
		if request("option"&i)="" or len(request("option"&i))>20 then
			response.write "<script>alert('選項內容不能為空且不能超過20個字符！');</script>"
			response.write "<script>history.back(1);</script>"
			response.end
		end if
	next
	
	XuanZe=request("XuanZe")
	KaiShiTime=request("nian")&"-"&_
				request("yue")&"-"&request("ri")
	JieShuTime=request("nian1")&"-"&request("yue1")&"-"&request("ri1")
	ShiFou=request("ShiFou")
	'下面為數據庫操作
	openDB
	'如果把添加的設為當前投票項目,則更新已有的投票項目ShiFou值為0
	if ShiFou=1 then
			Conn.Execute("UPDATE titles SET ShiFou=0")
	end if
	'如果沒有mdfid值傳入,就做添加處理
	if mdfid="" then
		call add()
	else '有mdfid值傳入時,做修改處理
		call modify()
	end if	

end if
'刪除投票項目處理函數
sub delvote()
	openDB
	conn.Execute("delete from options where Tid = " &request("delid") )
	conn.Execute("delete from titles where ID = " & request("delid") )
	closeDB
	response.Redirect "admin.asp"
end sub
'刪除某個選項處理函數
sub deloption()
	openDB
	'在刪除選項前,先要更新Counts值
	conn.execute("update titles set Counts=Counts-"&request("delvote")_
	&" where id="&request("mdfid"))
	conn.execute("delete * from options where oid = " &request("deloid"))
	closeDB
	response.Redirect "modify.asp?mdfid="&request("mdfid")
end sub
'修改處理函數
sub modify()
	'更新titles表內的相關數據
	conn.execute("update titles set ZhuTi='"&ZhuTi&"',"&_
	"XuanZe='"&XuanZe&"',KaiShiTime='"&KaiShiTime&"',JieShuTime"&_
	"='"&JieShuTime&"',ShiFou='"&ShiFou&"' where id="&mdfid)
	'更新options表內的選項值
	for i=1 to n
		conn.execute("update options set options"&_
		"='"&request("option"&i)&"' where oid="&request("oid"&i)) 
	next
	'添加新選項
	if request("addoption")<>"" then
		conn.execute("insert into options (tid,options) values"&_
		" ('"&mdfid&"','"&request("addoption")&"')")
	end if
	closeDB
	response.write "<script>alert('修改投票成功');</script>"
	'如果在修改時選了繼續添加選項,則在完成處理后仍轉到該項目的修改頁面
	if request("continue")="yes" then
		response.Redirect "modify.asp?mdfid="&mdfid
	else
		response.write "<script>location.href='admin.asp';</script>"
	end if
end sub
'下面列出添加項目函數
sub add()
	conn.execute("insert into titles(ZhuTi,XuanZe,KaiShiTime,"&_
	"JieShuTime,ShiFou) values ('"&ZhuTi&"','"&XuanZe&"',"&_
	"'"&KaiShiTime&"','"&JieShuTime&"','"&ShiFou&"')")
	sql="select top 1 ID from [titles] order by id desc"
	set rst=Server.CreateObject("ADODB.Recordset")
	rst.open sql,conn,1,1
	id = rst("id")
	rst.Close
		
	for i=1 to x
		Conn.Execute("insert into options (tid,options) values"&_
		"('" & id & "','" & Request("option"&i) & "')")
	next
	CloseDB
	response.write "<script>alert('添加投票成功');</script>"
	response.write "<script>location.href='index.asp';</script>"
end sub

%>