<%@LANGUAGE="VBSCRIPT"%> <% dim qxjb qxjb = session("qxjb") 'qxjb =1 if isEmpty(qxjb) then response.write "权限级别无效!" end if set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_STAT_STRING Recordset1.Source = "select xxid,xxbt,fbrq,ksmc from t_dtxx,t_ksbm where t_dtxx.ksbm = t_ksbm.ksbm and xxlbbm='01' order by fbrq desc" Recordset1.CursorType = 1 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 15 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows dim CurrentPage CurrentPage = 1 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount Recordset1.PageSize = Repeat1__numRows pgcount = Recordset1.Pagecount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = Recordset1 MM_rsCount = Recordset1_total MM_size = Recordset1_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) CurrentPage = MM_offset \ Repeat1__numRows +1 ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Recordset1_first = MM_offset + 1 Recordset1_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> 泸州统计信息网
  泸州概况
  民族宗教
  城市建设
  历史沿革
  行政区划
  自然资源
  经济产业
  社会事业
<首页走进泸州图片新闻统计动态统计公报调查分析统计数据政务公开法律法规统计知识

<地理位置> 泸州市位于四川省南部边缘,东接重庆市荣昌、永川、江津和贵州省赤水、习水县,南邻贵州省仁怀、金沙、毕节和云南省镇雄、威信县,西连宜宾市兴文、江安县,北靠自贡市富顺县和内江市隆昌县。地处东经105°09′-106°28′,北纬27°39′-29°20′之间,跨经度1°18′,纬度1°41′,东西宽113公里,南北长185公里。总幅员面积12246.87平方公里。
泸州市处川东南平行褶皱岭谷区南端与大娄山的复合部,四川盆地南缘向云贵高原的过渡地带,兼有盆中丘陵和盆周山地的地貌类型,分属四川盆南山地与丘陵区和巫山大娄山中山区两个地貌二级区。总的特点是:南高北低,以长江为侵蚀基准面,由南向北逐渐倾斜,山脉走向与构造线方向基本一致,呈东西向、北西向及北东向展布。大体上以江安──纳溪──合江一线为界,南侧为中、低山;北侧除背斜形成北东向狭长低山山垅外,均为丘陵地形。最低点是合江九层长江出境河口,海拔203公尺;最高点是叙永县分水杨龙弯粱子,海拔1902公尺,相对高差1699公尺。按其特点,全市地貌大体上可分为四种类型。
1、北部浅丘宽谷区:包括泸县、江阳区、龙马潭区、合江县和纳溪区长江以北的广大地区,为川东平行褶皱地带的延伸部分,属四川盆中丘陵区的南缘,面积占总幅员面积的18.6%。海拔多在250-400公尺,最高为万寿山,海拔757公尺。长岗山多为林地,浅丘宽谷多为耕地,田多土少,是全市主要农业区。
2、南部低中山区:包括叙永、古蔺县大部,属四川盆地南缘的盆周山地低中山地貌类型区,面积占总幅员面积的38.6%。出露的地层以古老海相沉积的各类灰岩、泥岩为主,侵蚀严重,形成山峦迭嶂,沟谷纵横的复杂地貌类型,平均海拔800公尺左右,最高为叙永县分水杨龙弯粱子,海拔1902公尺。山地为林地、旱地和园地(茶园);槽坝地势平坦,以耕地为主,土壤肥沃,土层深厚,也是我市主要农业区之一。
3、中部丘陵低山区:长江以南,南部低中山区以北为中部丘陵低山区,包括泸县少部,江阳区一部,合江县、纳溪区大部和叙永、古蔺县北部,面积占总幅员面积的41.5%,山地海拔一般为500-1000公尺,最高为古蔺县斧头山,海拔1895公尺,丘陵海拔350-500公尺。山地以林地为主,全市现存的两大片原始森林──福宝林区和黄荆林区以及楠竹林,均集中在这一区,丘陵以耕地为主,其次是园地(果园和茶园)。
4、沿江河谷阶地区:沿长江、沱江等大、中河流两岸,由于河流的冲积、堆积而形成数级阶地,面积占总幅员面积的1.3%。一、二级阶地为第四系现代河流冲积物,阶面平坦宽阔,宽达500-1000公尺,海拔250公尺以下,相对高差小于30公尺,厚15-20公尺,以耕地为主,土层深厚,土壤肥沃,是全市蔬菜、甘蔗、龙眼的集中分布区。三、四级阶地为第四系近代冰水沉积物,由于流水的侵蚀,只零星残留于河谷两岸的基座台面上,海拔250-330公尺,多为耕地和园地,土层深厚,是全市甘蔗、荔枝的集中产区。
市内河流属长江水系,以长江为主干,成树枝状分布,由南向北和由北向南汇入长江。境内河流众多,集雨面积50平方公里以上的河流有61条,其中50-100平方公里的30条,100-400平方公里的20条,400平方公里以上的11条,主要河流有长江干流、沱江、赤水河、古蔺河、永宁河、塘河、濑溪河、东门河等。河道普遍具山区性河道特征,河岸坡度陡,多呈V形谷或U形谷,宽谷与窄谷交替,河床较大,多急流险滩。
长江由江安县经纳溪区大渡口处入境,由西向东流经纳溪、江阳区、龙马潭区、泸县、合江五县(区),在合江县符阳村九层岩出井流入江津县。市境内长133公里,集雨面积9832平方公里,出境流量为8533立方米/秒,入境水量2420.8立方米,出境水量2691亿立方米。
沱江系长江左岸支流,由富顺县经泸县海潮处入境,在市境北部由西北向东南,经泸县、江阳区在市区管驿嘴处汇入长江。境内长44公里,集雨面积1258平方公里。河床窄,天然落差小,年均河口流量455立方米/秒,年均河口输沙量0.2356亿吨。洪水季节可通航,枯水期部分段可通航。水能蕴藏量6.4万千瓦。
永宁河为长江南岸支流,发源于叙永县黄泥乡,由南向北流经叙永、纳溪,在纳溪区安富镇汇入长江,全长152公里,集雨面积2320平方公里。天然落差846.6公尺,平均比降5.57‰,水能蕴藏量12.87万千瓦,多年平均河口流量66立方米/秒,年均河口输沙量0.0199亿吨。
赤水河为长江南岸支流,在泸州市最南端,为泸州市与贵州、云南省的界河,由云南镇雄县与泸州市叙永县交界处梯子岩入境,由西向东,再折向东北,流经叙永、古蔺和贵州省毕节、金沙、仁怀、习水、赤水县(市),在合江马街处汇入长江,境内长339公里,集雨面积5637平方公里。
赤水河流经山区,河谷狭窄,河岸陡峭,河床天然落差大,平均比降1.55%。水流急,多年平均河口流量309立方米/秒,水能资源十分丰富,但航运受到一定限制。
此外,市境内流域面积在500平方公里以上的河流还有古蔺河、塘河、濑溪河、古宋河和水尾河。