<%@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 %> 晨光文学社
 

无题

高一（6）周密

梦里
你看着我
不再闪躲，没有言语
你靠着墙，
身上落满细碎的阳光
我想跨越那段距离
却转身离去
她与我擦肩而过
走向你的不是我

奔跑在长廊，无数暗光的交织
影影绰绰
我选择流泪
拉开一条灰色迷离的网膜
亮了，幻化出你的笑容
好模糊，仿佛轻触着你的唇，你的眉眼
梦得太长，太久
梦里，我居然知道梦里是梦
天快要亮了
你看见了么？

无题
你放心，我已学会品味孤单
你放心，我已和寂寞如影相伴
你放心，我已习惯空亮的房间
你放心，我正开始喜欢一个人的午餐
生活是一张画卷
欣赏你曾涂鸦的圈点
轻轻掸落上面细琐的忧伤
一遍遍
记忆是一团长线
你曾剥夺放纵她的特权
愈拉愈长没有方向感
没有断点
千篇一律的思念，千回百转的笑颜
最后，最后还是请你放心
我回闭上眼
等你越走越远
直到消失在我的视线……

无题
你知道
来了又走了的是风
却吹下一片叶子
它在空中凌然舞动
似那些早已逝去的蝴蝶

叶是火红的
在阳光的照耀下
闪起迷眼的金色的边
轻盈的身躯
舞得婉转
像吹皱一池春水
让时光都不忍流逝，打着旋
带着对枝头的留恋
落了
有一束阳光

 

 

 

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

 

 

　
本站及所有文章属于北京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 %>