www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\vote\join.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../common/const.asp"-->
<%
Dim voteid, MyChoose, i, Rs, SQL
If Not IsObject(Conn) Then ConnectionDatabase
voteid = NewAsp.ChkNumeric(Request("voteid"))
If voteid>0 Then
	If Request.Cookies("vote_"&voteid) = "newaspvote_" &voteid Then
		Response.Write("&back=已经参与过投票，谢谢")
		Response.End
	Else
		Response.Cookies("vote_"&voteid) = "newaspvote_" &voteid
		Response.Cookies("vote_"&voteid).expires = Date + 3650
		Response.Cookies("vote_"&voteid).domain = Request.ServerVariables("SERVER_NAME")
		MyChoose = Split(Request("myChoose"), ",", -1, 1)
		Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
		SQL = "SELECT * FROM NC_Vote WHERE id = " &voteid
		Rs.Open SQL, Conn, 1, 3
		If Not (Rs.BOF And Rs.EOF) Then
			For i = 1 To 5
				If MyChoose(i -1) = "true" Then
					Rs("ChooseNum_"&i&"") = Rs("ChooseNum_"&i&"") + 1
				End If
			Next
			Rs.update
			For i = 1 To 5
				If MyChoose(i -1) = "true" Then
					Conn.Execute ("UPDATE NC_Vote SET VoteNum=VoteNum+1 WHERE id=" &Rs("id"))
				End If
			Next
		End If
		Rs.Close
		Set Rs = Nothing
		Response.Write("&back=投票已经送达，谢谢参与")
	End If
End If
NewAsp.PageEnd
%>