<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if(Request.QueryString("id") <> "") then Command1__u_id = Request.QueryString("id") %> <% Dim mxdq Dim mxdq_numRows Set mxdq = Server.CreateObject("ADODB.Recordset") mxdq.ActiveConnection = MM_houtai_STRING mxdq.Source = "SELECT * FROM mxdq" mxdq.CursorType = 0 mxdq.CursorLocation = 2 mxdq.LockType = 1 mxdq.Open() mxdq_numRows = 0 %> <% Dim Bigclass Dim Bigclass_numRows Set Bigclass = Server.CreateObject("ADODB.Recordset") Bigclass.ActiveConnection = MM_houtai_STRING Bigclass.Source = "SELECT * FROM BigClass" Bigclass.CursorType = 0 Bigclass.CursorLocation = 2 Bigclass.LockType = 1 Bigclass.Open() Bigclass_numRows = 0 %> <% Dim Dat_News__MMColParam Dat_News__MMColParam = "1" If (Request.QueryString("id") <> "") Then Dat_News__MMColParam = Request.QueryString("id") End If %> <% Dim Dat_News Dim Dat_News_numRows Set Dat_News = Server.CreateObject("ADODB.Recordset") Dat_News.ActiveConnection = MM_houtai_STRING Dat_News.Source = "SELECT * FROM Dat_News WHERE NewsKey = " + Replace(Dat_News__MMColParam, "'", "''") + "" Dat_News.CursorType = 0 Dat_News.CursorLocation = 2 Dat_News.LockType = 1 Dat_News.Open() Dat_News_numRows = 0 %> <% Dim Dat_link Dim Dat_link_numRows Set Dat_link = Server.CreateObject("ADODB.Recordset") Dat_link.ActiveConnection = MM_houtai_STRING Dat_link.Source = "SELECT * FROM Dat_Link" Dat_link.CursorType = 0 Dat_link.CursorLocation = 2 Dat_link.LockType = 1 Dat_link.Open() Dat_link_numRows = 0 %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_houtai_STRING Command1.CommandText = "UPDATE Dat_News SET Hits =Hits+1 WHERE NewsKey=" + Replace(Command1__u_id, "'", "''") + " " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> <% Dim tjxx__MMColParam tjxx__MMColParam = "1" If (Request.QueryString("1") <> "") Then tjxx__MMColParam = Request.QueryString("1") End If %> <% Dim tjxx Dim tjxx_numRows Set tjxx = Server.CreateObject("ADODB.Recordset") tjxx.ActiveConnection = MM_houtai_STRING tjxx.Source = "SELECT InfoClass, InfoKey, jg, smalldq, Topic FROM Dat_Information WHERE tj = '" + Replace(tjxx__MMColParam, "'", "''") + "' ORDER BY UpdateTime DESC" tjxx.CursorType = 0 tjxx.CursorLocation = 2 tjxx.LockType = 1 tjxx.Open() tjxx_numRows = 0 %> <% Dim hyzx__MMColParam hyzx__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then hyzx__MMColParam = Request("MM_EmptyValue") End If %> <% Dim hyzx Dim hyzx_numRows Set hyzx = Server.CreateObject("ADODB.Recordset") hyzx.ActiveConnection = MM_houtai_STRING hyzx.Source = "SELECT NewsClass, NewsKey, Topic, UpdateTime FROM Dat_News WHERE NewsClass = " + Replace(hyzx__MMColParam, "'", "''") + " ORDER BY UpdateTime DESC" hyzx.CursorType = 0 hyzx.CursorLocation = 2 hyzx.LockType = 1 hyzx.Open() hyzx_numRows = 0 %> <% Dim gongao__MMColParam gongao__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then gongao__MMColParam = Request("MM_EmptyValue") End If %> <% Dim gongao Dim gongao_numRows Set gongao = Server.CreateObject("ADODB.Recordset") gongao.ActiveConnection = MM_houtai_STRING gongao.Source = "SELECT NewsClass, NewsKey, Topic, UpdateTime FROM Dat_News WHERE NewsClass = " + Replace(gongao__MMColParam, "'", "''") + " ORDER BY UpdateTime DESC" gongao.CursorType = 0 gongao.CursorLocation = 2 gongao.LockType = 1 gongao.Open() gongao_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 mxdq_numRows = mxdq_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 Bigclass_numRows = Bigclass_numRows + HLooper1__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 5 Repeat6__index = 0 gongao_numRows = gongao_numRows + Repeat6__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 11 Repeat5__index = 0 hyzx_numRows = hyzx_numRows + Repeat5__numRows %> <% Dim HLooper2__numRows HLooper2__numRows = -11 Dim HLooper2__index HLooper2__index = 0 Dat_link_numRows = Dat_link_numRows + HLooper2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 11 Repeat4__index = 0 tjxx_numRows = tjxx_numRows + Repeat4__numRows %> <% Dim MM_paramName %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("mbemer")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="index.asp" MM_redirectLoginFailed="err.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_houtai_STRING MM_rsUser.Source = "SELECT Member, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM Dat_Member WHERE Member='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% '''''NFENG封装长文本截取插件' '''''QQ:20498778''''''''''''' Function Trim_LString(str,strlen) strlen = strlen*2 if str="" then Trim_LString="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then Trim_LString=left(str,i) & "…" exit for else Trim_LString=str end if next Trim_LString=replace(replace(replace(replace(Trim_LString," "," "),chr(34),"""),">",">"),"<","<") End Function function str_format(str) str = replace(str, "%", "%") str = replace(str, "script", "Script") str = replace(str, ">", ">") str = replace(str, "<", "<") str = Replace(str, CHR(32), " ") str = Replace(str, CHR(9), " ") str = Replace(str, CHR(34), """) str = Replace(str, CHR(39), "'") str = Replace(str, CHR(13), "") str = Replace(str, CHR(10), "
") str = Replace(str, " ", " ") str_format=str end function %> 忠县二手网
忠县二手网:做重庆市忠县地区最专业的免费二手交易平台,我们的网址是www.zx2s.com 旧版入口
忠县二手网A1广告位
免费发布信息
免费注册会员
预定广告位置
供求首页: 最新信息 - 推荐信息 - 热门信息 - 免费发布 - 忠县新闻 - 行业资讯 - 行业知识 - 积分说明 - 全部分类 - 忠县网址之家
供应信息 求购信息 要闻信息
动态信息 招聘信息 求职信息
展会信息 其它信息 免费发布
忠县简介
忠县

    忠县,西周属巴国地;秦属巴郡;汉置临江县,王莽时改称临江,仍属巴郡。汉献帝时改属永宁郡;梁大同六年(540年)于县设置临江郡,属楚州;西魏废帝二年(553年)于县设置临州,辖二郡三县,临江县隶临州临江郡;唐贞观八年(634年)置忠州,以意怀忠信为名。唐天宝初年(742年)改为南宾郡.唐乾元初年(758年)复为忠州,属山南道,州郡治地临江县;宋初名忠州南宾郡,属夔州路。南宋咸淳元年(1265年)升为咸淳府,设府治于皇华州(今顺溪乡皇华村)管五县。元朝恢复忠州,至元二十一年(1284年)改属重庆咯。明洪武初年(1368年)以州治,临江县省入州,属重庆府。清雍正十二年(1734年)升忠州为直隶州,1913年改忠州为忠县。1914年归属四川省东川道。1949年12月7日解放,属万县专区。现隶属重庆市

    忠县位于长江北岸,距重庆市中心239公里,东邻万州区,南接石柱县,西连丰都、垫江县,北壤梁平县。地处重庆市中部、三峡库区腹心地带,凭借长江黄金水道与沿岸六省一市相连并通向世界。幅员面积2148平方公里,辖19个乡23个镇、780个村、7388个村民小组,20个居委会。1998年末总人口98.4万人。人口以汉族为主,有12个少数民族。

    境内海拔最低117.5米,最高1680.3米,长江斜贯境内,流经9镇1乡,长88公里,占三峡水库全长660公里的13.33%。有常流性溪河28条,均属长江水系,其中8条的流域面积大于50平方公里。

  忠县物产丰富,有高等植物约161科1000余种。主要农作物为水稻、小麦、玉米、薯类、油菜、烟叶、榨菜等,经济林以桑、茶、柑橘为主。有水域面积15.6万亩,水力蕴藏量5.6万千瓦。矿产资源种类较多,主要矿种品位高、储量大,已探明的矿产资源主要有天然气、岩盐、石灰石、原煤、页岩、高岭土、铜、铁、沙金等18种。天然气总储量约280亿立方米,年产气5亿多立方米;岩盐3.36亿吨,石灰石44亿立方米,原煤3000万吨,油页岩约10亿吨。

  忠县名优特产享誉中外,忠州豆腐乳、忠州榨菜、真龙柚、中国虫雕等名优特产品在国内多次获奖。

  忠县风光独特,文物古迹遍布城乡,迄今发现的古建筑、古遗址、古墓葬、造像、石刻等近200处,有159个文物点列入中国文物地图集。地下文物更是星罗棋布,最近发掘的GAN井中坝遗址被称为中国活的二十四史。

  被誉为“江上明珠”的石宝寨距县城39公里。寨依玉印山山势而建,山高十余丈,孤峰独立,绝壁陡峭,四周空无依傍。寨始建于清康熙年间,为九层木质阁楼,直达山巅,隐含着攀登九重天之意。1956年维修时新增三层,达十二层,通高56米。山顶有一座寺庙,名为兰若殿。寨内有三组雕塑群像,一为巴蔓子刎首保城,二为张翼德义释严颜,三为秦良玉兴兵守土,巴、严、秦三人都是该县历史上忠肝义胆的杰出人物。由寨上可以观江景,由江上可以观寨景,各尽其妙。

  唐代著名诗人白居易任忠州刺史(元和14年至17年,即公元819年至公元821年),明崇祯3年(公元1616年)为之建白公祠,清嘉庆年间曾加以培修。祠在县城西山公园西端,有巴台寺、正殿、醉吟阁组成,建筑风格颇为别致。祠内现有白居易的石雕像,还陈列着白公当年所用石砚、及其诗文著述等珍贵文物。

  忠县还有巴渝仅存两处汉阙。一是东巴王庙祠阙,又名丁房双阙。双阙高7米,东西分离距2米,始建于1800年前的东汉后期。阙身雕满仙灵云气、珍禽异兽、人物故事,宫殿式顶雕有生动的图案。西阙脊顶还塑了一大圆球形古刹。无铭阙又名宝塔子,为单阙,在城北8公里处,也是建于东汉后期。阙身高5.44米,周长8米,由九墩石叠砌而成。正面雕刻一异兽,极狰狞威猛。三、六两层角上分镂裸体卫士,下为剽悍男性,上为丰满女性,体现出那个时代的审美风尚。阙盖石雕瓦楞,其状若龟,象征吉祥寿考。县城内还有唐代佛像石刻,吴道子画像圣碑,虽不十分完美,但在全国罕见。

  忠县人以忠厚纯朴、勤劳勇敢著称,产生了以巴曼子、严颜、秦良玉为代表的忠臣良将和以英国皇家学会会员、植物学家方文培,著名作家马识途等为代表的名人贤士。

  忠县是三峡工程重点移民县,按发展规划,未来的忠州将是三峡库区唯一兼有山城特征、水城神韵、岛城风貌、月城形象的山水岛城。



更多新闻 』『 关闭窗口
Copyright © 2000-2010 重庆市忠县二手网Inc. All Rights Reserved .地址:重庆市忠县巴王支路15号
TEL:13372733898  QQ:361886963  E-mailtycq2002@163.com
本站由忠县春笋网络主办 渝ICP备06007144 您是本站的第位访问者
<% mxdq.Close() Set mxdq = Nothing %> <% Bigclass.Close() Set Bigclass = Nothing %> <% Dat_News.Close() Set Dat_News = Nothing %> <% Dat_link.Close() Set Dat_link = Nothing %> <% tjxx.Close() Set tjxx = Nothing %> <% hyzx.Close() Set hyzx = Nothing %> <% gongao.Close() Set gongao = Nothing %>