<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->

<%
response.buffer=ture
dim selected,bselect
bselect=request("selected")
if bselect<>"" then
	if not isnumeric(bselect) or len(bselect)>10 then
		errmsg=errmsg+"<br>"+"<li>非法提交!。"
		call error()
		response.end		
	end if
	
else 
	errmsg=errmsg+"<br>"+"<li>您還沒有選擇!。"
	call error()
	response.end
end if


if DateDiff("s",request.cookies("soonvote")("regtime"),Now())<cint(RegTime) then
   	ErrMsg=ErrMsg+"<Br>"+"<li>請不要重復(fù)投票！"
   	call error()
   	response.end
else
	call conned()
	sql="update vote set bselectnumber = bselectnumber+1 WHERE id="&bselect
	conn.execute(sql)
	Conn.Close
	Set Conn=Nothing
	response.cookies("soonvote").expires="3/1/2003"
	response.cookies("soonvote")("regtime")=now()
	successmess="您的投票已經(jīng)成功提交"
	call successback()
end if
'==========================================
'程序制做:迅捷網(wǎng)絡(luò).    http://www.soonhost.com
'迅捷主機(jī)網(wǎng) -- 域名注冊、主機(jī)租用、網(wǎng)站建設(shè)、腳本開發(fā)
'網(wǎng)址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'請保留以上版權(quán)信息，謝謝合作！
'==========================================
%>