<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "出国签证" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connly_STRING Recordset1.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY fb_sj DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "酒店预订" If (Request("MM_EmptyValue") <> "") Then Recordset2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_connly_STRING Recordset2.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset2__MMColParam, "'", "''") + "' ORDER BY fb_sj DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3__MMColParam Recordset3__MMColParam = "自由行" If (Request("MM_EmptyValue") <> "") Then Recordset3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_connly_STRING Recordset3.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset3__MMColParam, "'", "''") + "' ORDER BY fb_sj DESC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset4__MMColParam Recordset4__MMColParam = "机票" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_connly_STRING Recordset4.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset4__MMColParam, "'", "''") + "' ORDER BY fb_sj DESC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Recordset5__MMColParam Recordset5__MMColParam = "港澳游" If (Request("MM_EmptyValue") <> "") Then Recordset5__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset5 Dim Recordset5_numRows Set Recordset5 = Server.CreateObject("ADODB.Recordset") Recordset5.ActiveConnection = MM_connly_STRING Recordset5.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset5__MMColParam, "'", "''") + "' ORDER BY fb_sj DESC" Recordset5.CursorType = 0 Recordset5.CursorLocation = 2 Recordset5.LockType = 1 Recordset5.Open() Recordset5_numRows = 0 %> <% Dim Recordset6__MMColParam Recordset6__MMColParam = "旅行团" If (Request("MM_EmptyValue") <> "") Then Recordset6__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset6 Dim Recordset6_numRows Set Recordset6 = Server.CreateObject("ADODB.Recordset") Recordset6.ActiveConnection = MM_connly_STRING Recordset6.Source = "SELECT * FROM fb WHERE fb_lb = '" + Replace(Recordset6__MMColParam, "'", "''") + "'" Recordset6.CursorType = 0 Recordset6.CursorLocation = 2 Recordset6.LockType = 1 Recordset6.Open() Recordset6_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 8 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 8 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 8 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 8 Repeat4__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 8 Repeat5__index = 0 Recordset5_numRows = Recordset5_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 8 Repeat6__index = 0 Recordset6_numRows = Recordset6_numRows + Repeat6__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 + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("fb_username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="../xxfb.asp" MM_redirectLoginFailed="../index.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connly_STRING MM_rsUser.Source = "SELECT ly_username, ly_password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM mm WHERE ly_username='" & Replace(MM_valUsername,"'","''") &"' AND ly_password='" & Replace(Request.Form("fb_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 %> 星晨假期 自由天地

设为首页
收藏本站
联系我们
港澳游服务
汽车租赁

    星晨假期旅行车队拥有12座-55座金杯、全顺、丰田、珠江、宇通、金龙星王、飞驰等10多种不同座位的专用旅游豪华空调车辆，以及普通空调大巴。本社车队积多年专业接待经验，长期为广东省和广州市党代会、人大、政协、"广交会"等提供优质服务。其安全、快捷、优秀的服务质量深受广大旅客和有关领导的赞誉。


    "安全第一、服务第一、信誉第一"，是星晨假期旅行车队的业务宗旨。公司拥有一大批包括国家旅游行业劳动模范、广东省劳动模范等优秀司机，确保将规范应急措施、灵活应变、及时调度援助等每一个工作细节落实到实处，让所有游客都能乘兴而来，尽兴而归，由始至终都能享受到便捷、优质的现代旅游服务！
    欢迎各旅行社、工厂企事业单位、学校等租车用以旅游、上、下班接送、会议接送及春运、学生寒暑假回家包车，我们保证通力合作、热忱服务。
    


各车型一览表:
22座云山中巴
33+3座日野
33座金龙
37+8座珠江王
37+8座珠江王内饰
41+8座广客
41+8座珠江
41+8座珠江王
41+8座珠江王内饰
45座飞弛
45座飞驰内饰
45座客车
49座金龙
53座宇通
45座金龙
我司为如下成员单位：
                                       
版权所有： 广东中妇旅国际旅行社 之 星晨假期操作中心
Contact us at webmaster@gzgo.net

地址：广州市环市东路360号珠江大厦西座11楼1102室
Rm.1102, 11/F，West Tower, Zhujiang Bldg., No.360, Huangshi East Rd.,Guangzhou, China 510060
电话TEL：020-83875641,83869503, 传真FAX：020-83821311
手机MOBILE：020-88460587，13501545811
粤ICP备05145850号

 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %> <% Recordset5.Close() Set Recordset5 = Nothing %> <% Recordset6.Close() Set Recordset6 = Nothing %>