vote.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL,C,ID
	Dim IsSingle,ParentID,SubID,i,SelectBox

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	Set ObjRS = Server.CreateObject("ADODB.RecordSet")
	
	If Request.Form.Count > 0 Then
		
		OpenDB ObjDB

		ParentID = Request.Form("ParentID")
		ID = Request.Form("ID")
		SelectBox = Request.Form("SelectBox")
		SubID = Split(SelectBox, ",")
		'Response.Write UBound(SubID) &"<br>"
    
    if UBound(SubID) < 0 then
%>
<script language=javascript>
  	  alert("请选择，你要投票的项目！")
	    window.location = "view.asp?ID=" + <%=ID%>
</script>
<%
      Response.End
    end if

    if instr(Request.Cookies("vote"),""&id&"|")>0 then
%>
<script language=javascript>
      alert("你已经投过票了，无需重复投票！")
      window.location = "view.asp?ID=" + <%=ID%>
</script>
<%
      Response.End
    end if
		
		for i= 0 to UBound(SubID)
			
			StrSQL = "SELECT TicketCount FROM t_OA_Public_Vote WHERE ParentID = '" & ParentID &"' AND SubID ='" & SubID(i) &"'"
			ObjRS.Open StrSQL,ObjDB,1,3
			ObjRS("TicketCount") = ObjRS("TicketCount") +1
			ObjRS.Update
			ObjRS.Close
		next
		
		ObjDB.Close 
		Set ObjDB = Nothing
    
    Response.Cookies("vote")=""&Request.Cookies("vote")&""&ID&"|"
%>
<script language=javascript>
    window.location = "view.asp?ID=" + <%=ID%>
</script>
<%
		'Response.Redirect "view.asp?ID=" & ID
	End If

%>