")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" - ")
TourExStr.AppendLine("
- 旅游定制 ") TourExStr.AppendLine("
- 意见反馈 ") TourExStr.AppendLine("
- ")
TourExStr.AppendLine(" 关注我们")
TourExStr.AppendLine(" ") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("
直接扫描下方二维码
") TourExStr.AppendLine("") TourExStr.AppendLine("
")
TourExStr.AppendLine(" - ")
TourExStr.AppendLine(" WAP版本")
TourExStr.AppendLine(" ") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("
直接扫描下方二维码直接访问
") TourExStr.AppendLine("") TourExStr.AppendLine("
")
TourExStr.AppendLine(" - ")
TourExStr.AppendLine(" 网站导航")
TourExStr.AppendLine(" ") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("") TourExStr.AppendLine("
- ")
TourExStr.AppendLine("
- 旅游线路 ") Dim V_1 As Integer = 0 For Each R_1 As DataRow In TourEx.B2C.line.BLL.category.GetList().Select("T_hide=0","t_orderid") V_1 += 1 TourExStr.AppendLine("
- " & R_1("t_name") & " ") Next TourExStr.AppendLine("
- 高级定制 ") TourExStr.AppendLine("
- ")
TourExStr.AppendLine("
- 旅游服务 ") TourExStr.AppendLine("
- 酒店预订 ") TourExStr.AppendLine("
- 景点门票 ") TourExStr.AppendLine("
- 出国签证 ") TourExStr.AppendLine("
- 旅游租车 ") TourExStr.AppendLine("
- 旅游团购 ") TourExStr.AppendLine("
- 国内机票 ") TourExStr.AppendLine("
- 游记攻略 ") TourExStr.AppendLine("
- 目的地 ") TourExStr.AppendLine("
- 导游服务 ") TourExStr.AppendLine("
- 礼品兑换 ") TourExStr.AppendLine("
- ")
TourExStr.AppendLine("
- 度假产品 ") Dim V_2 As Integer = 0 Dim SqlStr_2 As String = "select t_id,T_Name,T_ModuleName,T_Sort from [" & TablePrefix & "g_type] order by t_sort Desc" Dim Dr_2 As SqlDataReader = TourEx.B2C.Base.BLL.General.DataList(SqlStr_2,0) If Dr_2.Read Then Do V_2+=1 TourExStr.AppendLine("
- " & Dr_2("t_name").ToString() & " ") If Dr_2.Read = false Then Exit Do End If Loop End If Dr_2.Close() TourExStr.AppendLine("
")
TourExStr.AppendLine(" - 商家管理 ") TourExStr.AppendLine("
")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ![]()
")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" 旅 游
")
TourExStr.AppendLine(" - ")
TourExStr.AppendLine("
- 线 路 ") TourExStr.AppendLine("
- 酒 店 ") TourExStr.AppendLine("
- 门 票 ") TourExStr.AppendLine("
- 酒 + 景 ") TourExStr.AppendLine("
- 租 车 ") TourExStr.AppendLine("
- 导 游 ") TourExStr.AppendLine("
- 签 证 ") TourExStr.AppendLine("
- 团 购 ") TourExStr.AppendLine("
- 新 闻 ") TourExStr.AppendLine("
")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" - ")
TourExStr.AppendLine("
- " & sitetel & " ") TourExStr.AppendLine("
- 预订热线工作时间：9:00-18:00 ") TourExStr.AppendLine("
")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine("
")
TourExStr.AppendLine(" ")
TourExStr.AppendLine(" - ")
Dim V_3 As Integer = 0
For Each M_3 As TourEx.B2C.Base.Model.nav In TourEx.B2C.Base.BLL.nav.GetList("n_hide=0 and n_level=0")
V_3 += 1
dim url as string = M_3.url
if url.length=0 andAlso M_3.type=1 Then
url = GetHeadTagNavUrl(M_3.id)
End if
if url.StartsWith("/") then
select M_3.Module.ToLower
case "hotel"
url = hotelurl & url.substring(1)
case "scenery"
url = sceneryurl & url.substring(1)
case "car"
url = carurl & url.substring(1)
case "visa"
url = visaurl & url.substring(1)
case "flight"
url = flighturl & url.substring(1)
case "news"
url = newsurl & url.substring(1)
case "tuan","team"
url = teamurl & url.substring(1)
case "gift"
url = gifturl & url.substring(1)
case "guide"
url = guideurl & url.substring(1)
case "line"
url = lineurl & url.substring(1)
case "travels"
url = travelsurl & url.substring(1)
case "destination"
url = destinationurl & url.substring(1)
case "taocan"
url = taocanurl & url.substring(1)
case else
url = weburl & url.substring(1)
End Select
elseif url.startsWith("{") then
url=url.replace("{hotelurl}",hotelurl).replace("{sceneryurl}",sceneryurl).replace("{carurl}",carurl).replace("{visaurl}",visaurl).replace("{flighturl}",flighturl).replace("{newsurl}",newsurl).replace("{teamurl}",teamurl).replace("{gifturl}",gifturl).replace("{guideurl}",guideurl).replace("{lineurl}",lineurl).replace("{travelsurl}",travelsurl).replace("{destinationurl}",destinationurl).replace("{tcsceneryurl}",tcsceneryurl).replace("{tchotelurl}",tchotelurl).replace("{taocanurl}",taocanurl)
end if
if not url.startsWith("http") andalso not url.startsWith("javas" & "cript:") then
url="http://" & url
end if
dim navDt as datatable=TourEx.B2C.Base.BLL.General.DataTable("select n_id,n_name,n_module,n_url,n_level,n_categoryid,n_isblank,n_type,n_isdefault from [" & TablePrefix & "nav] where n_hide=0 and n_level=" & M_3.id & " order by n_orderid")
if navDt.Rows.Count=0 Then
TourExStr.AppendLine("
- " & M_3.name & " ") Else TourExStr.AppendLine("
- ")
TourExStr.AppendLine(" " & M_3.name & "")
TourExStr.AppendLine(" ") TourExStr.AppendLine("") TourExStr.AppendLine("") For Each navDr as datarow in navDt.rows url = navDr("n_url").tostring() if navDr("n_type") = 0 then TourExStr.AppendLine(" " & navDr("n_name") & "") else url =GetHeadTagChildNavUrl(cid,navDr("n_level"),navDr("n_categoryid")) if url="" then Continue For end if TourExStr.AppendLine(" " & navDr("n_name") & "") end if Next TourExStr.AppendLine("") TourExStr.AppendLine(" ")
End If
Next
TourExStr.AppendLine("