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

致布什的一封信

○ 徐光晔 高三

 

布什先生：

您好！

相信您接到这一封信函会感到十分的惊诧和不屑。但我从未因为你是世界超级大国的领袖，手中握有足以摧毁世界的尖端武器而畏惧你。因为我的心中有一个您，或者是美国近年来的当权者均缺乏的东西——公正。

首先，我要恭喜您在您人生数个重大战役中又一次获得胜利。打败克里，赢得连任，无疑又为您的政治生涯写下辉煌的一笔。这足以证明您的个人魅力和卓越的能力。但这些成绩却不足以弥盖您残忍的一面。在中东地区，您的名字像拉登一样响亮，在那里，您才是“恐怖主义”的象征。您下令您的军队在全世界肆意妄为，充当“世界警察”的角色，却干着有如侵略者般的勾当。美国大兵的铁蹄踏上哪里，哪里便开始降临噩梦。这就是您所谓的“公正”吗？这就是一个以文明、民主、法治而著称的国家的公正吗？

资本主义国家是以民主、法治、人权、平等而傲立在全世界的。也用他们在世界各大会议上嘲笑和质疑社会主义国家。可是就是美国这样的资本主义国家，在数次人权大会上提出反华提案，却任由自己的士兵虐待伊拉克战俘；在联合国大会上强调公正，却一次又一次干涉他国内政；在发表声明时道貌岸然的称“台湾问题属于中国内政，美国决不参与”，却又一次通过了对台销售武器的提案……在“人道主义”的口号中，是谁让

美国军队的脚下沾满了无辜平民的热血与泪水？在公正的外表下，是谁大国强权，一次次的为自己谋取私利？这就是伟大的布什总统执政下的美国吗？这也将是您连任后的美国吗？

也许，在美国人的心中，您是一个好总统。但在世界人民心中，您并非那么的完美。难道只有美国孤儿院中孩子的泪水才能换取您慈爱的一吻？难道只有美国士兵的生命才能揪起您心中的弦？难道只有美国的利益才是您心中衡量公正的标杆么？

是的，国家的利益高于一切，但是公正与正义，良心与良知却更加贵重。在作为一个美国人之前，您，布什先生，是一个人，一个生活在地球上，与六十多亿人民共同生活的人。而公正正是一个人最基本的道德，不是吗？假若大国强权即是您标榜的“公正”，我相信全世界人民会愤怒您对它的亵渎。

此致

敬礼！ 一名中国高中生

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

 

 

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