<% option explicit dim conn,connstr dim rs,exec dim ShowLID ShowLID = 0 ShowLID = Request.QueryString("ID") if (ShowLID = "")or(ShowLID=null) then Response.Redirect "error.asp?info=請給線路編號!" end If If IsNumeric(ShowLID) = false Then Response.Redirect "error.asp?info=請給線路編號!" End If Dim TestShowLID TestShowLID = CInt(ShowLID) If TestShowLID<=0 Then Response.Redirect "error.asp?info=請給線路編號!" End if Set Conn=Server.CreateObject("ADODB.Connection") connstr = "Provider=SQLOLEDB.1; Data Source=127.0.0.1,1433;Initial Catalog=Business;User ID=BusinessUser;Password=BusinessUser9998; " ''connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("#~tline.mdb") Conn.Open connstr exec="select top 1 * from corpinfo " set rs=conn.execute(exec) dim corpname,corplogo,corpaddress,corptel,corpemail if rs.eof then corpname = "" corplogo = "" corpaddress = "" corptel = "" corpemail = "" else corpname = rs("corpname") corplogo = rs("corplogo") corpaddress = rs("corpaddress") corptel = rs("corptel") corpemail = rs("corpemail") end if rs.close exec = "select * from Tline where LID = " & ShowLID rs.open(exec) if rs.eof then Response.Redirect "error.asp?info=此線路暫停發團!詳情請咨詢客服 13281132890 028-86728117 028-69881217" end if if (rs("Deleteed")=true) then Response.Redirect "error.asp?info=此線路暫停發團!詳情請咨詢客服 13281132890 028-86728117 028-69881217" end if '轉換時間 時間格式化 Function formatDate(Byval t,Byval ftype) dim y, m, d, h, mi, s formatDate="" If IsDate(t)=False Then Exit Function y=cstr(year(t)) m=cstr(month(t)) If len(m)=1 Then m="0" & m d=cstr(day(t)) If len(d)=1 Then d="0" & d h = cstr(hour(t)) If len(h)=1 Then h="0" & h mi = cstr(minute(t)) If len(mi)=1 Then mi="0" & mi s = cstr(second(t)) If len(s)=1 Then s="0" & s select case cint(ftype) case 1 ' yyyy-mm-dd formatDate=y & "-" & m & "-" & d case 2 ' yy-mm-dd formatDate=right(y,2) & "-" & m & "-" & d case 3 ' mm-dd formatDate=m & "-" & d case 4 ' yyyy-mm-dd hh:mm:ss formatDate=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s case 5 ' hh:mm:ss formatDate=h & ":" & mi & ":" & s case 6 ' yyyy年mm月dd日 formatDate=y & "年" & m & "月" & d & "日" case 7 ' yyyymmdd formatDate=y & m & d case 8 'yyyymmddhhmmss formatDate=y & m & d & h & mi & s end select End Function %> <% dim IsLocal IsLocal = true 'IsLocal = IsLocalUserLevel1() %> 会员一码中特是真的吗
,四川成都中國青年旅行社,四川成都中青旅行社,四川旅行社,成都旅行社,九寨溝,九寨溝旅游,四川旅游,成都旅游">
成都出發

<%=rs("LName")%> <% if (rs("Deleteed")=true) then Response.Write " - 此線路目前停止發團" end if %>

  • " alt="111" />
  • " alt="111" />
  • " alt="111" />
  • " alt="111" />
  • " alt="111" />

四川旅行社 線路特色
<% if (rs("Deleteed")=true) then Response.Write " ===== 此線路目前停止發團 ======
" end if %> <%= DvBCode(rs("Feature"))%>

預訂
免長途電話: 13281132890
  行程安排
<%=rs("LName")%>
<%= rs("Description") %>
  價格  
標準等
<% if (rs("groupstandardprice")=0) then Response.Write "特價" else Response.Write rs("groupstandardprice") end if %>
豪華等
<% if (rs("groupluxuryprice")=0) then Response.Write "特價" else Response.Write rs("groupluxuryprice") end if %>

  已含項目  
交通 <%= DvBCode(rs("traffic"))%>
住宿 <%= DvBCode(rs("put-up"))%>
餐飲 <%= DvBCode(rs("eat"))%>
導游 <%= DvBCode(rs("guide"))%>
門票 <%= DvBCode(rs("pupil"))%>
保險 <%= DvBCode(rs("safety"))%>

  不含項目  
<%= DvBCode(rs("NotInclude"))%>

  備注  
<%= DvBCode(rs("mem"))%>

  重要提示  
<%= DvBCode(rs("Prompt"))%>

::: 對這條線路滿意? :::
滿意!【我要報名
不太滿意,搜索線路:
::: 預定流程 :::
旅游預定流程
在線預定:
直接通過網站下單,在線選擇產品并填寫相關信息后,提交訂單。我們看到訂單后會馬上與您聯系確認您的訂單。請您填寫真實的電話和郵件,謝謝!
電話預定:
撥打咨詢/預訂電話,由客服幫助您完成信息的確認和下單操作。
::: 簽約方式 :::
傳真簽約: 通過傳真簽訂旅游合同。
在線簽約: 我們可以通過郵件、或在線簽約等方式與您簽訂旅游合同。
門市簽約: 在門市進行簽約付款。地址:成都市人民中路三段2號萬富大廈6樓[成疆分社]A3室。 查看地圖及詳細乘車路線。
::: 支付 :::
對公匯款: 通過銀行匯款至對公賬戶。戶名:四川省中國青年旅行社有限公司。賬號:1158 0908 5636。中行四川省分行。
網上銀行: 建設銀行 農業銀行 工商銀行 中國銀行 交通銀行 招商銀行
建設銀行、農業銀行、工商銀行、中國銀行、交通銀行、招商銀行。
第三方支付: 支付寶支付:①四川青旅支付寶賬號網頁版點擊 ②手機版掃描右側二維碼 支付寶5805304@qq.com
門市支付: 現金付款、轉賬支票、刷卡支付。
返回首頁】 【四川旅游】 【四川旅游合同】 【我要報名】 【旅行社信息】 【公司賬號
本免费公开一码中特