countvote.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../inc/const.asp" -->
<!-- #include file="../inc/config.asp" -->
<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<!-- #include file="../inc/vote_function.asp" -->
<%
dim voteid
voteid=FormatText(request("voteid"))
dim votedetail
votedetail=FormatText(request("votedetail"))
if votedetail="" then
	response.write "<script>alert('请选择一个选项,谢谢。');window.close();</script>"
	response.end
end if
if isnull(request.cookies("cardnumber")) or request.cookies("cardnumber")=empty then
	response.cookies("cardnumber")="|"
	response.cookies("cardnumber").Expires=Date+365
end if
if isnull(request.cookies("voteid")) or request.cookies("voteid")=empty then
	response.cookies("voteid")="|"
end if

if vote_allallow=0 then
	'****************************************判断是否重复投票
	if instr(request.cookies("voteid"),"|"&voteid&"|")<>0 then
		response.write "<script>alert('请不要重复投票。');</script>"
		call show
		response.end
	end if
end if

if vote_compute_one=1 then
	'****************************************判断是否已经投票过了
	if instr(request.cookies("cardnumber"),"|"&voteid&"|")<>0 then
		response.write "<script>alert('这个调查你已经投过票了。');</script>"
		call show
		response.end
	end if
end if



'***************************************操作数据库
conn.BeginTrans
conn.execute("update vote_details set votecount=votecount+1 where id in ("&votedetail&")")

if err then
	conn.RollBackTrans
	response.write "<script>alert('投票失败,你的投票没有记录到数据库.');</script>"
	call show
else
	if vote_success_return=1 then
		response.write "<script>alert('"&vote_success_msg&".');</script>"
	end if
	conn.CommitTrans
	response.cookies("cardnumber")=request.cookies("cardnumber")&voteid&"|"
	response.cookies("cardnumber").Expires=Date+365
	response.cookies("voteid")=request.cookies("voteid")&voteid&"|"
	call show
end if

function show
	response.write "<script>location.href='showvotedetails1.asp?voteid="&voteid&"';</script>"
	call connclose()
end function




%>