行 1: #ExternalChecksum("f:\usr\LocalUser\hyw7409340001\cruise\ship.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","597056ECC61EA33B89939A6E932BC235B37BFB69")
行 2: '------------------------------------------------------------------------------
行 3: ' <auto-generated>
行 4: ' 此代码由工具生成。
行 5: ' 运行时版本:4.0.30319.18444
行 6: '
行 7: ' 对此文件的更改可能会导致不正确的行为,并且如果
行 8: ' 重新生成代码,这些更改将会丢失。
行 9: ' </auto-generated>
行 10: '------------------------------------------------------------------------------
行 11:
行 12: Option Strict Off
行 13: Option Explicit On
行 14:
行 15: Imports Microsoft.VisualBasic
行 16: Imports System
行 17: Imports System.Collections
行 18: Imports System.Collections.Generic
行 19: Imports System.Collections.Specialized
行 20: Imports System.ComponentModel.DataAnnotations
行 21: Imports System.Configuration
行 22: Imports System.Data
行 23: Imports System.Data.SqlClient
行 24: Imports System.Linq
行 25: Imports System.Text
行 26: Imports System.Text.RegularExpressions
行 27: Imports System.Web
行 28: Imports System.Web.Caching
行 29: Imports System.Web.DynamicData
行 30: Imports System.Web.Profile
行 31: Imports System.Web.Security
行 32: Imports System.Web.SessionState
行 33: Imports System.Web.UI
行 34: Imports System.Web.UI.HtmlControls
行 35: Imports System.Web.UI.WebControls
行 36: Imports System.Web.UI.WebControls.WebParts
行 37: Imports System.Xml.Linq
行 38: Imports TourEx.B2C
行 39: Imports TourEx.B2C.Common
行 40: Imports TourEx.B2C.Common.Utils
行 41:
行 42: Namespace ASP
行 43:
行 44: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
行 45: Public Class cruise_ship_aspx
行 46: Inherits Global.TourEx.B2C.Cruise.Web.ship
行 47: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
行 48:
行 49: Private Shared __initialized As Boolean
行 50:
行 51: Private Shared __fileDependencies As Object
行 52:
行 53:
行 54: #ExternalSource("f:\usr\LocalUser\hyw7409340001\cruise\ship.aspx",7)
行 55:
行 56: Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
行 57: MyBase.OnInit(e)
行 58: If iscache Then
行 59: Exit Sub
行 60: End If
行 61: TourExStr.AppendLine("<!DOCTYPE html PUBLIC ""-//W3C//XHD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/XHD/xhtml1-transitional.dtd"">")
行 62: TourExStr.AppendLine("<html xmlns=""http://www.w3.org/1999/xhtml"">")
行 63: TourExStr.AppendLine("<head>")
行 64: TourExStr.AppendLine("<meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""/>")
行 65: TourExStr.AppendLine("<meta http-equiv=""X-UA-Compatible"" content=""IE=Edge,chrome=1"" />")
行 66: TourExStr.AppendLine("<title>游轮品牌详情页 - " & m.name & "邮轮</title>")
行 67: TourExStr.AppendLine("<meta name=""keywords"" content=""旅游度假,酒店预订,景点门票,特价机票,出国签证,自驾租车""/>")
行 68: TourExStr.AppendLine("<meta name=""description"" content=""TourEx旅游网站管理系统-中国最专业全面的旅游线路和自助游一站式旅游服务提供商,客户满意度96%;提供旅游度假,酒店预订,景点门票,特价机票,出国签证,自驾租车。实时发团日期,报价,行程,全程优质的服务保障""/>")
行 69: TourExStr.AppendLine("<link rel=""stylesheet"" type=""text/css"" href=""/cruise/css/common.css""/>")
行 70: TourExStr.AppendLine("<link rel=""stylesheet"" type=""text/css"" href=""/cruise/css/cruise.css""/>")
行 71: TourExStr.AppendLine("<link rel=""stylesheet"" href=""/cruise/style/" & Config.Sys.WebSiteStyle & "/color.css""/>")
行 72: TourExStr.AppendLine("<!--[if lte IE 6]>")
行 73: TourExStr.AppendLine("<script src=""/js/transparentbng.js"" type=""text/javascript""></" & "script>")
行 74: TourExStr.AppendLine("<script type=""text/javascript"">")
行 75: TourExStr.AppendLine("DD_belatedPNG.fix('ul,img,li,input,b,div,a,*');//IE6 png透明解决方案")
行 76: TourExStr.AppendLine("</" & "script>")
行 77: TourExStr.AppendLine("<![endif]-->")
行 78: TourExStr.AppendLine("<div id=""header"">")
行 79: TourExStr.AppendLine(" <div class=""shortCut"">")
行 80: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
行 81: TourExStr.AppendLine(" <div class=""loginBar"">")
行 82: TourExStr.AppendLine(" <p id=""unlogin"">您好,欢迎来到" & sitename & "!")
行 83: TourExStr.AppendLine(" <span><a href=""javascript:void(0);"" id=""login"" rel=""nofollow"">会员登录</a>|<a href=""" & weburl & "usercenter/reg.aspx"" rel=""nofollow"">免费注册</a></span></p>")
行 84: TourExStr.AppendLine(" <p id=""logined"" style=""display:none;"">您好<em class=""user"" id=""logined_name""></em>,欢迎来到" & sitename & "!<span><a href=""" & weburl & "usercenter"" >会员中心</a>|<a href=""" & weburl & "usercenter/login.aspx?act=out"" id=""loginout"" rel=""nofollow"">退出</a></span></p>")
行 85: TourExStr.AppendLine(" </div>")
行 86: TourExStr.AppendLine(" <ul class=""headList clearfix"">")
行 87: TourExStr.AppendLine(" <li><a href=""" & lineurl & "line/customize.aspx"" target=""_blank"">旅游定制</a></li>")
行 88: TourExStr.AppendLine(" <li><a href=""" & weburl & "feedback.aspx"" target=""_blank"">意见反馈</a></li>")
行 89: TourExStr.AppendLine(" <li class=""drop weixin"">")
行 90: TourExStr.AppendLine(" <a href=""javascript:void(0);"">关注我们</a><i></i>")
行 91: TourExStr.AppendLine(" <div class=""dropDown"">")
行 92: TourExStr.AppendLine(" <div class=""content"">")
行 93: TourExStr.AppendLine(" <p>直接扫描下方二维码</p>")
行 94: TourExStr.AppendLine(" <img src=""/" & Config.Sys.WeiXinCode & """>")
行 95: TourExStr.AppendLine(" </div>")
行 96: TourExStr.AppendLine(" </div>")
行 97: TourExStr.AppendLine(" </li>")
行 98: TourExStr.AppendLine(" <li class=""drop wap"">")
行 99: TourExStr.AppendLine(" <a href=""javascript:void(0);"">WAP版本</a><i></i>")
行 100: TourExStr.AppendLine(" <div class=""dropDown"">")
行 101: TourExStr.AppendLine(" <div class=""content"">")
行 102: TourExStr.AppendLine(" <p>直接扫描下方二维码直接访问</p>")
行 103: TourExStr.AppendLine(" <img src=""/" & Config.Sys.WebCode & """>")
行 104: TourExStr.AppendLine(" </div>")
行 105: TourExStr.AppendLine(" </div>")
行 106: TourExStr.AppendLine(" </li>")
行 107: TourExStr.AppendLine(" <li class=""drop webNav"">")
行 108: TourExStr.AppendLine(" <a href=""javascript:void(0);"">网站导航</a><i></i>")
行 109: TourExStr.AppendLine(" <div class=""dropDown"">")
行 110: TourExStr.AppendLine(" <div class=""content"">")
行 111: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 112: TourExStr.AppendLine(" <dt>旅游线路</dt>")
行 113: Dim V_1 As Integer = 0
行 114: For Each R_1 As DataRow In TourEx.B2C.line.BLL.category.GetList().Select("T_hide=0","t_orderid")
行 115: V_1 += 1
行 116:
行 117: TourExStr.AppendLine(" <dd><a href=""" & lineurl & "" & R_1("t_pagename") & ".aspx?cid=" & cpara & """ title=""" & R_1("t_pagename") & """ target=""_blank"">" & R_1("t_name") & "</a></dd>")
行 118: Next
行 119:
行 120: TourExStr.AppendLine(" <dd><a href=""" & lineurl & "line/customize.aspx"" title=""高级定制"" target=""_blank"">高级定制</a></dd>")
行 121: TourExStr.AppendLine(" </dl>")
行 122: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 123: TourExStr.AppendLine(" <dt>旅游服务</dt>")
行 124: TourExStr.AppendLine(" <dd><a href=""" & hotelurl & "hotel/"" target=""_blank"">酒店预订</a></dd>")
行 125: TourExStr.AppendLine(" <dd><a href=""" & sceneryurl & "scenery/"" target=""_blank"">景点门票</a></dd>")
行 126: TourExStr.AppendLine(" <dd><a href=""" & visaurl & "visa/"" target=""_blank"">出国签证</a></dd>")
行 127: TourExStr.AppendLine(" <dd><a href=""" & carurl & "car/"" target=""_blank"">旅游租车</a></dd>")
行 128: TourExStr.AppendLine(" <dd><a href=""" & teamurl & "tuan/"" target=""_blank"">旅游团购</a></dd>")
行 129: TourExStr.AppendLine(" <dd><a href=""" & flighturl & "flight/"" target=""_blank"">国内机票</a></dd>")
行 130: TourExStr.AppendLine(" <dd><a href=""" & travelsurl & "travels/"" target=""_blank"">游记攻略</a></dd>")
行 131: TourExStr.AppendLine(" <dd><a href=""" & destinationurl & "destination/default.aspx"" target=""_blank"">目的地</a></dd>")
行 132: TourExStr.AppendLine(" <dd><a href=""" & guideurl & "guide/"" target=""_blank"">导游服务</a></dd>")
行 133: TourExStr.AppendLine(" <dd><a href=""" & gifturl & "gift/"" target=""_blank"">礼品兑换</a></dd>")
行 134: TourExStr.AppendLine(" </dl>")
行 135: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 136: TourExStr.AppendLine(" <dt>度假产品</dt>")
行 137: Dim V_2 As Integer = 0
行 138: Dim SqlStr_2 As String = "select t_id,T_Name,T_ModuleName,T_Sort from [" & TablePrefix & "g_type] order by t_sort Desc"
行 139: Dim Dr_2 As SqlDataReader = TourEx.B2C.Base.BLL.General.DataList(SqlStr_2,0)
行 140: If Dr_2.Read Then
行 141: Do
行 142: V_2+=1
行 143: TourExStr.AppendLine(" <dd><a href=""" & geturl(Dr_2("t_ModuleName").ToString()) & "" & Dr_2("t_ModuleName").ToString() & "/list.aspx?mid=" & Dr_2("t_id").ToString() & """>" & Dr_2("t_name").ToString() & "</a></dd>")
行 144: If Dr_2.Read = false Then
行 145: Exit Do
行 146: End If
行 147: Loop
行 148: End If
行 149: Dr_2.Close()
行 150:
行 151: TourExStr.AppendLine(" </dl>")
行 152: TourExStr.AppendLine(" </div>")
行 153: TourExStr.AppendLine(" </div>")
行 154: TourExStr.AppendLine(" </li>")
行 155: TourExStr.AppendLine(" <li><a href=""" & weburl & "provider/"" target=""_blank"">商家管理</a></li>")
行 156: TourExStr.AppendLine(" </ul>")
行 157: TourExStr.AppendLine(" </div>")
行 158: TourExStr.AppendLine(" </div>")
行 159: TourExStr.AppendLine(" <div class=""siteInfo clearfix"">")
行 160: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
行 161: TourExStr.AppendLine(" <div class=""logoBox"">")
行 162: TourExStr.AppendLine(" <div class=""container clearfix"">")
行 163: TourExStr.AppendLine(" <a class=""logo"" href=""" & weburl & """ title=""" & sitename & """><img src=""/" & sitelogo & """ alt=""" & sitename & """ width=""180"" height=""60""/></a>")
行 164: TourExStr.AppendLine(" <dl class=""phone"">")
行 165: TourExStr.AppendLine(" <dt>24小时服务热线</dt>")
行 166: TourExStr.AppendLine(" <dd>" & sitetel & "</dd>")
行 167: TourExStr.AppendLine(" </dl>")
行 168: TourExStr.AppendLine(" </div>")
行 169: TourExStr.AppendLine(" </div>")
行 170: TourExStr.AppendLine(" <div class=""headSearch"">")
行 171: TourExStr.AppendLine(" <form name=""searchform"" id=""searchform"" method=""get"">")
行 172: TourExStr.AppendLine(" <div class=""siteSearch clearfix"">")
行 173: TourExStr.AppendLine(" <div class=""searchInput"">")
行 174: TourExStr.AppendLine(" <div class=""container"">")
行 175: TourExStr.AppendLine(" <div class=""inputType"">")
行 176: TourExStr.AppendLine(" <div class=""text""><p style=""letter-spacing: 4px;"">线路</p><i> </i></div>")
行 177: TourExStr.AppendLine(" <div class=""dropMenu"" style=""display: none;"">")
行 178: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 179: TourExStr.AppendLine(" <dd defaultkey=""请输入目的地名称或线路关键词"" url=""" & lineurl & "line/list.aspx"">线路</dd>")
行 180: TourExStr.AppendLine(" <dd defaultkey=""请输入酒店宾馆关键词"" url=""" & hotelurl & "hotel/list.aspx"">酒店</dd>")
行 181: TourExStr.AppendLine(" <dd defaultkey=""请输入景点门票关键词"" url=""" & sceneryurl & "scenery/list.aspx"">门票</dd>")
行 182: TourExStr.AppendLine(" <dd defaultkey=""请输入酒+景套餐关键词"" url=""" & teamurl & "taocan/list.aspx"" style=""letter-spacing: 0px;"">酒+景</dd>")
行 183: TourExStr.AppendLine(" <dd defaultkey=""请输入汽车或品牌关键词"" url=""" & carurl & "car/list.aspx"">租车</dd>")
行 184: TourExStr.AppendLine(" <dd defaultkey=""请输入目的地名称或签证关键词"" url=""" & visaurl & "visa/list.aspx"">签证</dd>")
行 185: TourExStr.AppendLine(" <dd defaultkey=""请输入团购产品关键词"" url=""" & teamurl & "tuan/default.aspx"">团购</dd>")
行 186: TourExStr.AppendLine(" <dd defaultkey=""请输入特产产品关键词"" url=""" & specialtyurl & "specialty/list.aspx"">特产</dd>")
行 187: TourExStr.AppendLine(" <dd defaultkey=""请输入邮轮关键词"" url=""" & cruiseurl & "cruise/list.aspx"">邮轮</dd>")
行 188: TourExStr.AppendLine(" <dd defaultkey=""请输入新闻标题关键词"" url=""" & newsurl & "news/list.aspx"">新闻</dd>")
行 189: TourExStr.AppendLine(" </dl>")
行 190: TourExStr.AppendLine(" </div>")
行 191: TourExStr.AppendLine(" </div>")
行 192: TourExStr.AppendLine(" <div class=""inputBox""><div class=""wrapBox""><input type=""text"" placeholder=""请输入目的地名称或线路关键词"" id=""s_input"" name=""key"" class=""inputText""/></div></div>")
行 193: TourExStr.AppendLine(" </div>")
行 194: TourExStr.AppendLine(" </div>")
行 195: TourExStr.AppendLine(" <div class=""searchBtn""><input type=""submit"" class=""inputBtn"" value=""搜 索"" id=""s_input""/></div>")
行 196: TourExStr.AppendLine(" </div>")
行 197: TourExStr.AppendLine(" </form>")
行 198: TourExStr.AppendLine(" </div>")
行 199: TourExStr.AppendLine(" </div>")
行 200: TourExStr.AppendLine(" </div>")
行 201: TourExStr.AppendLine(" <div class=""headNav"">")
行 202: TourExStr.AppendLine(" <div class=""wrapper"">")
行 203: TourExStr.AppendLine(" <ul id=""nav"" class=""nav clearfix"">")
行 204: TourExStr.AppendLine(" <li class=""nLi"" style=""position:relative;"">")
行 205: TourExStr.AppendLine(" <div href=""javascript:;"" class=""menuHeader"">")
行 206: TourExStr.AppendLine(" <span class=""memu_top""><b>全部分类</b></span>")
行 207: TourExStr.AppendLine(" <div class=""menuBox"">")
行 208: TourExStr.AppendLine(" <div class=""menuItem"">")
行 209: TourExStr.AppendLine(" <div class=""titBox"">")
行 210: TourExStr.AppendLine(" <ul class=""tit"">")
行 211: TourExStr.AppendLine(" <li class=""mod_cate clearfix"">")
行 212: TourExStr.AppendLine(" <div class=""mod_tit"">")
行 213: TourExStr.AppendLine(" <dl>")
行 214: TourExStr.AppendLine(" <dt><a href=""" & lineurl & "line/list.aspx"" class=""hot_sub"">旅游线路</a></dt>")
行 215: TourExStr.AppendLine(" <dd class=""clearfix"">")
行 216: Dim V_3 As Integer = 0
行 217: For Each R_3 As DataRow In TourEx.B2C.line.BLL.category.GetList().Select("T_hide=0","t_orderid")
行 218: V_3 += 1
行 219:
行 220: TourExStr.AppendLine(" <a href=""" & lineurl & "line/list.aspx?tid=" & R_3("t_id") & """ target=""_blank"">" & R_3("t_name") & "</a>")
行 221: Next
行 222:
行 223: TourExStr.AppendLine(" </dd>")
行 224: TourExStr.AppendLine(" </dl>")
行 225: TourExStr.AppendLine(" </div>")
行 226: TourExStr.AppendLine(" <div class=""mod_subcate"">")
行 227: TourExStr.AppendLine(" <div class=""mod_subcate_main"">")
行 228: TourExStr.AppendLine(" <dl>")
行 229: TourExStr.AppendLine(" <dt>出发城市</dt>")
行 230: TourExStr.AppendLine(" <dd>")
行 231: Dim V_4 As Integer = 0
行 232: For Each R_4 As DataRow In TourEx.B2C.line.BLL.city.GetList().Rows
行 233: V_4 += 1
行 234:
行 235: TourExStr.AppendLine(" <a href=""" & geturlbyid(R_4("t_id")) & "line/default.aspx?cid=" & R_4("t_para") & """ target=""_blank"">" & R_4("t_name") & "</a>")
行 236: Next
行 237:
行 238: TourExStr.AppendLine(" </dd>")
行 239: TourExStr.AppendLine(" </dl>")
行 240: TourExStr.AppendLine(" <dl>")
行 241: TourExStr.AppendLine(" <dt>参团性质</dt>")
行 242: TourExStr.AppendLine(" <dd>")
行 243: TourExStr.AppendLine(" <a id=""op_1"" target=""_blank"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=1&topics=0&days=0&p1=0&p2=0&orderid=0"">参团游</a>")
行 244: TourExStr.AppendLine(" <a id=""op_2"" target=""_blank"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=2&topics=0&days=0&p1=0&p2=0&orderid=0"">自由行</a>")
行 245: TourExStr.AppendLine(" <a id=""op_3"" target=""_blank"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=3&topics=0&days=0&p1=0&p2=0&orderid=0"">团队游</a>")
行 246: TourExStr.AppendLine(" <a id=""op_4"" target=""_blank"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=4&topics=0&days=0&p1=0&p2=0&orderid=0"">自驾游</a>")
行 247: TourExStr.AppendLine(" </dd>")
行 248: TourExStr.AppendLine(" </dl>")
行 249: TourExStr.AppendLine(" <dl>")
行 250: TourExStr.AppendLine(" <dt>线路主题</dt>")
行 251: TourExStr.AppendLine(" <dd> ")
行 252: Dim V_5 As Integer = 0
行 253: For Each R_5 As DataRow In TourEx.B2C.line.BLL.topics.GetList().Rows
行 254: V_5 += 1
行 255:
行 256: TourExStr.AppendLine(" <a id=""topics_" & R_5("t_id") & """ href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=" & R_5("t_id") & "&days=0&p1=0&p2=0&orderid=0"" target=""_blank"">" & R_5("t_name") & "</a>")
行 257: Next
行 258:
行 259: TourExStr.AppendLine(" </dd>")
行 260: TourExStr.AppendLine(" </dl>")
行 261: TourExStr.AppendLine(" <dl>")
行 262: TourExStr.AppendLine(" <dt>出游天数</dt>")
行 263: TourExStr.AppendLine(" <dd>")
行 264: TourExStr.AppendLine(" <a id=""days_1"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=1&p1=0&p2=0&orderid=0"" target=""_blank"">一日游</a>")
行 265: TourExStr.AppendLine(" <a id=""days_2"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=2&p1=0&p2=0&orderid=0"" target=""_blank"">二日游</a>")
行 266: TourExStr.AppendLine(" <a id=""days_3"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=3&p1=0&p2=0&orderid=0"" target=""_blank"">三日游</a>")
行 267: TourExStr.AppendLine(" <a id=""days_4"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=4&p1=0&p2=0&orderid=0"" target=""_blank"">四日游</a>")
行 268: TourExStr.AppendLine(" <a id=""days_5"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=5&p1=0&p2=0&orderid=0"" target=""_blank"">五日游</a>")
行 269: TourExStr.AppendLine(" <a id=""days_6"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=6&p1=0&p2=0&orderid=0"" target=""_blank"">六日游</a>")
行 270: TourExStr.AppendLine(" <a id=""days_-8"" href=""" & lineurl & "line/list.aspx?cid=0&tid=0&dpid=0&did=0&op=0&topics=0&days=-8&p1=0&p2=0&orderid=0"" target=""_blank"">八日游以上</a>")
行 271: TourExStr.AppendLine(" </dd>")
行 272: TourExStr.AppendLine(" </dl>")
行 273: TourExStr.AppendLine(" </div>")
行 274: TourExStr.AppendLine(" <div class=""hr""></div>")
行 275: TourExStr.AppendLine(" <div class=""mod_subcate_channel""><a href=""" & lineurl & "line/"" class=""mod_btn_arrow"" target=""_blank""><span>更多旅游线路</span><i class=""arrow_dot""></i></a></div>")
行 276: TourExStr.AppendLine(" <!-- <div class=""lbanner"">")
行 277: TourExStr.AppendLine(" <img src=""images/zhoubian.jpg"" alt="""" />")
行 278: TourExStr.AppendLine(" </div> -->")
行 279: TourExStr.AppendLine(" </div>")
行 280: TourExStr.AppendLine(" </li>")
行 281: TourExStr.AppendLine(" <li class=""mod_cate clearfix"">")
行 282: TourExStr.AppendLine(" <div class=""mod_tit"">")
行 283: TourExStr.AppendLine(" <div class=""dd""></div>")
行 284: TourExStr.AppendLine(" <dl>")
行 285: TourExStr.AppendLine(" <dt><a href=""#"" class=""hot_sub"">酒店宾馆</a></dt>")
行 286: TourExStr.AppendLine(" <dd class=""clearfix"">")
行 287: Dim V_6 As Integer = 0
行 288: For Each R_6 As DataRow In TourEx.B2C.hotel.BLL.category.GetList().Rows
行 289: V_6 += 1
行 290:
行 291: TourExStr.AppendLine(" <a href=""" & hotelurl & "hotel/list.aspx?tid=" & R_6("t_id") & """ target=""_blank"">" & R_6("t_name") & "</a>")
行 292: Next
行 293:
行 294: TourExStr.AppendLine(" </dd>")
行 295: TourExStr.AppendLine(" </dl>")
行 296: TourExStr.AppendLine(" </div>")
行 297: TourExStr.AppendLine(" <div class=""mod_subcate"">")
行 298: TourExStr.AppendLine(" <div class=""mod_subcate_main"">")
行 299: TourExStr.AppendLine(" <dl>")
行 300: TourExStr.AppendLine(" <dt>酒店类型</dt>")
行 301: TourExStr.AppendLine(" <dd>")
行 302: Dim V_7 As Integer = 0
行 303: For Each R_7 As DataRow In TourEx.B2C.hotel.BLL.category.GetList().Rows
行 304: V_7 += 1
行 305:
行 306: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?tid=" & R_7("t_id") & """>" & R_7("t_name") & "</a> ")
行 307: Next
行 308:
行 309: TourExStr.AppendLine(" </dd>")
行 310: TourExStr.AppendLine(" </dl>")
行 311: TourExStr.AppendLine(" <dl id=""hotelcitydl"">")
行 312: TourExStr.AppendLine(" <dt>所在城市</dt>")
行 313: TourExStr.AppendLine(" <dd>")
行 314: Dim V_8 As Integer = 0
行 315: For Each R_8 As DataRow In TourEx.B2C.hotel.BLL.city.GetList().Select("t_level=1","")
行 316: V_8 += 1
行 317:
行 318: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?cid=" & R_8("t_id") & """>" & R_8("t_name") & "</a>")
行 319: Next
行 320:
行 321: TourExStr.AppendLine(" </dd>")
行 322: TourExStr.AppendLine(" </dl>")
行 323: TourExStr.AppendLine(" <dl>")
行 324: TourExStr.AppendLine(" <dt>价格范围</dt>")
行 325: TourExStr.AppendLine(" <dd>")
行 326: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=0&p2=200"">200元以下</a>")
行 327: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=200&p2=300"">200-300元</a>")
行 328: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=300&p2=500"">300-500元</a>")
行 329: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=500&p2=1000"">500-1000元</a>")
行 330: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=1000&p2=3000"">1000-3000元</a>")
行 331: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?p1=3000&p2=5000"">3000-5000元</a>")
行 332: TourExStr.AppendLine(" </dd>")
行 333: TourExStr.AppendLine(" </dl>")
行 334: TourExStr.AppendLine(" <dl>")
行 335: TourExStr.AppendLine(" <dt>星级档次</dt>")
行 336: TourExStr.AppendLine(" <dd>")
行 337: Dim V_9 As Integer = 0
行 338: For Each R_9 As DataRow In TourEx.B2C.hotel.BLL.star.GetList().Rows
行 339: V_9 += 1
行 340:
行 341: TourExStr.AppendLine(" <a target=""_blank"" href=""" & hotelurl & "hotel/list.aspx?starid=" & R_9("t_id") & """>" & R_9("t_name") & "</a>")
行 342: Next
行 343:
行 344: TourExStr.AppendLine(" </dd>")
行 345: TourExStr.AppendLine(" </dl>")
行 346: TourExStr.AppendLine(" </div>")
行 347: TourExStr.AppendLine(" <div class=""hr""></div>")
行 348: TourExStr.AppendLine(" <div class=""mod_subcate_channel""><a href=""" & lineurl & "hotel/"" class=""mod_btn_arrow"" target=""_blank""><span>更多酒店</span><i class=""arrow_dot""></i></a></div>")
行 349: TourExStr.AppendLine(" </div>")
行 350: TourExStr.AppendLine(" </li>")
行 351: TourExStr.AppendLine(" <li class=""mod_cate clearfix"">")
行 352: TourExStr.AppendLine(" <div class=""mod_tit"">")
行 353: TourExStr.AppendLine(" <dl>")
行 354: TourExStr.AppendLine(" <dt><a href=""#"" class=""hot_sub"">景点门票</a></dt>")
行 355: TourExStr.AppendLine(" <dd class=""clearfix"">")
行 356: Dim V_10 As Integer = 0
行 357: For Each R_10 As DataRow In TourEx.B2C.scenery.BLL.category.GetList().Rows
行 358: V_10 += 1
行 359:
行 360: TourExStr.AppendLine(" <a href=""" & sceneryurl & "scenery/list.aspx?cid=" & cid & "&tid=" & R_10("t_id") & """ title=""" & R_10("t_name") & """ target=""_blank"">" & R_10("t_name") & "</a>")
行 361: Next
行 362:
行 363: TourExStr.AppendLine(" </dd>")
行 364: TourExStr.AppendLine(" </dl>")
行 365: TourExStr.AppendLine(" </div>")
行 366: TourExStr.AppendLine(" <div class=""mod_subcate"">")
行 367: TourExStr.AppendLine(" <div class=""mod_subcate_main"">")
行 368: TourExStr.AppendLine(" <dl id=""scenerycitydl"">")
行 369: TourExStr.AppendLine(" <dt>所在城市</dt>")
行 370: TourExStr.AppendLine(" <dd>")
行 371: Dim V_11 As Integer = 0
行 372: For Each R_11 As DataRow In TourEx.B2C.scenery.BLL.city.GetList().Select("T_Level=1","")
行 373: V_11 += 1
行 374:
行 375: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?cid=" & R_11("t_id") & """>" & R_11("t_name") & "</a>")
行 376: Next
行 377:
行 378: TourExStr.AppendLine(" </dd>")
行 379: TourExStr.AppendLine(" </dl>")
行 380: TourExStr.AppendLine(" <dl>")
行 381: TourExStr.AppendLine(" <dt>游玩主题</dt>")
行 382: TourExStr.AppendLine(" <dd>")
行 383: Dim V_12 As Integer = 0
行 384: For Each R_12 As DataRow In TourEx.B2C.scenery.BLL.category.GetList().Rows
行 385: V_12 += 1
行 386:
行 387: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?cid=" & cid & "&tid=" & R_12("t_id") & """>" & R_12("t_name") & "</a>")
行 388: Next
行 389:
行 390: TourExStr.AppendLine(" </dd>")
行 391: TourExStr.AppendLine(" </dl>")
行 392: TourExStr.AppendLine(" <dl>")
行 393: TourExStr.AppendLine(" <dt>景点星级</dt>")
行 394: TourExStr.AppendLine(" <dd>")
行 395: Dim V_13 As Integer = 0
行 396: For Each R_13 As DataRow In TourEx.B2C.scenery.BLL.level.GetList().Rows
行 397: V_13 += 1
行 398:
行 399: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?l=" & R_13("t_id") & """>" & R_13("t_name") & "</a>")
行 400: Next
行 401:
行 402: TourExStr.AppendLine(" </dd>")
行 403: TourExStr.AppendLine(" </dl>")
行 404: TourExStr.AppendLine(" <dl>")
行 405: TourExStr.AppendLine(" <dt>门票价格</dt>")
行 406: TourExStr.AppendLine(" <dd>")
行 407: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?p1=0&p2=50"">50元以下</a>")
行 408: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?p1=50&p2=100"">50-100元</a>")
行 409: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?p1=100&p2=500"">100-500元</a>")
行 410: TourExStr.AppendLine(" <a target=""_blank"" href=""" & sceneryurl & "scenery/list.aspx?p1=500&p2=0"">500元以上</a>")
行 411: TourExStr.AppendLine(" </dd>")
行 412: TourExStr.AppendLine(" </dl>")
行 413: TourExStr.AppendLine(" </div>")
行 414: TourExStr.AppendLine(" <div class=""hr""></div>")
行 415: TourExStr.AppendLine(" <div class=""mod_subcate_channel""><a href=""" & lineurl & "scenery/"" class=""mod_btn_arrow"" target=""_blank""><span>更多景点门票</span><i class=""arrow_dot""></i></a></div>")
行 416: TourExStr.AppendLine(" </div>")
行 417: TourExStr.AppendLine(" </li>")
行 418: TourExStr.AppendLine(" <li class=""mod_cate clearfix"">")
行 419: TourExStr.AppendLine(" <div class=""mod_tit"">")
行 420: TourExStr.AppendLine(" <dl>")
行 421: TourExStr.AppendLine(" <dt><a href=""" & taocanurl & "taocan/list.aspx"" class=""hot_sub"">酒+景</a></dt>")
行 422: TourExStr.AppendLine(" <dd class=""clearfix"">")
行 423: Dim V_14 As Integer = 0
行 424: For Each R_14 As DataRow In TourEx.B2C.taocan.BLL.city.GetList().Select("T_Level=1","")
行 425: V_14 += 1
行 426:
行 427: TourExStr.AppendLine(" <a href=""" & taocanurl & "taocan/list.aspx?cid=" & R_14("t_id") & """ target=""_blank"">" & R_14("t_name") & "</a>")
行 428: Next
行 429:
行 430: TourExStr.AppendLine(" </dd>")
行 431: TourExStr.AppendLine(" </dl>")
行 432: TourExStr.AppendLine(" </div>")
行 433: TourExStr.AppendLine(" <div class=""mod_subcate"">")
行 434: TourExStr.AppendLine(" <div class=""mod_subcate_main"">")
行 435: TourExStr.AppendLine(" <dl>")
行 436: TourExStr.AppendLine(" <dt>目的地</dt>")
行 437: TourExStr.AppendLine(" <dd>")
行 438: Dim V_15 As Integer = 0
行 439: For Each R_15 As DataRow In TourEx.B2C.taocan.BLL.city.GetList().Select("T_Level=1","")
行 440: V_15 += 1
行 441:
行 442: TourExStr.AppendLine(" <a href=""" & taocanurl & "taocan/list.aspx?cid=" & R_15("t_id") & "&days=0&starid=0"" target=""_blank"">" & R_15("t_name") & "</a>")
行 443: Next
行 444:
行 445: TourExStr.AppendLine(" </dd>")
行 446: TourExStr.AppendLine(" </dl>")
行 447: TourExStr.AppendLine(" <dl>")
行 448: TourExStr.AppendLine(" <dt>游玩天数</dt>")
行 449: TourExStr.AppendLine(" <dd>")
行 450: Dim V_16 As Integer = 0
行 451: For Each R_16 As DataRow In TourEx.B2C.taocan.BLL.traveldays.GetList().Rows
行 452: V_16 += 1
行 453:
行 454: TourExStr.AppendLine(" <a href=""" & taocanurl & "taocan/list.aspx?cid=0&days=" & R_16("t_id") & "&starid=0"" target=""_blank"">" & R_16("t_id")+1 & "天" & R_16("t_id") & "晚</a>")
行 455: Next
行 456:
行 457: TourExStr.AppendLine(" </dd>")
行 458: TourExStr.AppendLine(" </dl>")
行 459: TourExStr.AppendLine(" <dl>")
行 460: TourExStr.AppendLine(" <dt>酒店级别</dt>")
行 461: TourExStr.AppendLine(" <dd> ")
行 462: Dim V_17 As Integer = 0
行 463: For Each R_17 As DataRow In TourEx.B2C.hotel.BLL.star.GetList().Rows
行 464: V_17 += 1
行 465:
行 466: TourExStr.AppendLine(" <a href=""" & taocanurl & "taocan/list.aspx?cid=0&days=0&starid=" & R_17("t_id") & """ target=""_blank"">" & R_17("t_name") & "</a>")
行 467: Next
行 468:
行 469: TourExStr.AppendLine(" </dd>")
行 470: TourExStr.AppendLine(" </dl>")
行 471: TourExStr.AppendLine(" </div>")
行 472: TourExStr.AppendLine(" <div class=""hr""></div>")
行 473: TourExStr.AppendLine(" <div class=""mod_subcate_channel""><a href=""" & taocanurl & "taocan/list.aspx"" class=""mod_btn_arrow"" target=""_blank""><span>更多酒+景</span><i class=""arrow_dot""></i></a></div>")
行 474: TourExStr.AppendLine(" </div>")
行 475: TourExStr.AppendLine(" </li>")
行 476: TourExStr.AppendLine(" <li class=""mod_cate clearfix"">")
行 477: TourExStr.AppendLine(" <div class=""mod_tit"">")
行 478: TourExStr.AppendLine(" <dl>")
行 479: TourExStr.AppendLine(" <dt><a href=""" & lineurl & "line/customize.aspx"" class=""hot_sub"" target=""_blank"">独立成团 个性定制</a></dt>")
行 480: TourExStr.AppendLine(" <dd>")
行 481: TourExStr.AppendLine(" <p>公司、大客户、亲友团出游</p>")
行 482: TourExStr.AppendLine(" <p>全程一站解决。</p>")
行 483: TourExStr.AppendLine(" </dd>")
行 484: TourExStr.AppendLine(" </dl>")
行 485: TourExStr.AppendLine(" </div>")
行 486: TourExStr.AppendLine(" </li>")
行 487: TourExStr.AppendLine(" </ul>")
行 488: TourExStr.AppendLine(" </div>")
行 489: TourExStr.AppendLine(" </div>")
行 490: TourExStr.AppendLine(" </div>")
行 491: TourExStr.AppendLine(" </div>")
行 492: TourExStr.AppendLine(" </li>")
行 493: Dim V_18 As Integer = 0
行 494: For Each M_18 As TourEx.B2C.Base.Model.nav In TourEx.B2C.Base.BLL.nav.GetList("n_hide=0 and n_level=0")
行 495: V_18 += 1
行 496:
行 497:
行 498: dim url as string = M_18.url
行 499: if url.length=0 andAlso M_18.type=1 Then
行 500: url = GetHeadTagNavUrl(M_18.id)
行 501: End if
行 502: if url.StartsWith("/") then
行 503: select M_18.Module.ToLower
行 504: case "hotel"
行 505: url = hotelurl & url.substring(1)
行 506: case "scenery"
行 507: url = sceneryurl & url.substring(1)
行 508: case "car"
行 509: url = carurl & url.substring(1)
行 510: case "visa"
行 511: url = visaurl & url.substring(1)
行 512: case "flight"
行 513: url = flighturl & url.substring(1)
行 514: case "news"
行 515: url = newsurl & url.substring(1)
行 516: case "tuan"
行 517: url = teamurl & url.substring(1)
行 518: case "gift"
行 519: url = gifturl & url.substring(1)
行 520: case "guide"
行 521: url = guideurl & url.substring(1)
行 522: case "line"
行 523: url = lineurl & url.substring(1)
行 524: case "travels"
行 525: url = travelsurl & url.substring(1)
行 526: case "destination"
行 527: url = destinationurl & url.substring(1)
行 528: case "taocan"
行 529: url = taocanurl & url.substring(1)
行 530: case else
行 531: url = weburl & url.substring(1)
行 532: End Select
行 533: elseif url.startsWith("{") then
行 534: 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)
行 535: end if
行 536: if not url.startsWith("http") andalso not url.startsWith("javas" & "cript:") then
行 537: url="http://" & url
行 538: end if
行 539: 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_18.id & " order by n_orderid")
行 540: if navDt.Rows.Count=0 Then
行 541:
行 542: TourExStr.AppendLine(" <li class=""nLi""><h3><a href=""" & url & """ " & iif(M_18.isblank = 1,"target='_blank'","") & " id=""" & M_18.Module & """><b></b><i></i><span>" & M_18.name & "</span></a></h3></li>")
行 543: Else
行 544:
行 545:
行 546: TourExStr.AppendLine(" <li class=""nLi on"">")
行 547: TourExStr.AppendLine(" <h3><a href=""" & url & """ id=""" & M_18.Module & """ " & iif(M_18.isblank = 1,"target='_blank'","") & "><b></b><i></i><span>" & M_18.name & "</span></a></h3>")
行 548: TourExStr.AppendLine(" <div class=""sub"">")
行 549: TourExStr.AppendLine(" <div class=""subList"">")
行 550: TourExStr.AppendLine(" <ul>")
行 551:
行 552: For Each navDr as datarow in navDt.rows
行 553: url = navDr("n_url").tostring()
行 554: if navDr("n_type") = 0 then
行 555:
行 556: TourExStr.AppendLine(" <li><a href='" & Iif(String.IsNullOrEmpty(url),"javascript:void(0)",url) & "' " & iif(navDr("n_isblank") = 1,"target='_blank'","") & ">" & navDr("n_name") & "</a></li>")
行 557:
行 558: else
行 559: url =GetHeadTagChildNavUrl(cid,navDr("n_level"),navDr("n_categoryid"))
行 560: if url="" then
行 561: Continue For
行 562: end if
行 563:
行 564: TourExStr.AppendLine(" <li><a href=""" & url & """ " & iif(navDr("n_isblank") = 1,"target='_blank'","") & " >" & navDr("n_name") & "</a></li>")
行 565:
行 566: end if
行 567: Next
行 568:
行 569:
行 570: TourExStr.AppendLine(" </ul>")
行 571: TourExStr.AppendLine(" </div>")
行 572: TourExStr.AppendLine(" </div>")
行 573: TourExStr.AppendLine(" </li>")
行 574:
行 575: End If
行 576:
行 577: Next
行 578:
行 579: TourExStr.AppendLine(" </ul>")
行 580: TourExStr.AppendLine(" </div>")
行 581: TourExStr.AppendLine(" <div class=""navBg""></div>")
行 582: TourExStr.AppendLine(" </div>")
行 583: TourExStr.AppendLine("</div>")
行 584: TourExStr.AppendLine(" <div id=""main"" class=""brandShow clearfix"">")
行 585: TourExStr.AppendLine(" <div class=""wrapper"">")
行 586: TourExStr.AppendLine(" <div class=""crumbs clearfix"">")
行 587: TourExStr.AppendLine(" 您所在位置:<a title=""首页"" href=""" & weburl & """>首页</a> > <a title=""" & companyModel.name & """ href=""" & cruiseurl & "cruise/company.aspx?id=" & companyModel.id & """>" & companyModel.name & "介绍</a> > " & m.name & "")
行 588: TourExStr.AppendLine(" </div>")
行 589: TourExStr.AppendLine(" <div class=""brand_banner"">")
行 590: TourExStr.AppendLine(" <div class=""brand_banner_pic bd"">")
行 591: TourExStr.AppendLine(" <ul class=""clearfix"">")
行 592: Dim V_19 As Integer = 0
行 593: Dim SqlStr_19 As String = "select top 5 p_title,p_pic from [" & TablePrefix & "ShipPic] where P_E_Id=" & m.id & " and P_Type=0"
行 594: Dim Dr_19 As SqlDataReader = TourEx.B2C.Base.BLL.General.DataList(SqlStr_19,0)
行 595: If Dr_19.Read Then
行 596: Do
行 597: V_19+=1
行 598: TourExStr.AppendLine(" <li><img src=""" & formatpic(Dr_19("p_pic").ToString(),6) & """ alt=""" & Dr_19("p_title").ToString() & """ /></li> ")
行 599: If Dr_19.Read = false Then
行 600: Exit Do
行 601: End If
行 602: Loop
行 603: End If
行 604: Dr_19.Close()
行 605:
行 606: TourExStr.AppendLine(" </ul>")
行 607: TourExStr.AppendLine(" </div>")
行 608: TourExStr.AppendLine(" <div class=""hd""><ul></ul></div>")
行 609: TourExStr.AppendLine(" <div class=""brand_cruise"">")
行 610: TourExStr.AppendLine(" <div class=""brand_cruise_logo"">")
行 611: TourExStr.AppendLine(" <img width="" 256"" height=""65"" alt=""" & m.name & """ src=""" & formatpic(m.previewpic,6) & """ />")
行 612: TourExStr.AppendLine(" </div>")
行 613: TourExStr.AppendLine(" <div class=""brand_cruise_name"">")
行 614: TourExStr.AppendLine(" <h2 class=""brand_cruise_name_en"">" & m.enname & "</h2>")
行 615: TourExStr.AppendLine(" <h2 class=""brand_cruise_name_cn brand_open_detail"">")
行 616: TourExStr.AppendLine(" <a title=""" & m.name & """ target=""_blank"" href=""" & cruiseurl & "cruise/company.aspx?id=" & companyModel.id & """>" & companyModel.name & "</a>" & m.name & "<a href=""javascript:;"" class=""banner_more_detail""><span>简介</span></a>")
行 617: TourExStr.AppendLine(" </h2>")
行 618: TourExStr.AppendLine(" <!--<div class=""brand_comment"">")
行 619: TourExStr.AppendLine(" <p class=""brand_comment_score"">4.7<span>/5分</span></p>")
行 620: TourExStr.AppendLine(" <p>16人点评</p>")
行 621: TourExStr.AppendLine(" </div>-->")
行 622: TourExStr.AppendLine(" </div>")
行 623: TourExStr.AppendLine(" </div>")
行 624: TourExStr.AppendLine(" </div>")
行 625: TourExStr.AppendLine(" <div class=""brand_ship_summary"">")
行 626: TourExStr.AppendLine(" <div class=""brand_ship_detail"" style=""display:none"">")
行 627: TourExStr.AppendLine(" " & m.brief & "")
行 628: TourExStr.AppendLine(" </div>")
行 629: TourExStr.AppendLine(" <ul class=""brand_ship_summry"">")
行 630: TourExStr.AppendLine(" <li>吨位:" & m.tonnage & "吨</li>")
行 631: TourExStr.AppendLine(" <li><i class=""ship_summary_icon""></i>载客:" & m.passenger & "人</li>")
行 632: TourExStr.AppendLine(" <li><i class=""ship_summary_icon""></i>楼层:" & m.floor & "层</li>")
行 633: TourExStr.AppendLine(" <li><i class=""ship_summary_icon""></i>长度:" & m.length & "米</li>")
行 634: TourExStr.AppendLine(" <li><i class=""ship_summary_icon""></i>宽度:" & m.width & "米</li>")
行 635: TourExStr.AppendLine(" <li><i class=""ship_summary_icon""></i>船速:" & m.speed & "节</li>")
行 636: TourExStr.AppendLine(" </ul>")
行 637: TourExStr.AppendLine(" </div>")
行 638: TourExStr.AppendLine(" <div class=""brand_nav_box clearfix"">")
行 639: TourExStr.AppendLine(" <ul class=""brand_nav"">")
行 640: TourExStr.AppendLine(" <li class=""on""><span>舱房介绍</span></li>")
行 641: TourExStr.AppendLine(" <li><span>海上美食</span></li>")
行 642: TourExStr.AppendLine(" <li><span>邮轮玩乐</span></li>")
行 643: TourExStr.AppendLine(" <li><span>邮轮服务</span></li>")
行 644: TourExStr.AppendLine(" <li><span>邮轮点评</span></li>")
行 645: TourExStr.AppendLine(" <li class=""end""><span>精选航线</span></li>")
行 646: TourExStr.AppendLine(" </ul>")
行 647: TourExStr.AppendLine(" </div>")
行 648: TourExStr.AppendLine(" </div>")
行 649: TourExStr.AppendLine(" <div class=""channel cabin_box"">")
行 650: TourExStr.AppendLine(" <div class=""category_slide wrapper"">")
行 651: TourExStr.AppendLine(" <div class=""channel_tit"">舱房介绍</div>")
行 652: TourExStr.AppendLine(" <div class=""category_nav"">")
行 653: dim cabinArray() as string = Config.Cruise.CabinType.Split(",")
行 654: for i as integer=0 to cabinArray.length -1
行 655:
行 656: TourExStr.AppendLine(" <a href=""javascript:;"" class='category_li " & iif(i=0,"on","") & "'><p>" & cabinArray(i) & "</p>" & Cruise.BLL.Cabin.GetCountByType(m.id,cabinArray(i)) & "间</a>")
行 657: Next
行 658: TourExStr.AppendLine(" <a class=""more_line"" target=""_blank"" href=""" & cruiseurl & "cruise/cabin.aspx?sid=" & m.id & """>更多<i class=""poi_tit_arr""></i></a>")
行 659: TourExStr.AppendLine(" </div>")
行 660: TourExStr.AppendLine(" <div class=""channel_detail_boxs category_box"">")
行 661: for i = 0 to cabinArray.length -1
行 662: TourExStr.AppendLine(" <div class=""channel_detail_box"">")
行 663: TourExStr.AppendLine(" <ul class=""channel_cat_detail"">")
行 664: Dim V_20 As Integer = 0
行 665: For Each R_20 As DataRow In TourEx.B2C.cruise.BLL.cabin.GetList().Select("c_shipid=" & m.id & " and c_category='" & cabinArray(i) & "'","")
行 666: V_20 += 1
行 667:
行 668: TourExStr.AppendLine(" <li " & iif(V_20=1,"class='on'","") & ">" & R_20("c_name") & "<i class=""cat_det_arr""></i></li>")
行 669: If V_20 >= 5 Then
行 670: Exit For
行 671: End If
行 672: Next
行 673:
行 674: TourExStr.AppendLine(" </ul>")
行 675: TourExStr.AppendLine(" <div class=""channel_cat_boxs"">")
行 676: Dim V_21 As Integer = 0
行 677: For Each R_21 As DataRow In TourEx.B2C.cruise.BLL.cabin.GetList().Select("c_shipid=" & m.id & " and c_category='" & cabinArray(i) & "'","")
行 678: V_21 += 1
行 679:
行 680: TourExStr.AppendLine(" <div class=""channel_cat_detail_box"" >")
行 681: TourExStr.AppendLine(" <div class=""channel_img""><img src=""" & formatpic(R_21("c_previewpic"),3) & """ alt=""" & R_21("c_name") & """ /></div>")
行 682: TourExStr.AppendLine(" <div class=""channel_info_detail_in"">")
行 683: TourExStr.AppendLine(" <ul class=""channel_info_detail clearfix"">")
行 684: TourExStr.AppendLine(" <li>入住:" & iif(R_21("C_MinBookingCount")= R_21("C_MaxBookingCount") ,R_21("C_MaxBookingCount"),R_21("C_MinBookingCount") & "-" & R_21("C_MaxBookingCount")) & "人</li>")
行 685: TourExStr.AppendLine(" <li title=""" & R_21("C_Area") & """>面积:" & R_21("C_Area") & "㎡</li>")
行 686: TourExStr.AppendLine(" <li>楼层:" & R_21("C_Floor") & "</li>")
行 687: TourExStr.AppendLine(" </ul>")
行 688: TourExStr.AppendLine(" <p class=""only_detail"" title=""" & R_21("c_brief") & """>")
行 689: TourExStr.AppendLine(" " & R_21("c_brief") & "")
行 690: TourExStr.AppendLine(" </p>")
行 691: TourExStr.AppendLine(" <a class=""channel_info_more"" href=""" & cruiseurl & "cruise/CabinShow.aspx?id=" & R_21("c_id") & """ target=""_blank"">了解更多<i></i></a>")
行 692: TourExStr.AppendLine(" </div>")
行 693: TourExStr.AppendLine(" </div>")
行 694: If V_21 >= 5 Then
行 695: Exit For
行 696: End If
行 697: Next
行 698:
行 699: TourExStr.AppendLine(" </div>")
行 700: TourExStr.AppendLine(" </div>")
行 701: Next
行 702: TourExStr.AppendLine(" </div>")
行 703: TourExStr.AppendLine(" </div>")
行 704: TourExStr.AppendLine(" </div>")
行 705: TourExStr.AppendLine(" <div class=""channel food_box"">")
行 706: TourExStr.AppendLine(" <div class=""wrapper food_cont category_slide"">")
行 707: TourExStr.AppendLine(" <div class=""channel_tit"">海上美食</div>")
行 708: TourExStr.AppendLine(" <div class=""category_nav"">")
行 709: dim foodArray() as string = Config.Cruise.FoodType.Split(",")
行 710: for i as integer=0 to foodArray.length -1
行 711:
行 712: TourExStr.AppendLine(" <a href=""javascript:;"" class='category_li " & iif(i=0,"on","") & "'><p>" & foodArray(i) & "</p>" & Cruise.BLL.ShipOther.GetCount(m.id,foodArray(i),0) & "间</a>")
行 713: Next
行 714:
行 715: TourExStr.AppendLine(" <a class=""more_line"" target=""_blank"" href=""" & cruiseurl & "cruise/food.aspx?sid=" & m.id & """>更多<i class=""poi_tit_arr""></i>")
行 716: TourExStr.AppendLine(" </a>")
行 717: TourExStr.AppendLine(" </div>")
行 718: TourExStr.AppendLine(" <div class=""food_detail_in category_box"">")
行 719:
行 720: for i as integer=0 to foodArray.length -1
行 721:
行 722: TourExStr.AppendLine(" <div class=""item"">")
行 723: TourExStr.AppendLine(" <div class=""to_front prevStop""><i></i></div>")
行 724: TourExStr.AppendLine(" <div class=""to_next""><i></i></div>")
行 725: TourExStr.AppendLine(" <div class=""img_detail_box"">")
行 726: Dim V_22 As Integer = 0
行 727: For Each R_22 As DataRow In TourEx.B2C.cruise.BLL.food.GetList().Select("o_shipId=" & m.id & " and o_category='" & foodArray(i) & "'","")
行 728: V_22 += 1
行 729:
行 730: TourExStr.AppendLine(" <a href=""" & cruiseurl & "cruise/foodshow.aspx?id=" & R_22("o_id") & """ target=""_blank"" title=""" & R_22("o_name") & """>")
行 731: TourExStr.AppendLine(" <div class=""food_detail_img"">")
行 732: TourExStr.AppendLine(" <img src=""" & formatpic(R_22("o_previewpic"),4) & """ />")
行 733: TourExStr.AppendLine(" </div>")
行 734: TourExStr.AppendLine(" <h2>" & R_22("o_name") & "</h2>")
行 735: TourExStr.AppendLine(" <div class=""food_detail_info"">")
行 736: TourExStr.AppendLine(" <span><i class=""food_line""></i>容纳:" & R_22("o_contain") & "</span><span title=""" & R_22("o_consume") & """><i class=""food_line""></i>消费:" & R_22("o_consume") & "</span>")
行 737: TourExStr.AppendLine(" </div>")
行 738: TourExStr.AppendLine(" <p class=""poi_line2"" title=""" & R_22("o_brief") & """>")
行 739: TourExStr.AppendLine(" " & R_22("o_brief") & "")
行 740: TourExStr.AppendLine(" </p>")
行 741: TourExStr.AppendLine(" </a>")
行 742: If V_22 >= 5 Then
行 743: Exit For
行 744: End If
行 745: Next
行 746:
行 747: TourExStr.AppendLine(" </div>")
行 748: TourExStr.AppendLine(" </div>")
行 749: Next
行 750: TourExStr.AppendLine(" </div>")
行 751: TourExStr.AppendLine(" </div>")
行 752: TourExStr.AppendLine(" </div>")
行 753: TourExStr.AppendLine(" <div class=""channel play_box"">")
行 754: TourExStr.AppendLine(" <div class=""wrapper category_slide"">")
行 755: TourExStr.AppendLine(" <div class=""channel_tit"">邮轮玩乐</div>")
行 756: TourExStr.AppendLine(" <div class=""category_nav"">")
行 757: dim facilityArray() as string = Config.Cruise.FacilityType.Split(",")
行 758: for i as integer=0 to facilityArray.length -1
行 759:
行 760: TourExStr.AppendLine(" <a href=""javascript:;"" class='category_li " & iif(i=0,"on","") & "'><p>" & facilityArray(i) & "</p>" & Cruise.BLL.ShipOther.GetCount(m.id,facilityArray(i),1) & "个</a>")
行 761: Next
行 762: TourExStr.AppendLine(" <a class=""more_line"" target=""_blank"" href=""" & cruiseurl & "cruise/facility.aspx?sid=" & m.id & """>更多<i class=""poi_tit_arr""></i></a>")
行 763: TourExStr.AppendLine(" </div>")
行 764: TourExStr.AppendLine(" <div class=""food_detail_in category_box"">")
行 765: for i as integer=0 to facilityArray.length -1
行 766: TourExStr.AppendLine(" <div class=""item"">")
行 767: TourExStr.AppendLine(" <div class=""to_front disab_front""><i></i></div>")
行 768: TourExStr.AppendLine(" <div class=""to_next""><i></i></div>")
行 769: TourExStr.AppendLine(" <div class=""img_detail_box"">")
行 770: Dim V_23 As Integer = 0
行 771: For Each R_23 As DataRow In TourEx.B2C.cruise.BLL.facility.GetList().Select("o_shipId=" & m.id & " and o_category='" & facilityArray(i) & "'","")
行 772: V_23 += 1
行 773:
行 774: TourExStr.AppendLine(" <a href=""" & cruiseurl & "cruise/facilityshow.aspx?id=" & R_23("o_id") & """ target=""_blank"" title=""" & R_23("o_name") & """>")
行 775: TourExStr.AppendLine(" <div class=""food_detail_img"">")
行 776: TourExStr.AppendLine(" <img src=""" & formatpic(R_23("o_previewpic"),4) & """ alt=""" & R_23("o_name") & """ />")
行 777: TourExStr.AppendLine(" </div>")
行 778: TourExStr.AppendLine(" <h2>" & R_23("o_name") & "</h2>")
行 779: TourExStr.AppendLine(" <div class=""food_detail_info"">")
行 780: TourExStr.AppendLine(" <span><i class=""food_line""></i>容纳:" & R_23("o_contain") & "</span><span title=""免费""><i class=""food_line""></i>消费:" & R_23("o_consume") & "</span>")
行 781: TourExStr.AppendLine(" </div>")
行 782: TourExStr.AppendLine(" <p class=""poi_line2"" title=""" & R_23("o_brief") & """>")
行 783: TourExStr.AppendLine(" " & R_23("o_brief") & "")
行 784: TourExStr.AppendLine(" </p>")
行 785: TourExStr.AppendLine(" </a>")
行 786: If V_23 >= 5 Then
行 787: Exit For
行 788: End If
行 789: Next
行 790:
行 791: TourExStr.AppendLine(" </div>")
行 792: TourExStr.AppendLine(" </div>")
行 793: Next
行 794: TourExStr.AppendLine(" </div>")
行 795: TourExStr.AppendLine(" </div>")
行 796: TourExStr.AppendLine(" </div>")
行 797: TourExStr.AppendLine(" <div class=""channel service_box"">")
行 798: TourExStr.AppendLine(" <div class=""wrapper category_slide"">")
行 799: TourExStr.AppendLine(" <div class=""channel_tit"">邮轮服务</div>")
行 800: TourExStr.AppendLine(" <div class=""sevr_detail_box"">")
行 801: TourExStr.AppendLine(" <div class=""sevr_detail_in clearfix"">")
行 802: Dim V_24 As Integer = 0
行 803: For Each R_24 As DataRow In TourEx.B2C.cruise.BLL.service.GetList().Select("o_shipid=" & m.id,"")
行 804: V_24 += 1
行 805:
行 806: TourExStr.AppendLine(" <a title=""" & R_24("o_name") & """ href=""" & cruiseurl & "cruise/serviceshow.aspx?id=" & R_24("o_id") & """ target=""_blank"">")
行 807: TourExStr.AppendLine(" <div class=""sevr_detail_img"">")
行 808: TourExStr.AppendLine(" <img src=""" & formatpic(R_24("o_previewpic"),4) & """ alt=""" & R_24("o_name") & """>")
行 809: TourExStr.AppendLine(" </div>")
行 810: TourExStr.AppendLine(" <h2>" & R_24("o_name") & "</h2>")
行 811: TourExStr.AppendLine(" <p class=""sevr_detl"" title=""" & R_24("o_consume") & """>消费:" & R_24("o_consume") & "</p>")
行 812: TourExStr.AppendLine(" </a>")
行 813: If V_24 >= 4 Then
行 814: Exit For
行 815: End If
行 816: Next
行 817:
行 818: TourExStr.AppendLine(" </div>")
行 819: TourExStr.AppendLine(" </div>")
行 820: TourExStr.AppendLine(" <p class=""serv_more""><a target=""_blank"" href=""" & cruiseurl & "cruise/service.aspx?sid=" & m.id & """>查看更多<i class=""poi_tit_arr""></i></a></p>")
行 821: TourExStr.AppendLine(" </div>")
行 822: TourExStr.AppendLine(" </div>")
行 823: TourExStr.AppendLine(" <div class=""channel comment_box"">")
行 824: TourExStr.AppendLine(" <div class=""wrapper"">")
行 825: TourExStr.AppendLine(" <div class=""channel_tit"">邮轮点评</div>")
行 826: TourExStr.AppendLine(" <div class=""reviewContent"">")
行 827: TourExStr.AppendLine(" <div class=""review"" style=""width:1200px;"">")
行 828: TourExStr.AppendLine(" <div class=""markInfo clearfix"">")
行 829: dim dt = Cruise.BLL.Ship.GetStatistics(m.id)
行 830: TourExStr.AppendLine(" <div class=""mark1"">")
行 831: TourExStr.AppendLine(" <p>综合满意度</p>")
行 832: TourExStr.AppendLine(" <h3><em>" & Utils.CalReviewScore(dt.rows(0)("rating0")+dt.rows(0)("rating1")+dt.rows(0)("rating2")+dt.rows(0)("rating3"),20) & "分</em></h3>")
行 833: TourExStr.AppendLine(" <p>基于<font color=""red"">" & dt.rows(0)("count") & "</font>人评价</p>")
行 834: TourExStr.AppendLine(" </div>")
行 835: TourExStr.AppendLine(" <div class=""mark2"">")
行 836: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 837: TourExStr.AppendLine(" <dt>邮轮服务:</dt>")
行 838: TourExStr.AppendLine(" <dd class=""d3""><div style=""width: " & val(Utils.GetReviewPercent(dt.rows(0)("rating0"),dt.rows(0)("count") * 5)) & "%;""></div></dd>")
行 839: TourExStr.AppendLine(" <dd class=""d4"">" & val(Utils.GetReviewPercent(dt.rows(0)("rating0"),dt.rows(0)("count") * 5)) & "%</dd>")
行 840: TourExStr.AppendLine(" </dl>")
行 841: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 842: TourExStr.AppendLine(" <dt>邮轮餐饮:</dt>")
行 843: TourExStr.AppendLine(" <dd class=""d3""><div style=""width: " & val(Utils.GetReviewPercent(dt.rows(0)("rating1"),dt.rows(0)("count") * 5)) & "%;""></div></dd>")
行 844: TourExStr.AppendLine(" <dd class=""d4"">" & val(Utils.GetReviewPercent(dt.rows(0)("rating1"),dt.rows(0)("count") * 5)) & "%</dd>")
行 845: TourExStr.AppendLine(" </dl>")
行 846: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 847: TourExStr.AppendLine(" <dt>邮轮住宿:</dt>")
行 848: TourExStr.AppendLine(" <dd class=""d3""><div style=""width: " & val(Utils.GetReviewPercent(dt.rows(0)("rating2"),dt.rows(0)("count") * 5)) & "%;""></div></dd>")
行 849: TourExStr.AppendLine(" <dd class=""d4"">" & val(Utils.GetReviewPercent(dt.rows(0)("rating2"),dt.rows(0)("count") * 5)) & "%</dd>")
行 850: TourExStr.AppendLine(" </dl>")
行 851: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 852: TourExStr.AppendLine(" <dt>邮轮玩乐:</dt>")
行 853: TourExStr.AppendLine(" <dd class=""d3""><div style=""width: " & val(Utils.GetReviewPercent(dt.rows(0)("rating3"),dt.rows(0)("count") * 5)) & "%;""></div></dd>")
行 854: TourExStr.AppendLine(" <dd class=""d4"">" & val(Utils.GetReviewPercent(dt.rows(0)("rating3"),dt.rows(0)("count") * 5)) & "%</dd>")
行 855: TourExStr.AppendLine(" </dl>")
行 856: TourExStr.AppendLine(" </div>")
行 857: TourExStr.AppendLine(" <div class=""mark3"">")
行 858: TourExStr.AppendLine(" <a class=""btn"" title=""发表评论"" href=""" & weburl & "usercenter/cruise/orderList.aspx?Status=3"">发表评论</a>")
行 859: TourExStr.AppendLine(" <h3>只有预订过此产品的用户才能参加点评</h3>")
行 860: TourExStr.AppendLine(" </div>")
行 861: TourExStr.AppendLine(" </div>")
行 862: TourExStr.AppendLine(" <div class=""listBox"" pagecount=""1"">")
行 863: Dim V_25 As Integer = 0
行 864: Dim SqlStr_25 As String = "select top 2 CR_Rating_0,CR_Rating_1,CR_Rating_2,CR_Rating_3,CR_BonusCount,CR_UserName,cr_text,CR_Date,U_Face from " & tableprefix & "CruiseReviews inner join " & tableprefix & "User on CR_UserID= U_ID where CR_Mark = 5 and U_ID > 1 "
行 865: Dim Dr_25 As SqlDataReader = TourEx.B2C.Base.BLL.General.DataList(SqlStr_25,0)
行 866: If Dr_25.Read Then
行 867: Do
行 868: V_25+=1
行 869: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 870: TourExStr.AppendLine(" <dt>")
行 871: TourExStr.AppendLine(" <div><img width=""75"" height=""75"" src=""/files/" & Dr_25("u_face").ToString() & """ alt=""" & Dr_25("CR_UserName").ToString() & """></div>")
行 872: TourExStr.AppendLine(" <p class=""user"">" & Dr_25("CR_UserName").ToString() & "</p>")
行 873: TourExStr.AppendLine(" <p class=""date""><em>" & Dr_25("CR_Date").ToString() & "</em></p>")
行 874: TourExStr.AppendLine(" </dt>")
行 875: TourExStr.AppendLine(" <dd>")
行 876: TourExStr.AppendLine(" <div class=""box clearfix"" style=""width:1097px;"">")
行 877: TourExStr.AppendLine(" <b class=""arrow""></b>")
行 878: TourExStr.AppendLine(" <div class=""hd clearfix"">")
行 879: TourExStr.AppendLine(" <ul class=""clearfix"">")
行 880: TourExStr.AppendLine(" <li><b>邮轮服务:</b><font rating=""" & Dr_25("CR_Rating_0").ToString() & """>很好</font></li>")
行 881: TourExStr.AppendLine(" <li><b>邮轮餐饮:</b><font rating=""" & Dr_25("CR_Rating_1").ToString() & """>很好</font></li>")
行 882: TourExStr.AppendLine(" <li><b>邮轮住宿:</b><font rating=""" & Dr_25("CR_Rating_2").ToString() & """>很好</font></li>")
行 883: TourExStr.AppendLine(" <li><b>邮轮游玩:</b><font rating=""" & Dr_25("CR_Rating_3").ToString() & """>非常好</font></li>")
行 884: TourExStr.AppendLine(" <li class=""bonus"">点评积分:<em>" & Dr_25("CR_BonusCount").ToString() & "" & bonusname & "</em></li>")
行 885: TourExStr.AppendLine(" </ul>")
行 886: TourExStr.AppendLine(" </div>")
行 887: TourExStr.AppendLine(" <div class=""desc"">" & getstring(Dr_25("cr_text").ToString(),100) & "</div>")
行 888: TourExStr.AppendLine(" </div>")
行 889: TourExStr.AppendLine(" </dd>")
行 890: TourExStr.AppendLine(" </dl>")
行 891: If Dr_25.Read = false Then
行 892: Exit Do
行 893: End If
行 894: Loop
行 895: End If
行 896: Dr_25.Close()
行 897:
行 898: TourExStr.AppendLine(" </div>")
行 899: TourExStr.AppendLine(" </div>")
行 900: TourExStr.AppendLine(" </div>")
行 901: TourExStr.AppendLine(" </div>")
行 902: TourExStr.AppendLine(" </div>")
行 903: TourExStr.AppendLine(" <div class=""channel choo_box"">")
行 904: TourExStr.AppendLine(" <div class=""wrapper choo_cont category_slide"">")
行 905: TourExStr.AppendLine(" <div class=""channel_tit"">精选航线</div>")
行 906: TourExStr.AppendLine(" <div class=""category_nav"">")
行 907: Dim V_26 As Integer = 0
行 908: For Each R_26 As DataRow In TourEx.B2C.cruise.BLL.route.GetList().Rows
行 909: V_26 += 1
行 910:
行 911: TourExStr.AppendLine(" <a href=""javascript:;"" class='category_li " & iif(V_26=1,"on","") & "'><p>" & R_26("r_name") & "</p></a>")
行 912: If V_26 >= 2 Then
行 913: Exit For
行 914: End If
行 915: Next
行 916:
行 917: TourExStr.AppendLine(" <a class=""more_line"" target=""_blank"" href=""" & cruiseurl & "cruise/list.aspx?sid=" & m.id & """>更多<i class=""poi_tit_arr""></i>")
行 918: TourExStr.AppendLine(" </a>")
行 919: TourExStr.AppendLine(" </div>")
行 920: TourExStr.AppendLine(" <div class=""choo_detail_wrap"">")
行 921: TourExStr.AppendLine(" <div class=""choo_detail_boxs category_box"">")
行 922: Dim V_27 As Integer = 0
行 923: For Each R_27 As DataRow In TourEx.B2C.cruise.BLL.route.GetList().Rows
行 924: V_27 += 1
行 925:
行 926: TourExStr.AppendLine(" <div class=""choo_detail_in"">")
行 927: TourExStr.AppendLine(" <div class=""choo_more_route"">")
行 928: TourExStr.AppendLine(" <div class=""more_route_det"">")
行 929: TourExStr.AppendLine(" <i class=""top_icon""></i>")
行 930: TourExStr.AppendLine(" " & R_27("r_brief") & "")
行 931: TourExStr.AppendLine(" <i class=""bottom_icon""></i>")
行 932: TourExStr.AppendLine(" </div>")
行 933: TourExStr.AppendLine(" <a title=""" & R_27("r_name") & """ target=""_blank"" class=""choice_routes_col01_btn"" href=""" & cruiseurl & "cruise/list.aspx?rid=" & R_27("r_id") & """>更多" & R_27("r_name") & "航线</a>")
行 934: TourExStr.AppendLine(" </div>")
行 935: TourExStr.AppendLine(" <div class=""choo_detail_right"">")
行 936: Dim V_28 As Integer = 0
行 937: For Each M_28 As TourEx.B2C.cruise.Model.line In TourEx.B2C.cruise.BLL.line.GetList(3,"l_id,l_name,l_previewpic,l_price","l_hide=0 and l_shipid=" & m.id & " and l_routeid=" & R_27("r_id"),"l_id desc")
行 938: V_28 += 1
行 939:
行 940: TourExStr.AppendLine(" <a target=""_blank"" class=""border1"" href=""" & cruiseurl & "cruise/show.aspx?id=" & M_28.id & """>")
行 941: TourExStr.AppendLine(" <div class=""choo_detail_img"">")
行 942: TourExStr.AppendLine(" <img alt=""" & M_28.name & """ src=""/images/loading.gif"" data-original=""" & formatpic(M_28.previewpic,3) & """>")
行 943: TourExStr.AppendLine(" </div>")
行 944: TourExStr.AppendLine(" <div class=""choo_logo"">")
行 945: TourExStr.AppendLine(" <img style=""width: 40px;"" alt=""" & M_28.name & """ data-original=""" & formatpic(M_28.previewpic,3) & """>")
行 946: TourExStr.AppendLine(" </div>")
行 947: TourExStr.AppendLine(" <div class=""choo_pro_name"">")
行 948: TourExStr.AppendLine(" <h2>" & M_28.name & "</h2>")
行 949: TourExStr.AppendLine(" </div>")
行 950: TourExStr.AppendLine(" <p class=""choo_pro_price""><span class=""choo_yuan""><dfn>¥</dfn></span>" & M_28.price & "<span class=""choo_per"">/人起</span></p>")
行 951: TourExStr.AppendLine(" </a>")
行 952: Next
行 953:
行 954: TourExStr.AppendLine(" </div> ")
行 955: TourExStr.AppendLine(" </div>")
行 956: If V_27 >= 2 Then
行 957: Exit For
行 958: End If
行 959: Next
行 960:
行 961: TourExStr.AppendLine(" </div>")
行 962: TourExStr.AppendLine(" </div>")
行 963: TourExStr.AppendLine(" </div>")
行 964: TourExStr.AppendLine(" </div>")
行 965: TourExStr.AppendLine(" </div>")
行 966: TourExStr.AppendLine("<div id=""footer"" class=""footer"">")
行 967: TourExStr.AppendLine(" <div class=""siteFeature"">")
行 968: TourExStr.AppendLine(" <div class=""wrapper"">")
行 969: TourExStr.AppendLine(" <div class=""clearfix"">")
行 970: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 971: TourExStr.AppendLine(" <dt class=""trust""> </dt>")
行 972: TourExStr.AppendLine(" <dd class=""title""><p>值得信赖</p></dd>")
行 973: TourExStr.AppendLine(" <dd><p>旅游战略合作伙伴,出境游首选品牌</p></dd>")
行 974: TourExStr.AppendLine(" </dl>")
行 975: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 976: TourExStr.AppendLine(" <dt class=""local""> </dt>")
行 977: TourExStr.AppendLine(" <dd class=""title""><p>地道个性</p></dd>")
行 978: TourExStr.AppendLine(" <dd><p>当地人的玩法,不一样的假期</p></dd>")
行 979: TourExStr.AppendLine(" </dl>")
行 980: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 981: TourExStr.AppendLine(" <dt class=""rich""> </dt>")
行 982: TourExStr.AppendLine(" <dd class=""title""><p>品类齐全</p></dd>")
行 983: TourExStr.AppendLine(" <dd><p>吃住行、游购娱一站搞定</p></dd>")
行 984: TourExStr.AppendLine(" </dl>")
行 985: TourExStr.AppendLine(" <dl class=""clearfix"">")
行 986: TourExStr.AppendLine(" <dt class=""price""> </dt>")
行 987: TourExStr.AppendLine(" <dd class=""title""><p>低价保障</p></dd>")
行 988: TourExStr.AppendLine(" <dd><p>当地直采,高性价比</p></dd>")
行 989: TourExStr.AppendLine(" </dl>")
行 990: TourExStr.AppendLine(" </div>")
行 991: TourExStr.AppendLine(" </div>")
行 992: TourExStr.AppendLine(" </div>")
行 993: TourExStr.AppendLine(" <div class=""wrapper"">")
行 994: TourExStr.AppendLine(" <div class=""container"">")
行 995: TourExStr.AppendLine(" <div class=""faqBox clearfix"">")
行 996: TourExStr.AppendLine(" <div class=""faq"">")
行 997: TourExStr.AppendLine(" <div class=""wrapBox"">")
行 998: TourExStr.AppendLine(" <div class=""content clearfix"">")
行 999: dim idxn as integer = 0
行 1000: Dim V_29 As Integer = 0
行 1001: For Each R_29 As DataRow In TourEx.B2C.Base.BLL.helpcategory.GetList().Rows
行 1002: V_29 += 1
行 1003:
行 1004: idxn = idxn + 1
行 1005: TourExStr.AppendLine(" <dl class=""d" & idxn & """>")
行 1006: TourExStr.AppendLine(" <dt>" & R_29("t_name") & "</dt>")
行 1007: Dim V_30 As Integer = 0
行 1008: For Each R_30 As DataRow In TourEx.B2C.Base.BLL.help.GetList().Select("h_categoryid=" & R_29("t_id"),"")
行 1009: V_30 += 1
行 1010:
行 1011: TourExStr.AppendLine(" <dd><a href=""" & IIF(R_30("h_url").length=0,weburl & "help.aspx?id=" & R_30("h_id"),R_30("h_url")) & """ target=""_blank"">" & R_30("h_title") & "</a></dd>")
行 1012: If V_30 >= 4 Then
行 1013: Exit For
行 1014: End If
行 1015: Next
行 1016:
行 1017: TourExStr.AppendLine(" </dl>")
行 1018: If V_29 >= 5 Then
行 1019: Exit For
行 1020: End If
行 1021: Next
行 1022:
行 1023: TourExStr.AppendLine(" </div>")
行 1024: TourExStr.AppendLine(" </div>")
行 1025: TourExStr.AppendLine(" </div>")
行 1026: TourExStr.AppendLine(" <div class=""contact"">")
行 1027: TourExStr.AppendLine(" <dl>")
行 1028: TourExStr.AppendLine(" <dt>24小时客服热线</dt>")
行 1029: TourExStr.AppendLine(" <dd class=""phone"">" & sitetel & "</dd>")
行 1030: TourExStr.AppendLine(" <dd>在线 QQ :" & siteqq & "</dd>")
行 1031: TourExStr.AppendLine(" <dd>电子邮箱:" & siteemail & "</dd>")
行 1032: TourExStr.AppendLine(" </dl>")
行 1033: TourExStr.AppendLine(" </div>")
行 1034: TourExStr.AppendLine(" </div>")
行 1035: TourExStr.AppendLine(" <div class=""box partner clearfix"">")
行 1036: TourExStr.AppendLine(" <dl>")
行 1037: TourExStr.AppendLine(" <dt><b>合作伙伴<i> </i></b></dt>")
行 1038: TourExStr.AppendLine(" <dd>")
行 1039: TourExStr.AppendLine(" <ul class=""clearfix"">")
行 1040: Dim V_31 As Integer = 0
行 1041: Dim SqlStr_31 As String = "select L_Name,L_Url,L_Logo From [" & TablePrefix & "Link] Where L_Type=1 Order By L_OrderId,L_ID Desc"
行 1042: Dim Dr_31 As SqlDataReader = TourEx.B2C.Base.BLL.General.DataList(SqlStr_31,0)
行 1043: If Dr_31.Read Then
行 1044: Do
行 1045: V_31+=1
行 1046: TourExStr.AppendLine(" <li><a href=""" & Dr_31("L_Url").ToString() & """ title=""" & Dr_31("L_Name").ToString() & """ target=""_blank""><img src=""" & UpFolder & Dr_31("L_Logo").ToString() & """ width=""136"" height=""40"" alt=""" & Dr_31("L_Name").ToString() & """ /></a></li>")
行 1047: If Dr_31.Read = false Then
行 1048: Exit Do
行 1049: End If
行 1050: Loop
行 1051: End If
行 1052: Dr_31.Close()
行 1053:
行 1054: TourExStr.AppendLine(" </ul>")
行 1055: TourExStr.AppendLine(" </dd>")
行 1056: TourExStr.AppendLine(" </dl>")
行 1057: TourExStr.AppendLine(" </div>")
行 1058: TourExStr.AppendLine(" <div class=""box certify clearfix"">")
行 1059: TourExStr.AppendLine(" <dl>")
行 1060: TourExStr.AppendLine(" <dt><b>荣誉资质<i> </i></b></dt>")
行 1061: TourExStr.AppendLine(" <dd>")
行 1062: TourExStr.AppendLine(" <ul class=""clearfix"">")
行 1063: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark1.png"" alt=""""/></a></li>")
行 1064: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark2.png"" alt=""""/></a></li>")
行 1065: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark3.png"" alt=""""/></a></li>")
行 1066: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark4.png"" alt=""""/></a></li>")
行 1067: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark5.png"" alt=""""/></a></li>")
行 1068: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark6.png"" alt=""""/></a></li>")
行 1069: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark7.png"" alt=""""/></a></li>")
行 1070: TourExStr.AppendLine(" <li><a href=""http://www.tourex.cn/""><img src=""/images/temp/mark8.png"" alt=""""/></a></li>")
行 1071: TourExStr.AppendLine(" </ul>")
行 1072: TourExStr.AppendLine(" </dd>")
行 1073: TourExStr.AppendLine(" </dl>")
行 1074: TourExStr.AppendLine(" </div>")
行 1075: TourExStr.AppendLine(" <div class=""box friend clearfix"">")
行 1076: TourExStr.AppendLine(" <ul class=""clearfix"">")
行 1077: Dim V_32 As Integer = 0
行 1078: For Each R_32 As DataRow In TourEx.B2C.Base.BLL.textlink.GetList().Rows
行 1079: V_32 += 1
行 1080:
行 1081: TourExStr.AppendLine(" <li><a href=""" & R_32("l_url") & """ title=""" & R_32("l_name") & """ target=""_blank"">" & R_32("l_name") & "</a></li>")
行 1082: Next
行 1083:
行 1084: TourExStr.AppendLine(" </ul>")
行 1085: TourExStr.AppendLine(" </div>")
行 1086: TourExStr.AppendLine(" <div class=""box copyright clearfix"">")
行 1087: TourExStr.AppendLine(" <div class=""links"">")
行 1088: Dim V_33 As Integer = 0
行 1089: For Each R_33 As DataRow In TourEx.B2C.Base.BLL.about.GetList().Select("A_PID=" & 0,"")
行 1090: V_33 += 1
行 1091: If V_33 > 1 Then
行 1092:
行 1093: TourExStr.Append("<em> | </em>")
行 1094: End If
行 1095:
行 1096: TourExStr.Append("<a href=""" & IIF(R_33("a_url")="",weburl & "About.aspx?id=" & R_33("a_id"),R_33("a_url")) & """ target=""_blank"">" & R_33("a_title") & "</a>")
行 1097: Next
行 1098:
行 1099: TourExStr.AppendLine(" <em> | </em><a href=""" & weburl & "sitemap.aspx"" target=""_blank"">网站地图</a>")
行 1100: TourExStr.AppendLine(" </div>")
行 1101: TourExStr.AppendLine(" <p>" & Config.Sys.copyrightInfo & " <a target=""_blank"" href=""https://beian.miit.gov.cn"">" & SiteICP & "</a></p>")
行 1102: TourExStr.AppendLine(" </div>")
行 1103: TourExStr.AppendLine(" </div>")
行 1104: TourExStr.AppendLine(" </div>")
行 1105: TourExStr.AppendLine("</div>")
行 1106: TourExStr.AppendLine(Config.Sys.ExternalCodeDefault)
行 1107: TourExStr.AppendLine(" <div id=""footerJs"">")
行 1108: TourExStr.AppendLine(" <script type=""text/javascript"" src=""/sys/js/jquery.js""> </" & "script>")
行 1109: TourExStr.AppendLine(" <script type=""text/javascript"" src=""/sys/js/jquery.SuperSlide.js""></" & "script>")
行 1110: TourExStr.AppendLine(" <script type=""text/javascript"" src=""/sys/js/layer/layer.js""></" & "script>")
行 1111: TourExStr.AppendLine(" <script type=""text/javascript"" src=""/cruise/js/common.js""></" & "script>")
行 1112: TourExStr.AppendLine(" <script type=""text/javascript"">")
行 1113: TourExStr.AppendLine(" $(function () {")
行 1114: TourExStr.AppendLine(" $('img[data-original]').lazyload({ threshold: 100 }); //图片延时加载")
行 1115: TourExStr.AppendLine(" $('.headNav').find('#youlun').addClass('cur');")
行 1116: TourExStr.AppendLine(" $("".brand_banner"").slide({ titCell: '.hd ul', mainCell: "".bd ul"", autoPlay: true, autoPage: true }); //焦点图切换")
行 1117: TourExStr.AppendLine(" $("".banner_more_detail"").click(function (event) {")
行 1118: TourExStr.AppendLine(" $('.brand_ship_detail').slideToggle();")
行 1119: TourExStr.AppendLine(" });")
行 1120: TourExStr.AppendLine(" $('.food_detail_in').slide({ mainCell: "".img_detail_box"", effect: ""left"", vis: 3, scroll: 3, delayTime: 800, trigger: ""click"", easing: ""easeOutCirc"", prevCell: "".to_front"", nextCell: "".to_next"", pnLoop: false, autoPage: true }); //海上美食")
行 1121: TourExStr.AppendLine(" $('.channel_detail_boxs').slide({ mainCell: '.channel_cat_boxs', titCell: '.channel_cat_detail li', trigger: ""click"", interTime: 3000 }); //舱房介绍")
行 1122: TourExStr.AppendLine(" $('.category_slide').slide({ mainCell: '.category_box', titCell: '.category_nav .category_li', effect: ""top"", trigger: ""click"", interTime: 1000 }); //类型通用切换(延迟加载使用 switchLoad:"""")")
行 1123: TourExStr.AppendLine(" $('.travel_wrap').slide({ mainCell: '.bd ul', titCell: '.hd li', effect: ""left"", trigger: ""click"", vis: 3, scroll: 3, interTime: 0, delayTime: 0 }); //舱房介绍")
行 1124: TourExStr.AppendLine(" $('#showFAQ').click(function (event) {")
行 1125: TourExStr.AppendLine(" layer.open({")
行 1126: TourExStr.AppendLine(" type: 1,")
行 1127: TourExStr.AppendLine(" shade: false,")
行 1128: TourExStr.AppendLine(" title: false, //不显示标题")
行 1129: TourExStr.AppendLine(" area: ['960px', '400px'],")
行 1130: TourExStr.AppendLine(" shade: [0.3, '#000'],")
行 1131: TourExStr.AppendLine(" content: $('#layer_faq_box'), //捕获的元素")
行 1132: TourExStr.AppendLine(" cancel: function (index) { layer.close(index); }")
行 1133: TourExStr.AppendLine(" });")
行 1134: TourExStr.AppendLine(" });")
行 1135: TourExStr.AppendLine(" //当滚动定位")
行 1136: TourExStr.AppendLine(" $(window).scroll(function () {")
行 1137: TourExStr.AppendLine(" var navTop = $('.brand_nav_box').offset().top;")
行 1138: TourExStr.AppendLine(" var scrollTop = $(window).scrollTop();")
行 1139: TourExStr.AppendLine(" if (scrollTop >= navTop) {")
行 1140: TourExStr.AppendLine(" $('.brand_nav').addClass('brand_nav_fixed');")
行 1141: TourExStr.AppendLine(" } else {")
行 1142: TourExStr.AppendLine(" $('.brand_nav').removeClass('brand_nav_fixed');")
行 1143: TourExStr.AppendLine(" }")
行 1144: TourExStr.AppendLine(" if (scrollTop) {")
行 1145: TourExStr.AppendLine(" $('.channel').each(function (i) {")
行 1146: TourExStr.AppendLine(" $(this).attr('t', i);")
行 1147: TourExStr.AppendLine(" if (scrollTop >= $(this).offset().top - 81) {")
行 1148: TourExStr.AppendLine(" var myT = $(this).attr('t');")
行 1149: TourExStr.AppendLine(" $('.brand_nav li').removeClass('on');")
行 1150: TourExStr.AppendLine(" $('.brand_nav li[v=""' + myT + '""]').addClass('on');")
行 1151: TourExStr.AppendLine(" }")
行 1152: TourExStr.AppendLine(" });")
行 1153: TourExStr.AppendLine(" }")
行 1154: TourExStr.AppendLine(" });")
行 1155: TourExStr.AppendLine(" $("".brand_nav li"").each(function (i) {")
行 1156: TourExStr.AppendLine(" $(this).attr('v', i);")
行 1157: TourExStr.AppendLine(" }).click(function () {")
行 1158: TourExStr.AppendLine(" var i = $(this).attr('v'); //取得按钮值")
行 1159: TourExStr.AppendLine(" var t = $('.channel[t=""' + i + '""]'); //对应的id层")
行 1160: TourExStr.AppendLine(" $("".brand_nav li"").removeClass('on');")
行 1161: TourExStr.AppendLine(" $(this).addClass('on');")
行 1162: TourExStr.AppendLine(" $(""html,body"").animate({ scrollTop: t.offset().top - 80 }, 250); //250毫秒跳转到该ID的位置")
行 1163: TourExStr.AppendLine(" });")
行 1164: TourExStr.AppendLine(" //当滚动定位结束")
行 1165: TourExStr.AppendLine(" $('font[rating]').each(function () {")
行 1166: TourExStr.AppendLine(" var val = parseInt($(this).attr('rating'));")
行 1167: TourExStr.AppendLine(" $(this).html(GetScore(val));")
行 1168: TourExStr.AppendLine(" });")
行 1169: TourExStr.AppendLine(" });")
行 1170: TourExStr.AppendLine(" function GetScore(val) {")
行 1171: TourExStr.AppendLine(" switch (val) {")
行 1172: TourExStr.AppendLine(" case 5: return ""非常好""; break;")
行 1173: TourExStr.AppendLine(" case 4: return ""很好""; break;")
行 1174: TourExStr.AppendLine(" case 3: return ""一般""; break;")
行 1175: TourExStr.AppendLine(" case 2: return ""很差""; break;")
行 1176: TourExStr.AppendLine(" case 1: return ""非常差""; break;")
行 1177: TourExStr.AppendLine(" default: return """"; break;")
行 1178: TourExStr.AppendLine(" }")
行 1179: TourExStr.AppendLine(" }")
行 1180: TourExStr.AppendLine(" </" & "script>")
行 1181: TourExStr.AppendLine(" </div>")
行 1182: TourExStr.AppendLine("</body>")
行 1183: TourExStr.Append("</html>")
行 1184: Response.Write(writecache(FormatUrl(TourExStr.ToString)))
行 1185: TourExStr = NoThing
行 1186: End Sub
行 1187:
行 1188: #End ExternalSource
行 1189:
行 1190:
行 1191: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 1192: Public Sub New()
行 1193: MyBase.New
行 1194: Dim dependencies() As String
行 1195: CType(Me,Global.TourEx.B2C.Cruise.Web.ship).AppRelativeVirtualPath = "~/cruise/ship.aspx"
行 1196: If (Global.ASP.cruise_ship_aspx.__initialized = false) Then
行 1197: dependencies = New String(0) {}
行 1198: dependencies(0) = "~/cruise/ship.aspx"
行 1199: Global.ASP.cruise_ship_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
行 1200: Global.ASP.cruise_ship_aspx.__initialized = true
行 1201: End If
行 1202: Me.Server.ScriptTimeout = 30000000
行 1203: End Sub
行 1204:
行 1205: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
行 1206: Get
行 1207: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
行 1208: End Get
行 1209: End Property
行 1210:
行 1211: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
行 1212: Get
行 1213: Return false
行 1214: End Get
行 1215: End Property
行 1216:
行 1217: Protected ReadOnly Property ApplicationInstance() As ASP._global_asax
行 1218: Get
行 1219: Return CType(Me.Context.ApplicationInstance,ASP._global_asax)
行 1220: End Get
行 1221: End Property
行 1222:
行 1223: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 1224: Private Sub __BuildControlTree(ByVal __ctrl As cruise_ship_aspx)
行 1225:
行 1226: #ExternalSource("f:\usr\LocalUser\hyw7409340001\cruise\ship.aspx",1)
行 1227: __ctrl.EnableViewState = false
行 1228:
行 1229: #End ExternalSource
行 1230:
行 1231: #ExternalSource("f:\usr\LocalUser\hyw7409340001\cruise\ship.aspx",1)
行 1232: Me.InitializeCulture
行 1233:
行 1234: #End ExternalSource
行 1235: End Sub
行 1236:
行 1237: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 1238: Protected Overrides Sub FrameworkInitialize()
行 1239: MyBase.FrameworkInitialize
行 1240: Me.__BuildControlTree(Me)
行 1241: Me.AddWrappedFileDependencies(Global.ASP.cruise_ship_aspx.__fileDependencies)
行 1242: End Sub
行 1243:
行 1244: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 1245: Public Overrides Function GetTypeHashCode() As Integer
行 1246: Return 5381
行 1247: End Function
行 1248:
行 1249: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 1250: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
行 1251: MyBase.ProcessRequest(context)
行 1252: End Sub
行 1253: End Class
行 1254: End Namespace
行 1255:
|