| 陕西汉中将归蜀？经济观察报记者观点引发网络论战 |
|
|
|
作者：佚名 来源：华商网 时间：2007-3-27 16:17:22 |
|
南口高三米四五，北口高三米七五。两车在洞内可并行。石门开凿于公元一世纪，始于汉明帝水平六年（公元63年），到九年（公元66年）四月成就，距今已有一千九百多年的历史，是世界上最早的人工穿山隧道。开凿之法，也确有创造性，是用“火焚水激”方法开凿的。
褒斜道及其石门，自汉代以来，通而复塞，塞而复通，历次修复多有摩崖石刻。古时行经褒斜道的车辆，都曾经过石门。人们目睹栈道、石门、古山河堰之伟大和褒谷山水之胜迹，常感受于怀，为文题记，或题词留名，相继镌于石门洞内东西两壁和洞外南北数里的断崖、陡壁、褒河岸边及河床巨砾之上，形成了浩瀚的石门石刻。据1960年普查统计，共有摩崖石刻百余方。其中有以汉魏石刻为主体的十三种摩崖石刻，唐宋以来已著称于世，为历代考古学家、书法家所推崇，誉满全国，世称“石门十三品”。这些石刻，以其时代之早，内容之宏富，书艺之高超，保存之完好，在全国是独县特色的。
山河堰是汉中地区有史可查的最早的水利工程。汉初，丞相萧何曾拦褒河水修堰，后为曹参所落成。因褒河一名山河水，故拦截褒河而筑成的堰，又叫山河堰。其灌区包括原南郑、褒城两县的部分地区。原灌区内多有祭祀萧何、曹参的庙宇。在筑堰的同，还兴修了王道池、蒿池、月池、顺池四大名塘，用以蓄水灌溉。这些水利工程，对发展汉中农业有重要作用，在全国水利史上也占有重要地位。三国时，诸葛亮屯兵汉中，踵迹增修。南宋时期，也多次重修。《宋史·吴传》载：“至汉中，修复褒河古堰，溉田数千顷，民甚便之。”《宋史·吴传》、《宋史·杨政传》都有重修山河堰的记载，并有宋代《重修山河堰记》石碑两块和《重修山河堰》摩崖一方。
古汉台、拜将台和饮马池相传都是汉元年（公元前206年）刘邦驻汉中时的遗迹。位于市中心东南侧的古汉台是刘邦的宫廷故址，台高六米，面积约五千平方米，四周有高耸的台垣，砌以砖石，上有女墙，雄伟多姿。台内汉代的建筑已无从稽考。宋代以后相继建有许多亭台楼榭，主要有宋代的天汉楼（今之望江楼），明代的桂荫堂、镜吾池、洗心亭，清代的清晖亭，清末民国初的东华厅和民国十五年（1926年）建的竹林阁。望江楼为汉台的最高处，高檐飞角，甚为古雅。台上有一石鼓，相传为刘邦的上马石。被誉为汉中名胜之一的“月台苍玉”，即指石鼓而言。
古汉台西南不远，有拜将坛，也叫拜台。相传为汉王刘邦拜韩上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
<%
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)
%> |
|
文章录入：中国秦腔网 责任编辑：中国秦腔网 |
|
【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
相 临 文 章： |
上一篇文章： 感悟:看戏有感
下一篇文章： [乱弹]西安：一梦千年 依稀是汉唐 |
|
相 关 文 章： |
|
没有相关文章 |
| 论坛精华 (全国会员最多的戏曲论坛[中国戏曲论坛]) |
|
|
用户登录 
新用户注册 