<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_houtai_STRING Recordset1.Source = "SELECT * FROM dbo.dongtai ORDER BY ID DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset1_total Dim Recordset1_first Dim Recordset1_last ' set the record count Recordset1_total = Recordset1.RecordCount ' 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 End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If End If %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index 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 MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' 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 MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If 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 MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If 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 MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 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 End If If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount End If 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 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) 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 & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> 贵州省交通厅征费稽查局--机构设置
欢迎光临贵州省交通厅征费稽查局机构设置栏目


 


 

 

铜仁征费稽查处简介

    贵州省交通厅铜仁征费稽查处成立于1987年2月,由原交通监理所分离而组建.经历了车辆监理所(养路费征收所)、养路费征收稽查处等几次体制改革和更名。多年来,我处在各级政府和厅主管部门的领导和支持下,经历了车购税划转、"费改税"等各方面的严峻考验,经历了车辆基数小、征费难度大、阻力大、环境差、困难多的考验,经历了依靠行政手段征费到科学征费、依法征费、规范执法的重要转折。
    特别是从2001年以来,在新领导班子的带领下,在厅局领导的大力关心和支持下,全处进行了大刀阔斧的改革。面对目前的新形势、新问题,从自身找问题、找原因,积极应对改革,稳定职工队伍,提高职工素质,大胆起用了一批年轻有为的中层领导干部,在全面实行目标责任制管理的基础上,加快全处的信息化、网络化建设,加快办公设备的更新,加大稽查力度,加强行政执法建设,主动上门催缴和清欠。与有关部门积极配合,在新时期运用新的方法多征费,征好费,为铜仁地区交通事业的发展作出了巨大的贡献。

养路费征收情况

    规费征收连年超额完成任务。五年累计完成汽车养路费16035万元,代征车购费10735万元,出色完成筹集公路建设资金的重要任务,为铜仁交通事业的蓬勃发展作出巨大贡献。

    各项管理逐步走上和规范化轨道。全处全部实现微机征费,计算机的应用已经拓展到会计核算、人事、办公、路检路查等方面,有利地推进征费工作全面发展。

    精神文明建设取得丰硕成果。铜仁征稽处坚持两手抓、两手都要硬,全处涌现出大批先进单位和先进个人,玉屏及石阡征稽所先后被省交通厅评为文明窗口示范单位,在社会上树立良好征稽形象。

机构及队伍建设情况
    铜仁征稽处几经变更,从94年1月起,更名为贵州省交通厅铜仁征费稽查处,内设4科1室:办公室、政工科、征管科、财务科、稽查科;下设直属所、松桃、万山、玉屏、江口、印江、德江、思南、沿河、石阡共10个基层征稽所。
    全处征稽职工队伍现有在编人员63人。2001年以来职工政治结构、年龄结构、文化结构、专业技术结构逐步得到了改善。从04年起,陆续在全省各大学招收了一批本科生,引进新鲜血液。全处现有中共党员36人;具有高中以上学历的职工已达46人,占职工总数的73%,其中大学本科13人,大专学历27人,占职工总数的63%。
    为提高征稽队伍的整体素质,铜仁处多次对职工进行不同形式的培训:对所有财务人员进行了新会计法和会计电算化培训,合格率为100%;根据省交通厅和省征稽局的统一部署,按照国家交通部制定的培训大纲的要求定期参加厅局组织的行政执法培训班,做到上路稽查人员必须持有合格的交通行政执法证;对全区的征费人员举办微机培训班,加强微机征费等业务方面的培训,提高了微机人员的素质和水平。

装备情况
    铜仁征稽处从2001年以来,对各所的微机全部实现了更新换代,对征费软件也进行了更新。陆续购置传真机、打印机、扫描仪、复印机等多种现代化、自动化的办公设备;逐步实现办公自动化。根据工作需要,又陆续增配了稽查手提式电脑4台。到2006年,全处共拥有台式机32台,手提电脑4台,在征费工作中发挥了不可替代的重要作用。
    为了更好的完成国家的交通规费征收任务,多征费、征好费,让一线的征稽职工有好的办公条件,从2002年以来,对全区各基层所的老旧稽查车辆进行更新,统一配置猎豹越野车,并按交通部的要求统一喷成"中国公路"执法车,规范了执法车辆;到2006年,全处共有稽查车辆21台,全部用于基层所一线稽查。

基础建设
    随着社会的发展和时代的进步,沿河、松桃、万山、江口征稽所等一批兴建于 80年代的征费大厅已经不适应现今新形式下征收工作的需要,房屋面积小,结构不合理,使用年代较长,而且受到不同程度的损坏,收费室仅仅只有 10多平方米,特别是在缴费高峰期,人员拥挤、办公地点狭窄,严重影响了办公效率及养路费的征收。本着方便车主服务车主、让一线征稽职工拥有好的办公条件及住房条件的指导思想,在处领导的努力争取下,在厅局领导的关心和支持下,铜仁处先后争取到一批基层所的危旧楼改造和重建项目。其中,松桃所的新综合性征费大楼即将竣工,沿河、江口、万山所的新大楼也将在2006年开工动土,在广大干部职工的努力下,铜仁征稽处正呈现出一派欣欣向荣的景象
    为适应发展和规范化建设的需要,2004 年我处投入数万元,投入了大量的人力物力对所有文档资料进行归类、整理,达到省 1级标准的现代化档室,配备专门的档案管理人员及微机、扫描仪等设备。定期对单位的各类资料及票据进行归类和建档。

精神文明建设
    近几年来,我处通过抓领导班子建设和职工队伍建设、抓机关工作作风整顿、抓档案达标升级、抓目标责任制管理、抓党风廉政教育、抓公路“三乱”的治理、抓行风建设,通过开创“文明所、文明示范窗口”,创文明、树新风,开展微笑服务、文明用语等一系列文明创建活动;既提高了铜仁征稽处的社会形象和征稽队伍的素质,又解决了工作中存在的一些实际问题.在紧抓中心任务的同时,我处积极开展各种群众性文体活动,先后举办了“征稽杯”篮球赛、跳绳及拔河等体育运动项目;在经费紧张的情况下,拨出专项经费购置了大量的健身器材;如跑步机、固定自行车、力量训练器械、兵乓球桌等,修建了专业化的健身房,使广大职工在工作之余能锻炼身体,同时也增强了大家的凝聚力、向心力,从而以更饱满的热情投入到工作中去,争取多收费、收好费,为铜仁地区的公路建设发展做出更大的贡献。
    多年来,铜仁处先后多次受到各种表彰.2001年在“省交通系统优质服务竞赛活动”中获优秀集体奖,2003、2004年被地区交通局评为“交通工作先进单位”,2003—2005年度被铜仁地直机关工委授予“先进基层党组织”称号,在2005年的“档案工作目标管理”活动中获得省机关一级称号。在2005年的全省交通征稽系统“立足岗位全员技术练兵”竞赛活动中荣获了团体三等奖、微机单项二等奖、驾驶单项三等奖、书法单项一等奖、绘画单项一等奖,取得了好成绩。

版权所有:贵州省交通厅征费稽查局 Copyright◎2008 http://www.qjzj.com.cn All Rights Reserved
技术支持:贵州省交通厅征费稽查局征费管理科
<% Recordset1.Close() Set Recordset1 = Nothing %>