|
|
| |
| ◆ 您的当前位置: 首页→7-12月节日→圣诞节→正文 |
| |
| 圣诞节联欢策划方案
|
|
|
| 时间：2006-7-31 14:09:57 |
|
|
|
[更多内容 - www.hc1860.com 贺词1860！]
圣诞节联欢策划方案(讨论征集稿)
圣诞晚会策划方案
内容：
一、活动主旨：放松心情、繁荣社区，过一个祥和、快乐的平安夜
二、活动对象:有意参加的全体社区人员(请踊跃报名,费用AA制)
三、组织： 靖江社区所有版主
四、时间：2005年12月24日20：00 ——24：00
五、主持人：
六、开场台词 （共同完成）
七、地点：
八、背景及场内布置：
所需物品： a、背景红布（内容：钟式图标、晚会名称）
b、装饰灯光（旋转舞灯，闪光灯及其它装饰灯）
c、汽球、彩带棒
d、音响
九、晚会其它物资准备：
a、茶水供应/啤酒、饮料！特色水果、糖果、花生、瓜子等
b、抽奖礼品
c、各种游戏道具
十、场内协调
十一、晚会节目安排：
1、开场热舞 表演者：
2、主持人上台宣布晚会开始并致开场白
3、娱乐文艺节目：（请网友踊跃报名）
4、圣诞晚会游戏设置（和娱乐节目穿插进行）
游戏
1、 抛绣球（20分钟）
准 备：提供3个小筐（小筐包装的漂亮一点），40个气球
游戏规则：一局六名选手，两人一组，一人背筐，一人投球。背筐者努力接住来自投手的球，最后以接球的多少决定最后的胜负。此游戏主要考察两人的配合能力，看谁最后满载而归。
两人一组，一人背筐，一人投球。背筐者想尽办法接住球。接球多的一组获胜。 共三组，每组两人.
2\佳人何处寻
内容：因为不需要任何繁琐的准备工作，人人都可胜任愉快，轻松尽兴，所以这个游戏，一直深受人们喜爱。每位参与者在最短的时间内，道出对方背后贴着的名字，进而联想自己背后的名字。
道具：纸，笔，透明胶带
方法：
（1）男女双方人数一样，合计10人最为恰当
（2）事前，先在纸上写着诸如“罗密欧”、“朱丽叶”；“王祖贤”与“齐秦”；“梁山伯”与“祝英台”......等对对佳偶的名字。
（3）将这些已写好名字的纸中的男性名字贴在男性的背后，女性名字贴在女性背后。同时，不可让所有参赛者看到彼此背后所贴的名字。
（4）一切就绪后，所有出场者，个个竭尽所能，说出他人背后的名字，然后推想自己的背后的名字。倘若读出了所有人员背后的名字，就不难推出自己背后的名字了。
（5）联想出自己背后的名字后，要赶快与自己搭档的对象凑成一组，互相挽胳膊。
（6）到最后没有成对的人，就是负方。
重点：本游戏的重点，在于寻觅的过程，所以人人都应相处得宜，相互配合，以期找出彼此的最佳拍档
3、 夫妻双双把家还（20分钟）
准 备：十个气球
游戏规则：我们邀请十组夫妻选手上台，手手相联，背背相对，齐心协力把夹在背上的气球，从起点运到终点，以用时最少者获胜。让我们看看谁是最默契的夫妻拍档。
手挽手，背靠背从起点到终点运球，比速度。
4、夹乒乓球：在限制线外将20个乒乓球夹起，并放进指定范围，球跳出重夹，先夹完为胜
5、抢凳子
道具：凳子（若干）
参加人员安排：8人或多人参加（其中一人为喊话员不参加比赛）
游戏规则：游戏开始先把凳子成圆形（按参加人数减一计算，即8人摆7张），然后，参加人员在凳子外面围成一圈，主持人敲鼓或放音乐时参加人员就沿着圆形顺时针或逆时针跑动（注意不能插队），当鼓声或音乐停下时参加人员要讯速找到一张凳子座下，因为凳子少一张，所以会有一人没凳子座，这个人就算是被淘汰了，这时要把凳子减少一张，其余的人继续玩，直到剩下最后一人为止，这人就算赢了。赢的人给予奖励。
6、七拼八凑
此游戏适合晚会最后，掀起高潮。
要求：参加人数30人-50人为佳，分成4-5组
道具：托盘、背景disco音乐、奖品一份可以是精美的糖果（可以分的）
主持人要求大家分组坐好（一定要有男有女）
将游戏规则告知大家
每组先选出一名接收者，手持托盘站在舞台上。
其它小组人员按照主持人的要求提供物品放到托盘中。最先集齐物品的小组获胜。
背景音乐起，
主持人开始宣读物品，每一个相隔一定时间给队员准备，慢慢加快。
采集物品来自日常的例如：眼镜、手表、皮带、袜子、口红、钱等，一定要有比较难的放在最后如药片、糖果、一毛钱。
7、幸运大抽奖
同时在我们晚会的进行中，我们会有很多的抽奖活动贯穿其中，更多惊喜等着您，相信这个温馨的圣诞之夜会同样有一份好运伴随您。
从始至终贯穿抽奖活动（由主持人掌握）
从三等奖到一等奖
准 备：不透明抽奖箱，兵乓球10个（用粗笔写号0-9），抽奖号（一式两份，入场观众人手一张），礼仪工作人员，协调抽奖嘉宾。{文章来自：贺词1860 www.hc1860.com！}
内容来源：[ http://www.hc1860.com 贺词1860网 ]！ |
| 【关闭窗口】【我要收藏】 |
|
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
If IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
End If
resArray = Split(screenRes, delimiter, 2)
If (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
End If
End Function
Function googleDcmguid()
Dim dcmguid
dcmguid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(dcmguid) Then
googleDcmguid = "&dcmguid=" & dcmguid
End If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text" &_
"&channel=9449109979" &_
"&client=ca-mb-pub-1460443628685951" &_
"&color_border=" & googleColor("000000", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("ff0000", googleTime) &_
"&color_text=" & googleColor("ff0000", googleTime) &_
"&color_url=" & googleColor("A9501B", googleTime) &_
"&dt=" & googleDt &_
"&format=mobile_double" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes() &_
googleDcmguid()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%>
|
|
| 上一篇： 2005圣诞活动游戏创意收集（一） |
|
| 下一篇： 圣诞狂欢心动方案 |
|
|
|
|
|
|
