+
+
+
+
+ <%=capitalize(city)%> Tours
+
+
+
+
+
+ <%
+ ' *6065
+ sql = "select cli_sn,CLI2_Name,CLP_TwoToFiveAdultPrice,CLI_NO,CLI_Days,cli2_attractionlist, dbo.GetFullPathByPII_SN(CLI_ListImage, 1) as pic, (case when charindex('6060',cli_linetype ) > 0 then 'Just the City' when charindex('6059',cli_linetype ) >0 then 'The City and Nearby' when charindex('6061',cli_linetype ) >0 then 'Trips from the City' when charindex('6062',cli_linetype ) >0 then 'Water Town Tours' when charindex('6063',cli_linetype ) >0 then 'Event Tours' when charindex('6065',cli_linetype ) >0 then 'Great Wall Tours' else '' end ) as linetypeName,dbo.GetCityName(CLI_CII_SN, "&site_lgc&") AS cityname from customerlineinfo inner join customerlineinfo2 on cli_sn=cli2_cli_sn inner join CustomerLinePrice on CLP_CLI_SN = cli_sn where clp_pricetype=2 and (CLI_PackageClass = '202003' or CLI_PackageClass='202007' or CLI_PackageClass='202005') and cli2_lgc="&site_lgc&" and (cli_dei_sn=1 or cli_dei_sn=2) and cli_state=1005004 and dbo.GetCityName(dbo.CustomerLineInfo.CLI_CII_SN, "&site_lgc&") = '"&city&"' ORDER BY CLI_OrderNum"
+ 'Response.Write(sql)
+ rs.Open sql, conn, 1, 1, 1
+ totaltour = rs.recordcount
+
+ '增加多网站后台的选择
+ sql = "select * from BIZ_PackageInfo INNER JOIN BIZ_PackageInfo2 on PAG_SN=PAG2_PAG_SN inner join systemcode2 on (cast(SYC2_SYC_SN as varchar) in (Left(Replace(BIZ_PackageInfo.PAG_ExtendType, ',', ''), 5))) where PAG2_LGC=1 and pag2_check=2 and PAG_CII_SN="&cityid&" AND BIZ_PackageInfo.PAG_Flag = 1 and SYC2_lgc="&site_lgc&_
+ " "
+ 'Response.Write(sql)
+ rs2.Open sql, conn, 1, 1, 1
+ totaldaytrip = rs2.recordcount
+
+ sql = " " &_
+" SELECT *, " &_
+" (SELECT TOP 1 dbo.GetFullPathByPII_SN(dbo.PictureInfo.PII_SN, 1) " &_
+" FROM pictureinfo " &_
+" WHERE (PII_ResourceSN = dbo.EntertainmentInfo.ENI_SN) AND " &_
+" (PII_ServiceType = 'e')) AS pic, IsNull( " &_
+" (SELECT TOP 1 EnterTainmentPrice.ENP_Agreement " &_
+" FROM EnterTainmentPrice INNER JOIN " &_
+" DCityAndVendor ON " &_
+" EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN " &_
+" WHERE (EnterTainmentPrice.ENP_ENI_SN = ENI_SN) AND (GETDATE() BETWEEN " &_
+" EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND " &_
+" (EnterTainmentPrice.ENP_PGI_SN = 8 OR " &_
+" EnterTainmentPrice.ENP_PGI_SN = 11 OR " &_
+" EnterTainmentPrice.ENP_PGI_SN = 13) AND (DCityAndVendor.CAV_CII_SN = "&cityid&") " &_
+" ORDER BY DCityAndVendor.CAV_Level), 0) AS price " &_
+" FROM dbo.EntertainmentInfo INNER JOIN " &_
+" dbo.EntertainmentInfo2 ON " &_
+" dbo.EntertainmentInfo.ENI_SN = dbo.EntertainmentInfo2.ENI2_ENI_SN " &_
+" WHERE (dbo.EntertainmentInfo2.ENI2_LGC = "&Site_lgc&") AND (dbo.EntertainmentInfo.ENI_Type = 2) " &_
+" AND (ISNULL(dbo.EntertainmentInfo.DeleteFlag, 0) <> 1) AND " &_
+" (dbo.EntertainmentInfo.ENI_CII_SN = "&cityid&") AND " &_
+" (ISNULL " &_
+" ((SELECT TOP 1 EnterTainmentPrice.ENP_Agreement " &_
+" FROM EnterTainmentPrice INNER JOIN " &_
+" DCityAndVendor ON " &_
+" EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN " &_
+" WHERE (EnterTainmentPrice.ENP_ENI_SN = ENI_SN) AND (GETDATE() BETWEEN " &_
+" EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND " &_
+" (EnterTainmentPrice.ENP_PGI_SN = 8 OR " &_
+" EnterTainmentPrice.ENP_PGI_SN = 11 OR " &_
+" EnterTainmentPrice.ENP_PGI_SN = 13) AND (DCityAndVendor.CAV_CII_SN = "&cityid&") " &_
+" ORDER BY DCityAndVendor.CAV_Level), 0) > 0) "
+ 'Response.Write(sql)
+ 'Response.End()
+ rs3.Open sql, conn, 1, 1, 1
+ totaladdons = rs3.recordcount
+ %>
+ <% =def_write_city_introduction(city) %>
+
+
+
+
+
+
+
+ <%
+ While Not rs.EOF
+ sn = rs("cli_sn")
+ title = rs("CLI2_Name")
+ Price = rs("CLP_TwoToFiveAdultPrice")
+ CLI_NO = Trim(rs("CLI_NO"))
+ If IsNull(rs("pic")) Or rs("pic") = Empty Then
+ pic = "/pic/unknown.gif"
+ Else
+ pic = imgurl & rs("pic")
+ End If
+ If len(rs("cityname"))>0 Then
+ CityTourInfoUrl = strFormat(urlCityTourInfo,array(changeStrPara(rs("cityname")),lcase(CLI_NO)))
+ Else
+ CityTourInfoUrl = strFormat(urlCityTourInfo,array(changeStrPara(city),lcase(CLI_NO)))
+ End If
+ If rs("CLI_Days") > 1 Then
+ days = rs("CLI_Days") & "-Day "
+ Else
+ days = rs("CLI_Days") & "-Day "
+ End If
+
+ alist = rs("cli2_attractionlist")
+ %>
+
+
+ <%
+ rs.movenext
+ Wend
+
+ While Not rs2.EOF
+
+ sn = rs2("PAG_SN")
+ title = rs2("PAG2_Name")
+ hours = rs2("PAG_NeedTime")
+ ttype = rs2("SYC2_CodeDiscribe")
+
+ hrstr = "hr"
+ hours = FormatNumber(hours, 1, TristateTrue)
+ If CInt(hours)>= 2 Then hrstr = "hrs"
+ If InStr(hours, ".") >0 And Right(hours, 1)<>0 Then
+
+ If CInt(hours)<= 1 Then
+ tmphours = 0
+ tmpmins = hours * 60
+ Else
+ tmphours = (hours * 10 ) Mod 10
+ tmpmins = ((tmphours * 6) \ 10) * 10
+ End If
+
+
+
+ If tmphours>0 Then
+ hours = Int(hours)&hrstr& tmpmins &"mins"
+ Else
+ hours = tmpmins &"mins"
+ End If
+ Else
+ hours = CInt(hours) &hrstr
+ End If
+
+ PAG_Code = rs2("PAG_Code")
+ content = rs2("PAG2_Attraction")
+ Price = GetAdultPricePAG_SN(rs2("PAG_SN"), 2)
+
+ If IsNull(rs2("PAG2_PII_SN")) Or rs2("PAG2_PII_SN") = Empty Then
+ ListImage = -1
+ Else
+ ListImage = rs2("PAG2_PII_SN")
+ End If
+
+ daytripshtml = LCase(Replace(title, " ", "-"))
+
+ daytripshtml = daytripshtml&".htm"
+ cityurl = Replace(cityurl, " ", "-")
+ %>
+
+
+
+
+ %> )
+
+ <%
+ rs2.movenext
+ Wend
+
+
+ While Not rs3.EOF
+
+ sn = rs3("ENI_SN")
+ title = rs3("ENI2_Name")
+ tmpcityid = rs3("eni_cii_sn")
+ content = Left(rs3("ENI2_Introduction"), 126)&"..."
+
+ ENI_ConsumeTime = rs3("ENI_ConsumeTime")
+
+ If Not IsNull(ENI_ConsumeTime) And IsNumeric(ENI_ConsumeTime) Then
+ If ENI_ConsumeTime < 1 Then
+ ENI_ConsumeTime = ENI_ConsumeTime * 60 &" Min"
+ Else
+ ENI_ConsumeTime = ENI_ConsumeTime &" Hours"
+ End If
+ End If
+
+ If IsNull(rs3("pic")) Or rs3("pic") = Empty Then
+ ListImage = "/pic/unknown.gif"
+ Else
+ ListImage = imgurl & rs3("pic")
+ End If
+
+ price = 0
+ netprice = 0
+
+ Set rs_tmp = server.CreateObject("adodb.recordset")
+' rs_tmp.Open "SELECT top 1 cav_vei_sn FROM [dbo].[DCityAndVendor] where cav_cii_sn="&tmpcityid&" order by cav_level", conn, 1, 1, 1
+' If Not rs_tmp.EOF Then
+' veisn = rs_tmp("cav_vei_sn")
+' End If
+' rs_tmp.Close
+'
+' sql = "SELECT TOP 1 ENP_Agreement "&_
+' " FROM dbo.EnterTainmentPrice WHERE "&_
+' " (ENP_ENI_SN = "&sn&") AND (GETDATE() "&_
+' " BETWEEN ENP_Start AND ENP_Stop) and (enp_pgi_sn=8 or enp_pgi_sn=11 or enp_pgi_sn=13 or enp_pgi_sn=25) and enp_vei_sn= "&veisn
+
+ sql = " SELECT TOP 1 EnterTainmentPrice.ENP_Agreement, "&_
+ " EnterTainmentPrice.ENP_PGI_SN "&_
+ " FROM EnterTainmentPrice INNER JOIN "&_
+ " DCityAndVendor ON "&_
+ " EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN "&_
+ " WHERE (EnterTainmentPrice.ENP_ENI_SN = "&sn&") AND (GETDATE() BETWEEN EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND "&_
+ " (EnterTainmentPrice.ENP_PGI_SN = 8 OR EnterTainmentPrice.ENP_PGI_SN = 11 OR EnterTainmentPrice.ENP_PGI_SN = 13) AND cav_cii_sn="&cityid&" Order by cav_level "
+
+ 'Response.Write(sql)
+
+ rs_tmp.Open sql, conn, 3, 1, 1
+ If Not rs_tmp.EOF Then
+ Price = getUSDByRMB(CInt(rs_tmp(0)) * 1.2)
+ netprice = getUSDByRMB(CInt(rs_tmp(0)) * 1.2 * 1.2)
+ End If
+ addonshtml = LCase(Replace(title, " ", "-"))
+ addonshtml = addonshtml&".htm"
+ %>
+
+ <%
+ rs3.movenext
+ Wend
+ %>
+
+
+
+ <%=title%>
+-
+
+
+
- Duration: <%=hours%> Tour Code: <%=PAG_Code%> +
- Attractions: <%=content%> +
- Tour Type: + <% + If RegExpfind("hksic", LCase(rs2("PAG_Code"))) = true Then + %> + Seat-in-coach tour (SIC) Join an organized tour in a large coach with a tour guide for the group. + <% + else + %> + Private Tour – A private tour includes a private guide and driver + <% + end if + %> + + +
Full price from:
+ $<%=price%> p/p
+
+
+
+ + $<%=price%> p/p
+
+
+
+
+
+
+
+ <% =capitalize(city) %>
+ Tour Search
+
+
+ <%if city="beijing" or city="shanghai" or city="guilin" or city="lhasa" then
+ moretops=""
+ end if%>
+
+
+
+
+
+
+
+
+
+
+
+
+<%
+
+ cityCapStr = capitalize(city)
+ linkCity = replace(lcase(City), " ","-")
+ %>
+
+
+
+
+
+
+
+
+ About <%=capitalize(city)%>
+-
+ <% If checkCityMM(city, "MainCity")<>"" Then %>
+
- <%=cityCapStr%> Overview +
- <%=cityCapStr%> Weather +
- <%=cityCapStr%> Attractions +
- <%=cityCapStr%> Maps +
- <%=cityCapStr%> Transportation +
- <%=cityCapStr%> Photos +
- Food & Restaurant + <% ElseIf checkCityMM(city, "minorCity")<>"" Then %> +
- <%=cityCapStr%> Overview +
- <%=cityCapStr%> Weather +
- <%=cityCapStr%> Attractions +
- <%=cityCapStr%> Maps +
- <%=cityCapStr%> Transportation +
- <%=cityCapStr%> Photos + <% End If %> + <% + getCityRCLiksStr = getCityRCLiks(CityID,city,"Hotel|Train|Flight") + If getCityRCLiksStr<>"" Then + allCount = 0 + linkArr = split(getCityRCLiksStr, "$$") + tmpArr = split(linkArr(1),"@") + For i=0 to ubound(tmpArr) + tmp = split(tmpArr(i), "-") + If tmp(0)="Hotel" AND tmp(1)>0 Then linkHotels = "
- "&cityCapStr&" Hotels " + 'If tmp(0)="Tour" AND tmp(1)>0 Then linkTour = "
- "&cityCapStr&" Tours " + If tmp(0)="Flight" AND tmp(1)>0 Then + linkFlight = "
- "&cityCapStr&" Flights " + linkFlights= "
- "&cityCapStr&" Flight Schedule " + End If + If tmp(0)="Train" AND tmp(1)>0 Then linkTrain = "
- "&cityCapStr&" Train Schedule " + allCount = allCount + tmp(1) + Next + + If allCount>0 Then + Response.Write(linkHotels) + 'Response.Write(linkTour) + Response.Write(linkTrain) + Response.Write(linkFlight) + Response.Write(linkFlights) + End If + End If %> +
Leave your phone number, and we will call back!
+
+ 
