|
作者:周慧兰 来源:中国改革[2007-03] 时间:2007-3-3 10:01:12 |
|
进,权贵不能进”的气势。先贤祠肃穆典雅而庄重、彰显至高无上的威严和荣耀,上面镌刻的“献给伟人们,祖国感谢他们”的文字表达了法国人对大师的崇敬。中国要重建科学和文化的圣殿,需要人们从心灵上善待杰出人物,树立其精神的丰碑,这不是用世俗金钱、权力和地位可替代的。
三是加快体制改革尤其是政治体制改革。在当前,要深化科研体制改革和改善意识形态管理体制,学习和借鉴国外的意识形态管理经验,确保学术与政治分离,在不反对党的领导和不违宪不违法的前提下,给予人文科学和文学艺术最大限度的自由,从体制上落实百花齐放百家争鸣的方针,真正营造宽松、自由、和谐的制度环境,从而激发人固有的知性、感性和神性,最大限度地发挥人的创造性。唯其如此,我们才能走进一个无愧于伟大民族复兴的群星灿烂、大师辈出的时代。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]
<%
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)
%> |