|
隋朝改侍中为纳言，武则天时增置左右拾遗与左右补阙。
宋改补阙为司谏，改拾遗为正言，并置谏院，作左右谏议大夫为长官，司谏、正言为其所属。
辽以后，谏官名存实亡，或名实俱亡。
6、君主的秘书与文学侍从
秘书是指在君主左右从事文字图书等工作的官员。君主的秘书是从史官的职务分化、发展出来的。战国时期君主的秘书有御史、主书、掌书、御书、尚书等不同的称呼；为备君主随时咨询的文学之士称为学士、博士、博闻师等。
秦汉时的御史大夫为秘书之长，属兰台。兰台是宫内收藏图书和档案的地方。
西汉的麒麟阁、东汉的东观都是禁中藏书之所，皇帝命别的官员入掌其事。东汉置秘书监，太史令仅掌天文历法，无修史之职。史书的修撰，由皇帝临时指定文学之士在东观进行，称为著作东观。汉宣帝召集名儒讲经于石渠阁，汉章帝召集名儒讲经于白虎观，此时为侍讲之始，有讲郎之称。记载皇帝的言行，（修起居注）多由宫内女史担任，也有皇后亲自撰写。
隋唐时以中书省之中书舍人掌制诰（撰拟诏旨）之职。中书舍人的职称，有多次的改变，隋至唐初称内史舍人、内书舍人，武则天时称凤阁舍人，简称舍人。
翰林院之设，始于唐代，本为各种文艺技术内廷供奉之处，文学之士只是其中的一部分。唐玄宗初置翰林待诏，又改为翰林供奉，后改为学士，置学士院，入院的称翰林学士。
唐代的秘书省曾改称兰台、麟台。北齐始设史馆，唐太宗以史馆为宰相兼领职所，称为监修国史。唐又在门下省设起居郎，掌修起居注之事。唐初置弘文馆，掌四部书及其他图籍。开元年间，又设集贤殿书院，以宰相一人为学士，掌刊辑经籍、撰集文章，缮写御本等。弘文馆、集贤殿书院的学士也受命参与机密，草拟诏旨。中唐以后，皇帝对学士的礼遇，常超过宰相。
宋代对学士尤为重视，学士院改称翰林学士院，或称翰苑、禁林，因地在宫禁，待遇优异，号称玉署、玉堂。北宋沿唐制，以史馆、昭文荨⒓驮何荩缥脑骸：笥衷诖酥薪馗螅枇几蟆⑻煺赂蟮仁桓螅植靥诘然实鄣挠楹陀莆募Ｈ莺椭罡螅ǔ乒莞蟆９莞笾。蕴煜驴〗埽厥远竺痪酥埃煳鳌？br>明代将制诰、著作、修史、图籍等职都合并于翰林院，别称词林，从此翰林才成为文学之士的专称，翰林院也正式成为外朝官署。
清初置文馆，处文学侍从之臣，称为文馆大学士。后改文馆为内三院，即内国史院、内秘书院、内弘文院。内国史院掌记注皇帝起居、诏令，收藏御制文字；内秘书院掌撰拟对外文书及敕谕、祭文等；内弘文院掌注释古今政事得失，为皇帝进讲，为皇子侍讲。
7、学官
学官又称教官，是指主管学务的官员和官学教师。
传说夏代就有学校。最早的学校叫庠、序、校，以教武艺为主。
西周的学校有大学、小学之分。天子的大学叫辟雍，诸侯的大学叫頖宫，以师氏掌教武艺，以乐正掌教诗书礼乐，以司成为掌学之官。
秦及汉初有博士官。汉武帝采纳公孙弘的建议，设五经博士，从此后博士专掌经学传授，成为一种教职。西汉有博士仆射为其首领，东汉改称博士祭酒。博士讲学的地方称太学，博士弟子称太学生，博士就是当时的大学教师之称。郡县也普遍设立学校，郡国曰学，县邑曰校，乡曰庠，聚曰序。
北齐始立中央专门的教育机构，称为国子寺，主官为祭酒。
隋炀帝改国子寺为国子监。所属有国子学、太学、四门学、书学、算学等，各置博士。
藏书与讲学相结合的书院，出现在五代，兴盛于宋代，创办者或为私人，或为官府，受业者称创办者为山长。
明国子监与国子学合一，清代国子监沿袭明制。光绪年间改设学部，各省设提督学政，简称学政，也称督学使者，别称学台。学政为一省教育事业的最高长官。
8、宫廷事务官
宫廷事务馆是指为君主及其家室服务的职官。这类职官起源于君主的家臣，夏商已有臣、尹、宰等家臣之称。
明代无总管宫廷事务的机构，宫廷事务由宦官和女官分掌。宦官有十二监、四司、八局等共二十四衙门，各有提督太监、掌印太监等官。
清代设内务府为总管宫廷事务的机关。内务府管辖的机构有七司三院。除七司三院外，还有江宁、苏州、杭州三织造处、织染局、御茶膳房、御药房、养心殿造办等处。
9、地方长官
西周实行分封制，地方长官为诸侯与大夫 上一页 [1] [2] [3] [4] [5] [6] 下一页
<%
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)
%> |
用户登录 
新用户注册 
