不错的ASP整站源代码。在IIS环境下运行都没有问题

				
								id=request.form("cdid")
				If(id"") Then
				id=Split(id,",")
					If(request.Cookies("ballot")="yes") Then
						avert="yes"
						Response.Write "&avert="& avert
					else
						For Each myid In id
							If(myid"") Then		
							sql="update ys_ballot set hit=hit+1 where id="& intSql(myid)
								set rs=conn.execute(sql)
							End if
						next
							Response.Cookies("ballot").Expires=Date+myday
							Response.Cookies("ballot")="yes"
							avert="no"
					End if
					Response.Write "&avert="& avert
				End if
				set rs=nothing
				set conn=nothing	
				%>