%@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
%>
忠县二手网
|
|
|
|
忠县简介 |
|
|
忠县,西周属巴国地;秦属巴郡;汉置临江县,王莽时改称临江,仍属巴郡。汉献帝时改属永宁郡;梁大同六年(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号 |
|
|
|
|
|
|
<%
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
%>