<%@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 %> 星晨假期 自由天地
设为首页
收藏本站
联系我们
自由行 
港澳游服务
酒店预订  
 
本页所含菲律宾城市:
MANILA马尼拉地区 马尼拉PAVILION赌场酒店 马尼拉CENTURY PARK 喜来登酒店
马尼拉EDSA SHANGRILA酒店 马尼拉HYATT CASINO酒店
马尼拉GRANDBOULVARD酒店 马尼拉MALAYAN酒店
马尼拉香格里拉TRADER酒店 马尼拉Atrium Hotel酒店
SUBIC苏碧湾地区  苏碧湾SUBIC INTERNATIONAL国际酒店  苏碧湾酒店LEGENDA丽晶酒店
CEBU宿雾地区 宿雾WATERFRONT CITY酒店 宿雾MACTAN香格里拉酒店
宿雾PARK LANE酒店 宿雾MARCO POLO PLAZA酒店
宿雾TAMBULI BEACH RESORT酒店  
BORACAY长滩岛 长滩岛Tropic Resort 长滩岛Regency Hotel
长滩岛Seraph度假村 长滩岛PATIO PACIFIC度假村
Puerto Galera 海豚湾 海豚湾Graywall Resort 海豚湾Macro Vincent酒店
  海豚湾Dream Wave Resort  
BOHOL保和岛 Flushing Meadows度假村  
MANILA马尼拉酒店
1. 马尼拉PAVILION赌场酒店 ★★★★            预订
房型 优惠价 早餐 备注
标准双人房 RMB550/晚 不含（含早加RMB100）  
电话：00632 - 526 1212           传真：00632 - 526 2552
地址：Ma. Orosa St., cor. United Nations Avenues, Ermita, Manila, 1000 Philippines
网址：www.manilapavilion.com.ph
2. 马尼拉CENTURY PARK 喜来登酒店 ★★★★★   预订
房型 优惠价 早餐 备注
标准双人房 RMB650/晚 不含（含早加RMB100）  
电话：00632 - 526 1212        传真：00632 - 526 2552
地址：599 P. Ocampo Street, 1004 Malate Manila, Philippines
网址：www.centurypark.com.ph
3. 马尼拉EDSA SHANGRILA酒店 ★★★★★       预订
房型 优惠价 早餐 备注
标准双人房 RMB1200/晚 含  
电话：00632 - 633 8888         传真：00632 - 631-1067
地址：1 Garden Way, Ortigas Centre, Mandaluyong City 1650, Metro Manila,
网址：www.shangri-la.com/manila/edsashangri-la/en/index.aspx
4. 马尼拉ATRIUM 酒店 ★★★★ 预订
房型 优惠价 早餐 备注
标准双人房: RMB550/晚 含  
电话：00632 - 552 0351              传真：00632- 552 0175
地址：15F Taft Centrale Exchange, Gil Puyat cor. Taft Avenue, Pasay City 1300, Philippines
网址：www.atriumhotel.com.ph
5. 马尼拉GRANDBOULVARD 酒店★★★★ 预订
房型 优惠价 早餐 备注
标准双人房 HKD550/晚 含  
电话：00632 - 526-8588              传真：
地址： 1990 Roxas Boulevard Manila Philippines
网址：www.grandboulevardhotelmanila.com
6. 马尼拉Hyatt Casino 酒店 ★★★★★             预订
房型 优惠价 早餐 备注
标准双人房 HKD1100/晚 含  
电话：00632 - 245-1234            传真：00632 - 247-1234
地址：1588 Pedro Gil Corner MH Del Pilar, Malate, Manila, Philippines
网址：manila.casino.hyatt.com/hyatt/hotels/
7.马尼拉香格里拉TRADER酒店 ★★★★            预订
房型 优惠价 早餐 备注
标准双人房 HKD600 不含（含早加HKD100）  
电话：00632 - 527 9128    传真：00632 - 527 9188
地址：3001 Roxas Blvd,Pasay City 1305, Metro Manila, Philippines
网址：www.shangri-la.com/manila/traders/en/index.aspx
SUBIC苏碧湾酒店
1. 苏碧湾SUBIC INTERNATIONAL国际酒店 ★★★★  预订
房型 优惠价 早餐 备注
标准双人房 HKD550/晚 不含（含早加HKD60）  
电话：0063 47 243 2222
地址：Subic Bay, Olongapo City, Zambales, Philippines
网址：www.subichotel.com
2. 苏碧湾酒店LEGENDA丽晶酒店★★★★    预订
房型 优惠价 早餐 备注
标准双人房 HKD550/晚 不含（含早加HKD40）  
电话：0063 47 252 1888
地址：Waterfront Road, Subic Bay Freeport Zone, Zambales, Philippines
网址：www.subiclegend.com.ph
CEBU宿雾酒店
1. 宿雾MARCO POLO PLAZA 酒店 ★★★★★ 
房型 优惠价 早餐  
标准双人房 780 含  
电话：0063-32-253-1111    传真：0063-32-417-2980
地址：Cebu Veterans Drive, Nivel Hills, Lahug Cebu City 6000, Philippines
网址：www.marcopolohotels.com/cebu.html
1. 宿雾WATERFRONT CITY酒店 ★★★★★  预订
房型 优惠价 早餐 备注
标准双人房 HKD700/晚 不含（含早加HKD40）  
电话：0063-32-232 6888      传真：0063-32-232 6880
地址： Waterfront Drive, Off Salinas Drive, Lahug, Cebu, Philippines 6000
网址：www.waterfronthotels.net/cebuindex.html
2. 宿雾MACTAN香格里拉酒店 ★★★★★    预订
房型 优惠价 早餐 备注
标准双人房 HKD1600/晚 含  
电话：0063-32-231 0288      传真：0063-32-231 1688
地址： Punta Enga?o Road, P.O. Box 86, Lapu-Lapu City 6015, Cebu, Philippines
网址：www.shangri-la.com/en/property/cebu/mactanresort
3. 宿雾PARK LANE酒店 ★★★★★     预订
房型 优惠价 早餐 备注
标准双人房 HKD700/晚 不含（含早加HKD40）  
电话：0063-32- 411-7000     传真：0063-32-412-2510
地址： Archbishop Reyes Avenue & Escario Street, Cebu City 6000 Philippines
网址：www.parklanehotel.com.ph
5. 宿雾TAMBULI BEACH RESORT - EAST TOWER 度价村 ★★★★   预订
房型 优惠价 早餐 备注
标准双人房 HKD480/晚 不含（含早加HKD40）  
电话：0063-32-232 4811      传真：0063-32- 232 4913
地址：Mactan Island, Mactan, Cebu, Philippines
网址：www.tambuli.com/Cebu.htm
BOROCAY长滩岛
1.长滩岛REGENCY 酒店 AAA
房型 优惠价 早餐 备注
标准双人房 RMB800 含 机场接送和乘船,HKD100
电话：0063 36 288-6111 传真： 0063 36 288-6777
Station 2
网址：www.boracayregency.com
2.长滩岛TROPICS 度价村 AAA
房型 优惠价 早餐 备注
标准双人房 RMB800 含 机场接送和乘船,HKD100
电话：0063 36 288-4034 传真： 0063 36 288-3700
Station 2
网址：www.boracaytropics.com
3.长滩岛PATIO PACIFIC度假村AAA
房型 优惠价 早餐 备注
标准双人房 HKD780 含 机场接送和乘船,HKD100
电话：0063 36 288 3888
地址：Boat Station 1
网址：www.patiopacificboracay.com
4.长滩岛SERAPH 度假村AAA
房型 优惠价 早餐 备注
标准双人房 HKD950 含 机场接送和乘船 HKD100
电话：0063 - 36 - 288 6672 

地址：
网址: www.boracayseraph.com
Puerto Galera 海豚湾
1. Dream Wave Resort ★★
房型 优惠价 早餐 备注
标准双人房 RMB450 含  
电话：0063 - 043 - 287 3080
地址：White Beach, Puerto Galera, Oriental Mindoro, Philippines.
网址：www.dreamwavehotel.com
2. Graywall Resort ★★
房型 优惠价 早餐 备注
标准双人房 RMB450 含  
电话：0063 - 043 - 287 3114
地址：White Beach, Puerto Galera, Oriental Mindoro, Philippines., 5203
网址：www.graywallresort.com
3. Macro Vincent ★★★★
房型 优惠价 早餐 备注
标准双人房: RMB700 含  
电话：0063 -
地址：White Beach, Puerto Galera
网址：www.marcovincent.com
BOHOL保和岛
1. Flushing Meadows Resort AAA    预订
房型 优惠价 早餐 备注
标准双人房: HKD950/晚 含  
电话： 0063 38 5022122         传真：
地址：Dao,Dauis,Panglao Island,Bohol
网址：www.flushingmeadows.com.ph
我司为如下成员单位：
                                       
版权所有： 广东中妇旅国际旅行社 之 星晨假期操作中心
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 %>