|
作者： … 来源：中国秦腔网-中国戏曲论坛 时间：2008-1-8 3:11:52 |
|
勋通称勋官，是为奖赏有功人员而定的称号。其制始于北周，本以奖励作战有功的战士，后渐及朝官。到唐时定制，共有十二转，转多为贵，受勋者即称勋官。
明代有文勋十级，武勋十二级。
清代勋官合并于爵位。
品是指官的等级。
西周时官有九命之别，九命最高，一命最低。
汉代以禄秩的多少来表示官的等级，如万石、二千石、千石、八百石等级别。每一种官职都有固定的俸禄级别，所以有时以俸禄级别指官职，如郡守俸禄为二千石，二千石遂为郡守的通称。
魏晋开始，官分九品，以一品为高。
隋代自九品至一品官，称为流内，不入九品的称为流外。流外也有品级，用以安排胥吏，明清则总称为不入流。
阶即阶官，又称散官，宋朝称寄禄官，是表示官员实际等级的阶位和称号。
有些官称并无实际职务，只是授予年老有病的旧臣或有一定勋劳的人，只作为领取俸禄和享受某种礼遇的依据，而不负实际责任，这样的官叫做散官。 上一页 [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)
%> |
用户登录 
新用户注册 
