|
，是因为还有余音，即华语世界各地都有的诗社。
不过，诗社只是诗词爱好者之间的雅聚，作用也仅限于彼此唱和，交换心得，即使结集出版，印数也不多，而且只在诗词爱好者的圈子内流通。另一方面，分散各地的诗社也各偏于一隅，有的老死不相往来，有的只是偶尔互通声气而已。这种“游兵散勇”式的诗社活动，当然不可能对华语世界的文学活动产生什么影响。
所以，在一般人看来，诗词歌赋只是古代文人的玩意儿，现代文人已经不兴这套了。
果真如此吗不是的。现在，互联网上有很多专门的传统文学网站，让爱好此道的网友讨论和创作传统文体。而在互联网上进行传统文学创作的“鼻祖”，就是上文提到的方舟子和网名“莲波”的女网友。
1995年，方舟子和莲波在互联网上互相唱和，后来方舟子把两人的诗词唱和辑成《莲舟唱和集》[60]，收藏在《新语丝》网站，成了互联网上的第一部由现代人创作的传统文学文集。此处摘录《莲舟唱和集》片段，以餐诸位：
莲波《蝶恋花。元宵赠友》
去日匆匆浑不记。元夜他乡，灯影留残迹。犹忆小园花满地，西风难会相思意。
故国东徊三万里。浅笑深颦，抛却怎容易。万爱千愁只一偈，与君闲话勘悲喜。
方舟子《蝶恋花。和莲波》
灯火楼台心底记。极目归途，骤雪销行迹。身寄苍茫胡北地，何人可诉漂零意。
相约一生春梦里。事了无痕，总聚难离易。呓语滔滔千百偈，因缘勘破空悲喜。
莲舟唱和是近十年前的事了。到了今天，互联网上的传统文学创作，可以说是百花齐放，百鸟争鸣，而且各种文体都有。以下是一些例子：
《书忠王传后》[61]
夫言天国事者，其可一日不言及忠王乎而传阃卒犹易，书忠王至难。
何耶笔墨昭昭，毁誉谤谤，人言可畏，人意难明也。然王偷生片刻，忍死须臾，以成七万言者，无非欲榜此身之失，以为后世之鉴而已。王意如此，余安忍畏难而掷笔哉王本寒门，窥学塾以羡经史，愁风雨而力桑麻。畏彼蛇虎，恍惚天兄天父；苦此饥寒，懵懂开土开疆。岂是梁园惟知从人驱使；真为富贵也须尽我心谋。薄捐薄赋，睹百姓之喜以喜；驱胡驱妖，染六军之豪而豪。
高桥尔，庐郡尔，渐蒙寄任；镇江也，高资也，初显声名。时北鹿虽失，西疆已拓，天国之势，如日之升。当此时也，虽权微职小，而王中心之乐也何如迨祸起神阙，乱生金陵，死亡相继，人心不壹。王方勉驭疲卒，坐困危城。以王之心，岂不恋恋乎翼殿之去以王之志，安忍澹澹于天京之危！
虑孤注而合捻，权饮扰民之鸩；思大义以容韦，未顾腹心之疑。朝门一表，本章乃及乎法制；浦口四瞻，烽火已至于京郊。抑洪而褒石，真不知失举者罪拨乱以反正，岂不闻失政者亡！戢羽乎镇郡，犹全一旅之众；设策于枞阳，已膺百僚之服。迄天长至三河，峥嵘犹藏乎帷幄；自杭府下常苏，锋芒已耀于江湖。观王指浙省以解京围，取势乃远乎千里，孙吴用兵，不过如此耳，是以曾氏犹云，此贼中得意之笔也。
……
这篇署名“喵喵2001”的古文，笔力浑厚，气脉旺盛，如果我不事先说明，谁能想到是出自今人手笔
《牡丹赋》[62]
园圃兮冠群芳，出洛阳兮王天下，得天地之灵气兮，国色神韵；集日月之精华兮，天香奇葩；流光溢彩兮，风姿卓越；雍容华贵兮，端庄典雅。
鼎鼎之名兮，无须直唤；赫赫之位兮，尊为国花。
……
秋翁为之而痴，常生与之结发。李白缶击春风，欧阳箫吹月下。枫桥济之，植以明志；松泉松龄，喻之人化。总理周公，抱憾未睹；书记江君，怀兴而察。古今名人高士，丽 << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页
<%
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
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_image" &_
"&channel=6495040935" &_
"&client=ca-mb-pub-9595218071455095" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&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()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%> |
用户登录 
新用户注册 
