<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_Article_STRING Recordset1.Source = "SELECT * FROM Article_01" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_Article_STRING Recordset2.Source = "SELECT * FROM Article_02" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_Article_STRING Recordset3.Source = "SELECT * FROM Article_03" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_Article_STRING Recordset4.Source = "SELECT * FROM Article_04" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Recordset5 Dim Recordset5_numRows Set Recordset5 = Server.CreateObject("ADODB.Recordset") Recordset5.ActiveConnection = MM_Article_STRING Recordset5.Source = "SELECT * FROM Article_05" Recordset5.CursorType = 0 Recordset5.CursorLocation = 2 Recordset5.LockType = 1 Recordset5.Open() Recordset5_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 5 Repeat4__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 5 Repeat5__index = 0 Recordset5_numRows = Recordset5_numRows + Repeat5__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 晨光文学社
 

冬日里的趣事

在北京的时候，我就听说今年的哈尔滨雪博会设在太阳岛，雪博会上还有雪雕大赛。我非常希望在哈尔滨度寒假期间，能够领略雪雕的风采。为了实现我的愿望，过年之前，妈妈抽时间，带我和表姐赵明去太阳岛看雪博会。

我们乘车去松花江，看见了许多冰雕耸立在松花江边：有的像几只企鹅在雪地上玩耍，有的像一只海狮腾空跃出海面去顶球，有的像一个大骆驼趴在地上睡觉，还有的像一个面包做的小房子。在这些冰雕里，有的滑稽可爱，有的美丽生动……其实，最滑稽的还是我，在滑了一个小冰滑梯后，站起来的我咣当一声摔了一跤。站起来后，我向另一个滑梯进军，咣当一声又摔了一跤。

要去太阳岛，先经过松花江。在松花江上有一个大冰滑梯：长有 50 多米，高有 10 多米左右，从上面滑下去的人，无不大声尖叫。一看这架势，胆小的表姐说“你玩吧，我从台阶下去。”

“你胆好小呀！”我讽刺地说道“看我的吧！”

于是，我拿着草垫子上了滑梯。有一对母子坐在草垫子上，工作人员让母亲抱紧小孩并把身子向前探，便把她们送了下去。听到小孩子的叫喊声，我有点犹豫。但最后还是坐了下来。

当我风驰电掣般向下滑时，心一下子提到了嗓子眼里，我闭上眼睛，只听见风在我耳旁呜呜作响，过了一会感觉滑的慢了，睁开眼睛一看，原来已经到江面了。我讥笑表姐胆小，她却说，滑雪比这刺激。我没听进去，自以为是英雄似的，昂首阔步向前走。咣当，我又摔了一跤。

我们沿着冰面走，不一会儿就来到了太阳岛。我们要沿着太阳岛的边缘走到雪雕公园，太阳岛的边缘有一座冰长城，长城烽火台就是大门。我们走着走着，咣当一声，我又摔了一跤。

“怎么搞的？”我说着，爬了起来。“怎么老摔跤。”

咣当！！！

妈妈为了“救”我，也和我一同摔倒。我们的狼狈相让表姐笑个不停。

“嘻嘻，你怎么摔了这么多次。”

“我……我的鞋不行。”我说，“你是在这里土生土长的，你的鞋也是土生土长的，而我的鞋不是。”我有些窘迫。

“那我扶你走吧。”

几分钟后，由于表姐的“疏忽”，我又摔了一跤。

“唉，一个堂堂五尺男儿……”我爬起来向前走，“竟然，”咣当！“又摔了一跤。”

经过一路的“五五二十五跤”，终于来到了雪雕公园。在雪雕公园里，我们看了许多雪雕，有“金猴报春”、“大丰收”、还有“童趣”、“喜迎未来”等等。那栩栩如生的雕塑在阳光的辉映下熠熠发光，把我带进美妙绝伦的童话世界，身上的伤痛也不翼而飞了。“太棒了！太棒了！”我不禁高声赞叹。

在国际赛区中，有一个“龙”的形象，妈妈以为是中国的作品，结果一看，是韩国四队的作品。有一个象书的雪雕，在上面有各国的文字，名字叫“世界奇书”，是德国一队的作品，旁边的人说：“是德国的，我说字怎么这样难看。”我暗自发笑。中国四队的“佛光普照”有着中国的传统艺术感。

在公园中心有一个长和高都有二十多米的雪雕，是一群龙拉着一个妇女，妇女怀里抱着一个孩子，体现了我国神话艺术的美感。

雪博会上晶莹剔透的雪雕群让我忘记了冬日里的寒冷，使我流连忘返。但是最让我羡慕不已的是那些挥铲雕塑创作雪雕的大哥哥、大姐姐，雪块在他们手下变得栩栩如生。伴随着游人一声声赞叹的同时，他们也尽享了冬日里的快乐。

作 者 : 八十中学初中部

初一（七）班 杨星九

 

 
首页 晨光简介 晨光文汇 晨光记忆 个人专辑 晨光报 留言板

 

 

　
本站及所有文章属于北京80中学晨光文学社,版权所有，不得剽窃,违者后果自负.
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %> <% Recordset5.Close() Set Recordset5 = Nothing %>