vote.asp

迅捷网上调查系统管理

<!-- #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>请不要重复投票！"
   	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="您的投票已经成功提交"
	call successback()
end if
'==========================================
'程序制做:迅捷网络.    http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'==========================================
%>