|
作者：李敏 来源：成都日报 时间：2006-3-13 12:06:45 |
|
，奖励优学之士，广东学风为之一振。乾隆非常满意，一纸状书，又任命他为直隶通永道道员。
1782年，李调元奉旨押运《四库全书》一部到盛京（今沈阳），途经卢龙县时突下大雨，知县郭立泰无视押运《四库全书》乃钦命重任，故意刁难李调元，致使“黄箱”浸水，书籍打湿。李调元向知府控告郭立泰，岂知知府知县乃是一丘之貉，并不过问。李调元一怒之下，将知府、知县告至直隶总督英廉处。英廉反攻讦李调元有“失察之罪”，李调元被罢官，流放新疆伊犁。行至河北，河北总督袁守纲向乾隆帝求情：“请恩准赎其罪，放其归田著书立说，亦为善。”李调元东拼西凑了2万两银子，才摆脱了流放之苦。此时的他早已厌倦官场，希望回到罗江老乡，在田园山水、书林典籍之中度日养老。1785年，52岁的李调元回到罗江，杜绝了与官场的一切往来，官场的大起大浮在他眼中唯同浮云而已。
痛失“万卷楼”
早在李调元尚未赴京任职时，李父在浙江任上便为其遍购古今图书10万卷，运回罗江老家，分经、史、子、集40橱，并造一座“万卷楼”专供藏书之用。李父惜书如金，尤喜藏书，往往不惜重金求书。李调元中进士为官后，常在外地为官，碰到古籍善本、罕见图书，也不惜重金求之。在李家父子不遗余力地收集之下，万卷楼藏书规模日益增大，名声渐响，李调元也由此被后人称为万卷楼主。
李调元藏书，并非只藏不读，他的藏书是为自己读书与著述服务的，卸职回乡后，李调元即置身于万卷楼浩瀚书海之中，专心攻读，涉猎极广。李调元晚年陆续撰写了《雨村诗话》《淡墨录》《新搜神记》等书，还整理了自己早年的诗集《童山诗集》和文集《童山文集》。李调元一生著述多达50余种，涉及经、史、音韵、文字、方言、地理、风俗以及诗、词、曲等各个方面，堪称全才。
《童山诗集》共40卷，收录了李调元15岁到69岁的诗作，可以说是李调元一生的心血。诗集题材广泛，有行游、经历、感受种种，也有一些反映民生疾苦的佳作，如《石匠行》《窑户行》《乞儿行》《担炭行》等，他的诗作朴质豪放，被袁枚誉为“才豪力猛”，纪晓岚也说他：“信手拈来都是对，随时吟出俱成诗。”在诗坛颇有声誉。诗还给李调元带来过一段跨国友谊。乾隆42年元宵，朝鲜文人徐浩修、柳弹素、李德懋在北京琉璃厂书肆游玩，无意购得李调元诗集。回驿馆传阅后一致赞叹，深感其书“超脱沿袭之陋，一任淳雅之真……其格致之苍健，音韵之高洁，无心于山谷放翁而自合于放翁”。三位朝鲜诗人四处打听李调元的住址，此时李调元正因“浮躁”停职，朝鲜知音的欣赏令他欣喜不已，他特意写下《寄柳几何》一诗，缅怀这段友谊：
秋从昨夜来，举头见飞雁，如何春水波，人去长不见。去年篱下菊，今复掇其英，如何白衣人，不复门前迎。思君令人老，思君令人瘦，人老尚可支，人瘦不可救。故乡在西蜀，时于梦中望，及梦翻在东，常若来君旁。风摇梧桐影，雨动芭蕉叶，谓是君忽来，不见君步履。只此白石垂纸，曾为君所遗，还以书赠君，寄我长相思。
李调元晚年四川正值战乱，书院少，学子少，民生凋敝。江南一些读书人甚至视四川为“边鄙”之地，一向崇敬苏轼的浙江才子冯应榴来四川作主考官时，也认为蜀中无人，故意出了一道考题《井蛙赋》，讽刺四川考生是井底之蛙。
李调元暗下决心，誓为川人争气，他暗暗收集蜀中奇书、杂志，编纂出巨作《函海》。回老家后，费尽千辛万苦，终于使《函海》得以印行成书。《函海》是一本奇闻杂著，记录了李调元平素收罗的历代蜀人著述之罕传秘籍奇 上一页 [1] [2] [3] 下一页
<%
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
Function googleDcmguid()
Dim dcmguid
dcmguid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(dcmguid) Then
googleDcmguid = "&dcmguid=" & dcmguid
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=" &_
"&client=ca-mb-pub-5471301711049016" &_
"&color_border=" & googleColor("336699", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("0000FF", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&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() &_
googleDcmguid()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%><%
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)
%> |
用户登录 
新用户注册 