<%@LANGUAGE="VBSCRIPT"%> <% if(Request.ServerVariables("REMOTE_ADDR") <> "") then Command1__USR_IP = Request.ServerVariables("REMOTE_ADDR") %> <% Dim RecCount Dim RecCount_numRows Set RecCount = Server.CreateObject("ADODB.Recordset") RecCount.ActiveConnection = MM_connCounter_STRING RecCount.Source = "SELECT * FROM webCount" RecCount.CursorType = 0 RecCount.CursorLocation = 2 RecCount.LockType = 1 RecCount.Open() RecCount_numRows = 0 %> <% Dim TodayCount Dim TodayCount_numRows Set TodayCount = Server.CreateObject("ADODB.Recordset") TodayCount.ActiveConnection = MM_connCounter_STRING TodayCount.Source = "SELECT * FROM showDayCount" TodayCount.CursorType = 0 TodayCount.CursorLocation = 2 TodayCount.LockType = 1 TodayCount.Open() TodayCount_numRows = 0 %> <% if Session("countOK") <> 1 then set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_connCounter_STRING Command1.CommandText = "INSERT INTO webCount (count_ip) VALUES ('" + Replace(Command1__USR_IP, "'", "''") + "') " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() Session("countOK") = 1 end if %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim RecCount_total Dim RecCount_first Dim RecCount_last ' set the record count RecCount_total = RecCount.RecordCount ' set the number of rows displayed on this page If (RecCount_numRows < 0) Then RecCount_numRows = RecCount_total Elseif (RecCount_numRows = 0) Then RecCount_numRows = 1 End If ' set the first and last displayed record RecCount_first = 1 RecCount_last = RecCount_first + RecCount_numRows - 1 ' if we have the correct record count, check the other stats If (RecCount_total <> -1) Then If (RecCount_first > RecCount_total) Then RecCount_first = RecCount_total End If If (RecCount_last > RecCount_total) Then RecCount_last = RecCount_total End If If (RecCount_numRows > RecCount_total) Then RecCount_numRows = RecCount_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RecCount_total = -1) Then ' count the total records by iterating through the recordset RecCount_total=0 While (Not RecCount.EOF) RecCount_total = RecCount_total + 1 RecCount.MoveNext Wend ' reset the cursor to the beginning If (RecCount.CursorType > 0) Then RecCount.MoveFirst Else RecCount.Requery End If ' set the number of rows displayed on this page If (RecCount_numRows < 0 Or RecCount_numRows > RecCount_total) Then RecCount_numRows = RecCount_total End If ' set the first and last displayed record RecCount_first = 1 RecCount_last = RecCount_first + RecCount_numRows - 1 If (RecCount_first > RecCount_total) Then RecCount_first = RecCount_total End If If (RecCount_last > RecCount_total) Then RecCount_last = RecCount_total End If End If %> <% Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID RefreshTime = 10 IdleTime = RefreshTime * 3 Application.Lock If Application(Session.SessionID & "LastAccessTime") = Empty Then If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0 ReDim Tmp(Application("TotalUsers") + 1) Num = 0 If Application("TotalUsers") > 0 Then For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser")) ID = Application("OnlineUser")(I) If ID <> Session.SessionID Then Tmp(Num) = ID Num = Num + 1 End If Next End If Tmp(Num) = Session.SessionID Application("TotalUsers") = Num + 1 ReDim Preserve Tmp(Application("TotalUsers")) Application("OnlineUser") = Tmp End If Application(Session.SessionID & "LastAccessTime") = Timer ReDim Tmp(Application("TotalUsers")) Num = 0 For I = 0 To Application("TotalUsers") - 1 ID = Application("OnlineUser")(I) If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then Tmp(Num) = ID Num = Num + 1 Else Application(ID & "LastAccessTime") = Empty End If Next If Num <> Application("TotalUsers") Then ReDim Preserve Tmp(Num) Application("OnlineUser") = Tmp Application("TotalUsers") = Num End If Application.UnLock %>
☆ ☆ ☆  新 老 客 户 们 租 车 优 惠 活 动 正 在 进 行 中 欢 迎 来 电 咨 询  ☆ ☆ ☆ 
今天是
  • 衢州市嘟嘟汽车租赁有限公司是一家专业的汽车租赁公司, 公司成立于2004年12月,主要以轿车租赁服务为主。为商务活动 、休闲旅游、婚礼庆典、新手陪练、短途接送等用车提供便捷服务。

  • 公司以“开拓,求实,高效,守信”为宗旨,是衢州市道路运输行业协会汽车租赁专业委员会成员单位,公司的每一辆车都是嘟嘟汽车租赁至诚至爱的奉献。同时也溶入了嘟嘟汽车租赁尽善尽美的服务。“诚信”是我们经营的立足之本,“创新”是我们发展的生存之源,“便捷”是我们服务努力的方向,用户的满意是我们最大的收益,用户的信赖是我们最大的成果。

    

     衢州市嘟嘟汽车租赁有限公司愿为您的事业成功助一臂之力,愿为您提供优质服务献上一片热情,让我们携起手来,与时俱进,共创美好未来。

租车报价
车型 座位 押金 日租价 周租价 月租价 基本时间 基本里程
普通桑塔纳 5 2000元 180元/日 160元/日 140元/日 24小时/日 300公里/日
现代伊兰特 5 3000元 280元/日 250元/日 200元/日 24小时/日 300公里/日
现代索纳塔 5 4000元 380元/日 350元/日 300元/日 24小时/日 300公里/日
 帕萨特 5 5000元 450元/日 400元/日 350元/日 24小时/日 300公里/日

租车常识
租车手续/租车注意事项


E-mail: car@ddqz.com

服务电话:0570—3071566
                  13305708077

服务QQ: 嘟嘟汽车租赁公司欢迎您的光临,敬请咨询或留言。

地 址:衢州市荷一路43号
(中立交桥天鸿饭店内)
       

驾车出行电子地图导航
浙江省各地区交通违章查询:
杭州 宁波 温州 台州 金华 绍兴 丽水 舟山 湖州

衢州 嘉兴 浙江高速