Line 1: #ExternalChecksum("D:\web\aoyou\usercenter\default.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","73B539B9C36BE02E5494BE569D57ED0EA6798D1C")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.18444
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel.DataAnnotations
Line 21: Imports System.Configuration
Line 22: Imports System.Data
Line 23: Imports System.Data.SqlClient
Line 24: Imports System.Linq
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.DynamicData
Line 30: Imports System.Web.Profile
Line 31: Imports System.Web.Security
Line 32: Imports System.Web.SessionState
Line 33: Imports System.Web.UI
Line 34: Imports System.Web.UI.HtmlControls
Line 35: Imports System.Web.UI.WebControls
Line 36: Imports System.Web.UI.WebControls.WebParts
Line 37: Imports System.Xml.Linq
Line 38: Imports TourEx.BLL
Line 39: Imports TourEx.Common
Line 40: Imports TourEx.Common.Utils
Line 41:
Line 42: Namespace ASP
Line 43:
Line 44: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 45: Public Class usercenter_default_aspx
Line 46: Inherits Global.TourEx.Pages.UserPage
Line 47: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 48:
Line 49: Private Shared __initialized As Boolean
Line 50:
Line 51: Private Shared __fileDependencies As Object
Line 52:
Line 53:
Line 54: #ExternalSource("D:\web\aoyou\usercenter\default.aspx",7)
Line 55:
Line 56: Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
Line 57: MyBase.OnInit(e)
Line 58: If iscache Then
Line 59: Exit Sub
Line 60: End If
Line 61: TourExStr.AppendLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">")
Line 62: TourExStr.AppendLine("<html xmlns=""http://www.w3.org/1999/xhtml"">")
Line 63: TourExStr.AppendLine("<head>")
Line 64: TourExStr.AppendLine("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />")
Line 65: TourExStr.AppendLine("<meta http-equiv=""X-UA-Compatible"" content=""IE=EmulateIE7"" />")
Line 66: TourExStr.AppendLine("<title>会员中心_" & sitename & "</title>")
Line 67: TourExStr.AppendLine("<link rel=""stylesheet"" type=""text/css"" href=""/style/" & webconfig.WebSiteStyle & "/css/common.css""/>")
Line 68: TourExStr.AppendLine(" <link type=""text/css"" rel=""stylesheet"" href=""/style/" & webconfig.WebSiteStyle & "/usercenter/css/style.css""/>")
Line 69: TourExStr.AppendLine("<!--[if lte IE 6]>")
Line 70: TourExStr.AppendLine("<script src=""/js/transparentbng.js"" type=""text/javascript""></" & "script>")
Line 71: TourExStr.AppendLine("<script type=""text/javascript"">")
Line 72: TourExStr.AppendLine("DD_belatedPNG.fix('ul,img,li,input,b,div,a,*');//IE6 png透明解决方案")
Line 73: TourExStr.AppendLine("</" & "script>")
Line 74: TourExStr.AppendLine("<![endif]-->")
Line 75: TourExStr.AppendLine("</head>")
Line 76: TourExStr.AppendLine("<body>")
Line 77: TourExStr.AppendLine(" <!--页头开始-->")
Line 78: TourExStr.AppendLine(" <div id=""header"">")
Line 79: TourExStr.AppendLine(" <div class=""shortCut"">")
Line 80: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
Line 81: TourExStr.AppendLine(" <div class=""loginBar"">")
Line 82: TourExStr.AppendLine(" <p id=""unlogin"" style=""display:none;"">您好,欢迎来到" & sitename & "!")
Line 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>")
Line 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>")
Line 85: TourExStr.AppendLine(" </div>")
Line 86: TourExStr.AppendLine(" <ul class=""headList clearfix"">")
Line 87: TourExStr.AppendLine("<li><a href=""http://www.oruchina.com/about-5/"" target=""_blank"">资质验证</a></li>")
Line 88: TourExStr.AppendLine(" <li><a href=""" & lineurl & "line/customize.aspx"" target=""_blank"">旅游定制</a></li>")
Line 89: TourExStr.AppendLine(" <li><a href=""/feedback.aspx"" target=""_blank"">意见反馈</a></li>")
Line 90: TourExStr.AppendLine(" <li class=""drop weixin"">")
Line 91: TourExStr.AppendLine(" <a href=""javascript:void(0);"">关注我们</a><i></i>")
Line 92: TourExStr.AppendLine(" <div class=""dropDown"">")
Line 93: TourExStr.AppendLine(" <div class=""content"">")
Line 94: TourExStr.AppendLine(" <p>直接扫描下方二维码</p>")
Line 95: TourExStr.AppendLine(" <img src=""""/"" & OtherOtherwebconfig.WxCode & """""">")
Line 96: TourExStr.AppendLine(" </div>")
Line 97: TourExStr.AppendLine(" </div>")
Line 98: TourExStr.AppendLine(" </li>")
Line 99: TourExStr.AppendLine(" <li class=""drop webNav"">")
Line 100: TourExStr.AppendLine(" <a href=""javascript:void(0);"">网站导航</a><i></i>")
Line 101: TourExStr.AppendLine(" <div class=""dropDown"">")
Line 102: TourExStr.AppendLine(" <div class=""content"">")
Line 103: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 104: TourExStr.AppendLine(" <dt>旅游线路</dt>")
Line 105: Dim V_1 As Integer = 0
Line 106: For Each R_1 As DataRow In linecategory.GetList().Rows
Line 107: V_1 += 1
Line 108:
Line 109: 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>")
Line 110: Next
Line 111:
Line 112: TourExStr.AppendLine(" <dd><a href=""" & lineurl & "line/customize.aspx"" title=""高级定制"" target=""_blank"">高级定制</a></dd>")
Line 113: TourExStr.AppendLine(" </dl>")
Line 114: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 115: TourExStr.AppendLine(" <dt>旅游服务</dt>")
Line 116: TourExStr.AppendLine(" <!--<dd><a href=""" & hotelurl & "hotel/"" target=""_blank"">酒店预订</a></dd>-->")
Line 117: TourExStr.AppendLine(" <!--<dd><a href=""" & sceneryurl & "scenery/"" target=""_blank"">景点门票</a></dd>-->")
Line 118: TourExStr.AppendLine(" <dd><a href=""" & visaurl & "visa/"" target=""_blank"">出国签证</a></dd>")
Line 119: TourExStr.AppendLine(" <!--<dd><a href=""" & carurl & "car/"" target=""_blank"">旅游租车</a></dd>-->")
Line 120: TourExStr.AppendLine(" <dd><a href=""" & teamurl & "tuan/"" target=""_blank"">旅游团购</a></dd>")
Line 121: TourExStr.AppendLine(" <!--<dd><a href=""" & flighturl & "flight/"" target=""_blank"">国内机票</a></dd>-->")
Line 122: TourExStr.AppendLine(" <dd><a href=""" & travelsurl & "travels/"" target=""_blank"">游记攻略</a></dd>")
Line 123: TourExStr.AppendLine(" <dd><a href=""" & destinationurl & "destination/default.aspx"" target=""_blank"">目的地</a></dd>")
Line 124: TourExStr.AppendLine(" <!--<dd><a href=""" & guideurl & "guide/"" target=""_blank"">导游服务</a></dd>-->")
Line 125: TourExStr.AppendLine(" <!--<dd><a href=""" & gifturl & "gift/"" target=""_blank"">礼品兑换</a></dd>-->")
Line 126: TourExStr.AppendLine(" </dl>")
Line 127: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 128: TourExStr.AppendLine(" <dt>度假产品</dt>")
Line 129: Dim V_2 As Integer = 0
Line 130: Dim SqlStr_2 As String = "select t_id,T_Name,T_ModuleName,T_Sort from [" & TablePrefix & "g_type] order by t_sort Desc"
Line 131: Dim Dr_2 As SqlDataReader = General.DataList(SqlStr_2,0)
Line 132: If Dr_2.Read Then
Line 133: Do
Line 134: V_2+=1
Line 135: 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>")
Line 136: If Dr_2.Read = false Then
Line 137: Exit Do
Line 138: End If
Line 139: Loop
Line 140: End If
Line 141: Dr_2.Close()
Line 142:
Line 143: TourExStr.AppendLine(" </dl>")
Line 144: TourExStr.AppendLine(" </div>")
Line 145: TourExStr.AppendLine(" </div>")
Line 146: TourExStr.AppendLine(" </li>")
Line 147: TourExStr.AppendLine(" </ul>")
Line 148: TourExStr.AppendLine(" </div>")
Line 149: TourExStr.AppendLine(" </div>")
Line 150: TourExStr.AppendLine(" <div class=""wrapper headInfo clearfix"">")
Line 151: TourExStr.AppendLine(" <div class=""headLogo"">")
Line 152: TourExStr.AppendLine(" <a href=""" & weburl & """ title=""" & sitename & """><img src=""/" & sitelogo & """ alt=""" & sitename & """ width=""300"" height=""60"" /></a>")
Line 153: TourExStr.AppendLine(" </div>")
Line 154: TourExStr.AppendLine(" <!--头部搜索开始-->")
Line 155: TourExStr.AppendLine(" <div class=""headSearch"">")
Line 156: TourExStr.AppendLine(" <div class=""sform clearfix"">")
Line 157: TourExStr.AppendLine(" <i class=""left""> </i>")
Line 158: TourExStr.AppendLine(" <i class=""right""> </i>")
Line 159: TourExStr.AppendLine(" <form name=""searchform"" id=""searchform"" method=""get"">")
Line 160: TourExStr.AppendLine(" <ul class=""s clearfix"">")
Line 161: TourExStr.AppendLine(" <li><input type=""text"" class=""sInput"" name=""key"" autocomplete=""off"" id=""s_input""></li>")
Line 162: TourExStr.AppendLine(" <li><input type=""submit"" class=""sBtn"" value=""搜 索"" id=""s_button""></li>")
Line 163: TourExStr.AppendLine(" </ul>")
Line 164: TourExStr.AppendLine(" </form>")
Line 165: TourExStr.AppendLine(" <label class=""defaultKey"" id=""defaultKey"" for=""s_input"">请输入关键词</label>")
Line 166: TourExStr.AppendLine(" <div id=""optChange"" class=""option"">")
Line 167: TourExStr.AppendLine(" <div class=""optionCur"">旅 游</div>")
Line 168: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 169: TourExStr.AppendLine(" <dd text=""线 路"" url=""" & weburl & "line/list.aspx"" defaultkey=""线路关键词"">线 路</dd>")
Line 170: TourExStr.AppendLine(" <!--<dd text=""酒 店"" url=""" & hotelurl & "hotel/list.aspx"" defaultkey=""酒店关键词"">酒 店</dd>-->")
Line 171: TourExStr.AppendLine(" <!--<dd text=""门 票"" url=""" & sceneryurl & "scenery/list.aspx"" defaultkey=""景点门票关键词"">门 票</dd>-->")
Line 172: TourExStr.AppendLine(" <!--<dd text=""租 车"" url=""" & carurl & "car/list.aspx"" defaultkey=""租车关键词"">租 车</dd>-->")
Line 173: TourExStr.AppendLine(" <dd text=""签 证"" url=""" & visaurl & "visa/list.aspx"" defaultkey=""签证关键词"">签 证</dd>")
Line 174: TourExStr.AppendLine(" <dd text=""团 购"" url=""" & teamurl & "tuan/default.aspx"" defaultkey=""团购关键词"">团 购</dd>")
Line 175: TourExStr.AppendLine(" <dd text=""新 闻"" url=""" & newsurl & "news/list.aspx"" defaultkey=""新闻关键词"">新 闻</dd>")
Line 176: TourExStr.AppendLine(" </dl>")
Line 177: TourExStr.AppendLine(" </div>")
Line 178: TourExStr.AppendLine(" </div>")
Line 179: TourExStr.AppendLine(" </div>")
Line 180: TourExStr.AppendLine(" <!--头部搜索结束-->")
Line 181: TourExStr.AppendLine(" <div class=""tel"">")
Line 182: TourExStr.AppendLine(" <dl>")
Line 183: TourExStr.AppendLine(" <dt>" & sitetel & "</dt>")
Line 184: TourExStr.AppendLine(" <dd>预订热线工作时间:9:00-18:00</dd>")
Line 185: TourExStr.AppendLine(" </dl>")
Line 186: TourExStr.AppendLine(" </div>")
Line 187: TourExStr.AppendLine(" </div>")
Line 188: TourExStr.AppendLine(" <!--网站主菜单开始-->")
Line 189: TourExStr.AppendLine(" <div class=""headNav"">")
Line 190: TourExStr.AppendLine(" <div class=""wrapper navBox clearfix"">")
Line 191: TourExStr.AppendLine(" <ul class=""navList clearfix"">")
Line 192: Dim V_3 As Integer = 0
Line 193: Dim SqlStr_3 As String = "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=0 order by n_orderid"
Line 194: Dim Dr_3 As SqlDataReader = General.DataList(SqlStr_3,0)
Line 195: If Dr_3.Read Then
Line 196: Do
Line 197: V_3+=1
Line 198:
Line 199: dim url as string = ""
Line 200: if Dr_3("n_type").ToString() = 0 then
Line 201:
Line 202: TourExStr.AppendLine(" <li>")
Line 203: TourExStr.AppendLine(" <a href=""" & Dr_3("n_url").ToString() & """ " & iif(Dr_3("n_isblank").ToString() = 1,"target='_blank'","") & "><b></b><i></i><span>" & Dr_3("n_name").ToString() & "</span></a>")
Line 204: TourExStr.AppendLine(" </li>")
Line 205:
Line 206: else
Line 207: url = GetHeadTagNavUrl(Dr_3("n_id").ToString())
Line 208:
Line 209: TourExStr.AppendLine(" <li class=""on"">")
Line 210: TourExStr.AppendLine(" <a href=""" & url & """ id=""" & Dr_3("n_Module").ToString() & """ " & iif(Dr_3("n_isblank").ToString() = 1,"target='_blank'","") & "><b></b><i></i><span>" & Dr_3("n_name").ToString() & "</span></a>")
Line 211: TourExStr.AppendLine(" <div class=""subnav"">")
Line 212: TourExStr.AppendLine(" <div class=""list"">")
Line 213: Dim V_4 As Integer = 0
Line 214: Dim SqlStr_4 As String = "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=" & Dr_3("n_id").ToString() & " order by n_orderid"
Line 215: Dim Dr_4 As SqlDataReader = General.DataList(SqlStr_4,0)
Line 216: If Dr_4.Read Then
Line 217: Do
Line 218: V_4+=1
Line 219: url = Dr_4("n_url").ToString()
Line 220:
Line 221: if Dr_4("n_type").ToString() = 0 then
Line 222:
Line 223: TourExStr.AppendLine(" <a href='" & Iif(String.IsNullOrEmpty(Dr_4("n_url").ToString()),"javascript:void(0)",url) & "' " & iif(Dr_4("n_isblank").ToString() = "1","target='_blank'","") & ">" & Dr_4("n_name").ToString() & "</a>")
Line 224:
Line 225: else
Line 226: url =GetHeadTagChildNavUrl("",Dr_4("n_level").ToString(),Dr_4("n_categoryid").ToString())
Line 227:
Line 228: TourExStr.AppendLine(" <a href=""" & url & """ " & iif(Dr_4("n_isblank").ToString() = 1,"target='_blank'","") & " >" & Dr_4("n_name").ToString() & "</a>")
Line 229:
Line 230: end if
Line 231: If Dr_4.Read = false Then
Line 232: Exit Do
Line 233: End If
Line 234: Loop
Line 235: End If
Line 236: Dr_4.Close()
Line 237:
Line 238: TourExStr.AppendLine(" </div>")
Line 239: TourExStr.AppendLine(" </div>")
Line 240: TourExStr.AppendLine(" </li>")
Line 241:
Line 242: end if
Line 243:
Line 244: If Dr_3.Read = false Then
Line 245: Exit Do
Line 246: End If
Line 247: Loop
Line 248: End If
Line 249: Dr_3.Close()
Line 250:
Line 251: TourExStr.AppendLine(" </ul>")
Line 252: TourExStr.AppendLine(" </div>")
Line 253: TourExStr.AppendLine(" <div class=""navBg""></div>")
Line 254: TourExStr.AppendLine(" </div>")
Line 255: TourExStr.AppendLine(" <!--网站主菜单结束-->")
Line 256: TourExStr.AppendLine(" </div>")
Line 257: TourExStr.AppendLine(" <!--页头结束-->")
Line 258: TourExStr.AppendLine("<ul class=""path"">")
Line 259: TourExStr.AppendLine(" <li>当前位置</li>")
Line 260: TourExStr.AppendLine(" <li><a href=""/"">首页</a></li>")
Line 261: TourExStr.AppendLine(" <li><a href=""" & weburl & "usercenter/"">会员中心</a></li>")
Line 262: TourExStr.AppendLine("</ul>")
Line 263: TourExStr.AppendLine("<div class=""userBox"">")
Line 264: TourExStr.AppendLine(" <div class=""userL206"">")
Line 265: TourExStr.AppendLine(" <div class=""userNav"">")
Line 266: TourExStr.AppendLine(" <div class=""userNavs"">")
Line 267: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s1""></span>个人信息</h1>")
Line 268: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 269: TourExStr.AppendLine(" <ul>")
Line 270: TourExStr.AppendLine(" <li id=""edit""><a href=""" & weburl & "usercenter/edit.aspx"">我的个人资料</a></li>")
Line 271: TourExStr.AppendLine(" <li id=""bonusdetails""><a href=""" & weburl & "usercenter/bonusdetails.aspx"">帐户明细</a></li>")
Line 272: TourExStr.AppendLine(" <li id=""cardlist""><a href=""" & weburl & "usercenter/cardlist.aspx"">卡券列表</a></li>")
Line 273: TourExStr.AppendLine(" <li id=""withdraw""><a href=""" & weburl & "usercenter/withdraw.aspx"">申请提现</a></li>")
Line 274: TourExStr.AppendLine(" <li id=""messagelist""><a href=""" & weburl & "usercenter/messagelist.aspx"">我的短信</a></li>")
Line 275: TourExStr.AppendLine(" <li id=""usergclist""><a href=""" & weburl & "usercenter/usergclist.aspx"">常用联系人</a></li>")
Line 276: TourExStr.AppendLine(" <li id=""couponlist""><a href=""" & weburl & "usercenter/tuan/couponlist.aspx"">团购券</a></li>")
Line 277: TourExStr.AppendLine(" <li id=""invitation""><a href=""" & weburl & "usercenter/invitation.aspx"">邀请注册</a></li>")
Line 278: TourExStr.AppendLine(" <li><a href=""" & weburl & "usercenter/login.aspx?act=out"">退出</a></li>")
Line 279: TourExStr.AppendLine(" </ul>")
Line 280: TourExStr.AppendLine(" </div>")
Line 281: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s7""></span>产品管理</h1>")
Line 282: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 283: TourExStr.AppendLine(" <ul>")
Line 284: TourExStr.AppendLine(" <li id=""coupons"" " & Iif(userProviderProducts.IndexOf(",团购,") = -1,"class='display:none'","") & "><a href=""" & weburl & "usercenter/merchants/coupons.aspx"">团购券</a></li>")
Line 285: TourExStr.AppendLine(" </ul>")
Line 286: TourExStr.AppendLine(" </div>")
Line 287: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s2""></span>订单管理</h1>")
Line 288: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 289: TourExStr.AppendLine(" <ul>")
Line 290: TourExStr.AppendLine(" <li id=""lineorderList""><a href=""" & weburl & "usercenter/line/orderList.aspx"">旅游线路订单</a></li>")
Line 291: TourExStr.AppendLine(" <li id=""hotelorderlist""><a href=""" & weburl & "usercenter/hotel/orderlist.aspx"">酒店订单</a></li> ")
Line 292: TourExStr.AppendLine(" <li id=""sceneryorderList""><a href=""" & weburl & "usercenter/scenery/orderList.aspx"">景点订单</a></li>")
Line 293: TourExStr.AppendLine(" <li id=""carorderList""><a href=""" & weburl & "usercenter/car/orderList.aspx"">租车订单</a></li>")
Line 294: TourExStr.AppendLine(" <li id=""visaorderList""><a href=""" & weburl & "usercenter/visa/orderList.aspx"">签证订单</a></li>")
Line 295: TourExStr.AppendLine(" <li id=""tuanorderlist""><a href=""" & weburl & "usercenter/tuan/orderlist.aspx"">团购订单</a></li>")
Line 296: TourExStr.AppendLine(" <li id=""giftorderList""><a href=""" & weburl & "usercenter/gift/orderList.aspx"">礼品订单</a></li>")
Line 297: TourExStr.AppendLine(" <li id=""guideorderList""><a href=""" & weburl & "usercenter/guide/orderList.aspx"">导游订单</a></li>")
Line 298: TourExStr.AppendLine(" <li id=""flightorderList""><a href=""" & weburl & "usercenter/flight/orderList.aspx"">机票订单</a></li>")
Line 299: Dim V_5 As Integer = 0
Line 300: Dim SqlStr_5 As String = "select t_name,t_modulename from [" & tableprefix & "G_Type] order by t_sort asc"
Line 301: Dim Dr_5 As SqlDataReader = General.DataList(SqlStr_5,0)
Line 302: If Dr_5.Read Then
Line 303: Do
Line 304: V_5+=1
Line 305: TourExStr.AppendLine(" <li id=""" & Dr_5("T_ModuleName").ToString() & "orderList""><a href=""" & weburl & "usercenter/" & Dr_5("T_ModuleName").ToString() & "/orderList.aspx"">" & Dr_5("T_Name").ToString() & "订单</a></li>")
Line 306: If Dr_5.Read = false Then
Line 307: Exit Do
Line 308: End If
Line 309: Loop
Line 310: End If
Line 311: Dr_5.Close()
Line 312:
Line 313: TourExStr.AppendLine(" </ul>")
Line 314: TourExStr.AppendLine(" </div>")
Line 315: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s3""></span>点评管理</h1>")
Line 316: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 317: TourExStr.AppendLine(" <ul>")
Line 318: TourExStr.AppendLine(" <li id=""linereviewsList""><a href=""" & weburl & "usercenter/line/reviewsList.aspx"">旅游线路点评</a></li>")
Line 319: TourExStr.AppendLine(" <li id=""hotelreviewslist""><a href=""" & weburl & "usercenter/hotel/reviewslist.aspx"">酒店点评</a></li>")
Line 320: TourExStr.AppendLine(" <li id=""sceneryreviewsList""><a href=""" & weburl & "usercenter/scenery/reviewsList.aspx"">景点点评</a></li>")
Line 321: TourExStr.AppendLine(" <li id=""carreviewsList""><a href=""" & weburl & "usercenter/car/reviewsList.aspx"">租车点评</a></li>")
Line 322: TourExStr.AppendLine(" <li id=""guidereviewsList""><a href=""" & weburl & "usercenter/guide/reviewsList.aspx"">导游点评</a></li>")
Line 323: Dim V_6 As Integer = 0
Line 324: Dim SqlStr_6 As String = "select t_name,t_modulename from [" & tableprefix & "G_Type] order by t_sort asc"
Line 325: Dim Dr_6 As SqlDataReader = General.DataList(SqlStr_6,0)
Line 326: If Dr_6.Read Then
Line 327: Do
Line 328: V_6+=1
Line 329: TourExStr.AppendLine(" <li id=""" & Dr_6("T_ModuleName").ToString() & "reviewsList""><a href=""" & weburl & "usercenter/" & Dr_6("T_ModuleName").ToString() & "/reviewsList.aspx"">" & Dr_6("T_Name").ToString() & "点评</a></li>")
Line 330: If Dr_6.Read = false Then
Line 331: Exit Do
Line 332: End If
Line 333: Loop
Line 334: End If
Line 335: Dr_6.Close()
Line 336:
Line 337: TourExStr.AppendLine(" </ul>")
Line 338: TourExStr.AppendLine(" </div>")
Line 339: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s4""></span>咨询管理</h1>")
Line 340: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 341: TourExStr.AppendLine(" <ul>")
Line 342: TourExStr.AppendLine(" <li id=""linequestions""><a href=""" & weburl & "usercenter/line/questions.aspx"">旅游线路咨询</a></li>")
Line 343: TourExStr.AppendLine(" <li id=""hotelquestions""><a href=""" & weburl & "usercenter/hotel/questions.aspx"">酒店咨询</a></li>")
Line 344: TourExStr.AppendLine(" <li id=""sceneryquestions""><a href=""" & weburl & "usercenter/scenery/questions.aspx"">景点咨询</a></li>")
Line 345: TourExStr.AppendLine(" <li id=""carquestions""><a href=""" & weburl & "usercenter/car/questions.aspx"">租车咨询</a></li>")
Line 346: TourExStr.AppendLine(" <li id=""visaquestions""><a href=""" & weburl & "usercenter/visa/questions.aspx"">签证咨询</a></li>")
Line 347: TourExStr.AppendLine(" </ul>")
Line 348: TourExStr.AppendLine(" </div>")
Line 349: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s5""></span>收藏管理</h1>")
Line 350: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 351: TourExStr.AppendLine(" <ul>")
Line 352: TourExStr.AppendLine(" <li id=""linefavorites""><a href=""" & weburl & "usercenter/line/favorites.aspx"">旅游线路收藏</a></li>")
Line 353: TourExStr.AppendLine(" <li id=""hotelfavorites""><a href=""" & weburl & "usercenter/hotel/favorites.aspx"">酒店收藏</a></li>")
Line 354: TourExStr.AppendLine(" <li id=""sceneryfavorites""><a href=""" & weburl & "usercenter/scenery/favorites.aspx"">景点收藏</a></li>")
Line 355: TourExStr.AppendLine(" <li id=""carfavorites""><a href=""" & weburl & "usercenter/car/favorites.aspx"">租车收藏</a></li>")
Line 356: TourExStr.AppendLine(" <li id=""visafavorites""><a href=""" & weburl & "usercenter/visa/favorites.aspx"">签证收藏</a></li>")
Line 357: TourExStr.AppendLine(" <li id=""giftfavorites""><a href=""" & weburl & "usercenter/gift/favorites.aspx"">礼品收藏</a></li>")
Line 358: Dim V_7 As Integer = 0
Line 359: Dim SqlStr_7 As String = "select t_name,t_modulename from [" & tableprefix & "G_Type] order by t_sort asc"
Line 360: Dim Dr_7 As SqlDataReader = General.DataList(SqlStr_7,0)
Line 361: If Dr_7.Read Then
Line 362: Do
Line 363: V_7+=1
Line 364: TourExStr.AppendLine(" <li id=""" & Dr_7("T_ModuleName").ToString() & "favorites""><a href=""" & weburl & "usercenter/" & Dr_7("T_ModuleName").ToString() & "/favorites.aspx"">" & Dr_7("T_Name").ToString() & "收藏</a></li>")
Line 365: If Dr_7.Read = false Then
Line 366: Exit Do
Line 367: End If
Line 368: Loop
Line 369: End If
Line 370: Dr_7.Close()
Line 371:
Line 372: TourExStr.AppendLine(" </ul>")
Line 373: TourExStr.AppendLine(" </div>")
Line 374: TourExStr.AppendLine(" <h1 class=""userNavTit1""><div class=""more""> </div><span class=""s6""></span>游记管理</h1>")
Line 375: TourExStr.AppendLine(" <div class=""userNavText"">")
Line 376: TourExStr.AppendLine(" <ul>")
Line 377: TourExStr.AppendLine(" <li id=""travelsAdd""><a href=""" & weburl & "usercenter/travels/travels.aspx"">发布攻略</a></li>")
Line 378: TourExStr.AppendLine(" <li id=""travelsList""><a href=""" & weburl & "usercenter/travels/List.aspx"">管理攻略</a></li>")
Line 379: TourExStr.AppendLine(" <li id=""travelsfavorites""><a href=""" & weburl & "usercenter/travels/favorites.aspx"">攻略收藏</a></li>")
Line 380: TourExStr.AppendLine(" </ul>")
Line 381: TourExStr.AppendLine(" </div>")
Line 382: TourExStr.AppendLine(" </div>")
Line 383: TourExStr.AppendLine(" </div>")
Line 384: TourExStr.AppendLine(" </div>")
Line 385: TourExStr.AppendLine(" <div class=""userR744"">")
Line 386: TourExStr.AppendLine(" <div>")
Line 387: TourExStr.AppendLine(" <div class=""userTips"" " & IIF(u.Perfect=1,"style=""display:none""","") & ">您的资料不完整,建议补充完整,完善个人资料,可获得" & UserUserUserUserUserUserwebconfig.CompleteInfoAward & "" & bonusunits & "" & bonusname & "。<a href=""" & weburl & "usercenter/edit.aspx"">立即完善个人资料</a></div>")
Line 388: TourExStr.AppendLine(" <!-- hotel -->")
Line 389: Dim V_8 As Integer = 0
Line 390: For Each M_8 As TourEx.Model.hotelorder In hotelorder.GetList(1,"O_ID,O_Number,O_HotelId,o_HotelName,O_RoomId,O_UserID,O_RoomName,O_Rooms,o_mark,o_deposit,o_TransactionStatus","o_userid=" & u.id,"O_ID Desc")
Line 391: V_8 += 1
Line 392:
Line 393: TourExStr.AppendLine(" <div class=""userTips"">")
Line 394: TourExStr.AppendLine(" <span><a href=""javascript:void(0)"" id=""ho"">关闭</a></span>")
Line 395: TourExStr.AppendLine(" 您预订的" & M_8.HotelName & " - " & M_8.RoomName & "" & M_8.Rooms & "间")
Line 396:
Line 397: Select Case M_8.mark
Line 398: Case 0
Line 399: TourExStr.AppendLine("<font color=""red"">处理中</font>")
Line 400: Case 1
Line 401: TourExStr.AppendLine("<font color=""red"">已取消</font>")
Line 402: Case 2
Line 403: TourExStr.Append("<font color=""green"">已处理<font color=""red"">(")
Line 404: If M_8.deposit>0 AndAlso M_8.TransactionStatus ="" Then
Line 405: TourExStr.Append("待付款")
Line 406: Else
Line 407: TourExStr.Append("待入住")
Line 408: End If
Line 409: TourExStr.AppendLine(")</font></font>")
Line 410: Case 3
Line 411: TourExStr.AppendLine("<a href=""/usercenter/hotel/reviews.aspx?Id=" & M_8.id & """>已入住(待点评)</a>")
Line 412: Case 4
Line 413: TourExStr.AppendLine("已点评(待审核)")
Line 414: Case Else
Line 415: TourExStr.AppendLine("已结束")
Line 416: End Select
Line 417:
Line 418: TourExStr.AppendLine(" <a href=""/usercenter/hotel/orderlist.aspx"">查看</a>")
Line 419: TourExStr.AppendLine(" </div>")
Line 420: Next
Line 421:
Line 422: TourExStr.AppendLine(" <!--line -->")
Line 423: Dim V_9 As Integer = 0
Line 424: For Each M_9 As TourEx.Model.lineorder In lineorder.GetList(1,"O_ID,O_Number,O_lineId,o_lineName,O_UserID,o_mark,o_deposit,o_TransactionStatus","o_userid=" & u.id,"O_ID Desc")
Line 425: V_9 += 1
Line 426:
Line 427: TourExStr.AppendLine(" <div class=""userTips"">")
Line 428: TourExStr.AppendLine(" <span><a href=""javascript:void(0)"" id=""lo"">关闭</a></span>")
Line 429: TourExStr.AppendLine(" 您预订的" & M_9.lineName & "旅游度假线路")
Line 430:
Line 431: Select Case M_9.mark
Line 432: Case 0
Line 433: TourExStr.AppendLine("<font color=""red"">处理中</font>")
Line 434: Case 1
Line 435: TourExStr.AppendLine("<font color=""red"">已取消</font>")
Line 436: Case 2
Line 437: TourExStr.Append("<font color=""green"">已处理<font color=""red"">(")
Line 438: If M_9.deposit>0 AndAlso M_9.TransactionStatus ="" Then
Line 439: TourExStr.Append("待付款")
Line 440: Else
Line 441: TourExStr.Append("待出团")
Line 442: End If
Line 443: TourExStr.AppendLine(")</font></font>")
Line 444: Case 3
Line 445: TourExStr.AppendLine("<a href=""/usercenter/line/reviews.aspx?Id=" & M_9.id & """>已出团(待点评)</a>")
Line 446: Case 4
Line 447: TourExStr.AppendLine("已点评(待审核)")
Line 448: Case Else
Line 449: TourExStr.AppendLine("已结束")
Line 450: End Select
Line 451:
Line 452: TourExStr.AppendLine(" <a href=""/usercenter/line/orderlist.aspx"">查看</a>")
Line 453: TourExStr.AppendLine(" </div>")
Line 454: Next
Line 455:
Line 456: TourExStr.AppendLine(" <!--Scenery -->")
Line 457: TourExStr.AppendLine(" <!--car -->")
Line 458: Dim V_10 As Integer = 0
Line 459: For Each M_10 As TourEx.Model.carorder In carorder.GetList(1,"o_id,o_userid,o_username,o_carname,o_cartypename,o_cartypeid,o_r_text,o_r_date,o_r_count,o_deposit,o_mark,o_TransactionStatus","o_userid=" & u.id,"O_Id Desc")
Line 460: V_10 += 1
Line 461:
Line 462: TourExStr.AppendLine(" <div class=""userTips"">")
Line 463: TourExStr.AppendLine(" <span><a href=""javascript:void(0)"" id=""co"">关闭</a></span>")
Line 464: TourExStr.AppendLine(" 您预订的" & M_10.carName & "租车")
Line 465:
Line 466: Select Case M_10.mark
Line 467: Case 0
Line 468: TourExStr.AppendLine("<font color=""red"">处理中</font>")
Line 469: Case 1
Line 470: TourExStr.AppendLine("<font color=""red"">已取消</font>")
Line 471: Case 2
Line 472: TourExStr.Append("<font color=""green"">已处理<font color=""red"">(")
Line 473: If M_10.deposit>0 AndAlso M_10.TransactionStatus ="" Then
Line 474: TourExStr.Append("待付款")
Line 475: Else
Line 476: TourExStr.Append("待取车")
Line 477: End If
Line 478: TourExStr.AppendLine(")</font></font>")
Line 479: Case 3
Line 480: TourExStr.AppendLine("<a href=""/usercenter/car/reviews.aspx?Id=" & M_10.id & """>已取车(待点评)</a>")
Line 481: Case 4
Line 482: TourExStr.AppendLine("已点评(待审核)")
Line 483: Case Else
Line 484: TourExStr.AppendLine("已结束")
Line 485: End Select
Line 486:
Line 487: TourExStr.AppendLine(" <a href=""/usercenter/car/orderlist.aspx"">查看</a>")
Line 488: TourExStr.AppendLine(" </div>")
Line 489: Next
Line 490:
Line 491: TourExStr.AppendLine(" <!-- end car -->")
Line 492: Dim V_11 As Integer = 0
Line 493: For Each M_11 As TourEx.Model.sceneryorder In sceneryorder.GetList(1,"O_ID,O_SceneryId,o_SceneryName,o_PlayDate,o_ticketsname,o_Quantity,o_mark,o_deposit,o_TransactionStatus","o_userid=" & u.id,"O_ID Desc")
Line 494: V_11 += 1
Line 495:
Line 496: TourExStr.AppendLine(" <div class=""userTips"">")
Line 497: TourExStr.AppendLine(" <span><a href=""javascript:void(0)"" id=""so"">关闭</a></span>")
Line 498: TourExStr.AppendLine(" 您预订的" & M_11.PlayDate & "【" & M_11.SceneryName & "-" & M_11.ticketsname & "】门票" & M_11.Quantity & "张")
Line 499:
Line 500: Select Case M_11.mark
Line 501: Case 0
Line 502: TourExStr.AppendLine("<font color=""red"">处理中</font>")
Line 503: Case 1
Line 504: TourExStr.AppendLine("<font color=""red"">已取消</font>")
Line 505: Case 2
Line 506: TourExStr.Append("<font color=""green"">已处理<font color=""red"">(")
Line 507: If M_11.deposit>0 AndAlso M_11.TransactionStatus ="" Then
Line 508: TourExStr.Append("待付款")
Line 509: Else
Line 510: TourExStr.Append("待取票")
Line 511: End If
Line 512: TourExStr.AppendLine(")</font></font>")
Line 513: Case 3
Line 514: TourExStr.AppendLine("<a href=""/usercenter/scenery/reviews.aspx?Id=" & M_11.id & """>已取票(待点评)</a>")
Line 515: Case 4
Line 516: TourExStr.AppendLine("已点评(待审核)")
Line 517: Case Else
Line 518: TourExStr.AppendLine("已结束")
Line 519: End Select
Line 520:
Line 521: TourExStr.AppendLine(" <a href=""/usercenter/scenery/orderlist.aspx"">查看</a>")
Line 522: TourExStr.AppendLine(" </div>")
Line 523: Next
Line 524:
Line 525: TourExStr.AppendLine(" <div class=""userInfo clearfix"">")
Line 526: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 527: TourExStr.AppendLine(" <dt><img src=""" & FormatPic(u.Face,6) & """ onerror=""this.onerror='';this.src='/sys/images/noAvatar.gif';""; width=""150"" height=""150"" /><div class=""bg""> </div><div class=""edit""><a href=""" & weburl & "usercenter/edit.aspx"">个人资料</a></div></dt>")
Line 528: TourExStr.AppendLine(" <dd><em class=""uName"">" & u.RealName & "</em> 您好!欢迎来到" & sitename & "!</dd>")
Line 529: TourExStr.AppendLine(" <dd>")
Line 530: TourExStr.AppendLine(" <span>" & WebConfig.BonusName & "余额:</span>")
Line 531: TourExStr.AppendLine(" <span><em style=""font-size: 16px;"">" & u.Bonus & "</em>" & bonusunits & "</span>")
Line 532: TourExStr.AppendLine(" <span><a href=""" & weburl & "usercenter/bonusdetails.aspx"">[查看帐户明细]</a></span>")
Line 533: TourExStr.AppendLine(" </dd>")
Line 534: TourExStr.AppendLine(" <dd>")
Line 535: TourExStr.AppendLine(" <span>站 内 信:</span>")
Line 536: TourExStr.AppendLine(" <span><a href=""" & weburl & "usercenter/messagelist.aspx"">未读<em>(" & Users.CountUnreadSMS(U.ID) & ")</em></a></span>")
Line 537: TourExStr.AppendLine(" </dd>")
Line 538: TourExStr.AppendLine(" <dd class=""orderTips"">")
Line 539: TourExStr.AppendLine(" <span>订单提醒:</span>")
Line 540: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/line/orderlist.aspx"">线路订单<em>(" & Users.CountLineOrder(U.ID) & ")</em></a></span>")
Line 541: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/hotel/orderlist.aspx"">酒店订单<em>(" & Users.CountHotelOrder(U.ID) & ")</em></a></span>")
Line 542: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/scenery/orderlist.aspx"">景点订单<em>(" & Users.CountSceneryOrder(U.ID) & ")</em></a></span>")
Line 543: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/Car/orderlist.aspx"">租车订单<em>(" & Users.CountCarOrder(U.ID) & ")</em></a></span>")
Line 544: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/Visa/orderlist.aspx"">签证订单<em>(" & Users.CountVisaOrder(U.ID) & ")</em></a></span>")
Line 545: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/tuan/orderlist.aspx"">团购订单<em>(" & Users.CountTeamOrder(U.ID) & ")</em></a></span>")
Line 546: TourExStr.AppendLine(" <span class=""s""><a href=""" & weburl & "usercenter/guide/orderlist.aspx"">导游订单<em>(" & Users.CountGuideOrder(U.ID) & ")</em></a></span>")
Line 547: TourExStr.AppendLine(" </dd>")
Line 548: TourExStr.AppendLine(" </dl>")
Line 549: TourExStr.AppendLine(" <div class=""account"">您的账号为<em>" & u.Name & "</em>您也可以使用邮箱<em>" & u.Email & "</em>或手机<em>" & u.Mobile & "</em>登录</div>")
Line 550: TourExStr.AppendLine(" </div>")
Line 551: TourExStr.AppendLine(" <div class=""integral"">")
Line 552: TourExStr.AppendLine(" <ul>")
Line 553: TourExStr.AppendLine(" <li class=""ka"">当您的" & bonusname & "总额满<em>" & WebConfig.BonusMinWithdraw & "</em>" & bonusunits & ",即可申请提现 <a href=""" & weburl & "usercenter/withdraw.aspx"">[我要提现]</a></li>")
Line 554: TourExStr.AppendLine(" <li class=""end"">")
Line 555: TourExStr.AppendLine(" 我的卡券:")
Line 556: Dim V_12 As Integer = 0
Line 557: Dim SqlStr_12 As String = "select cb_name,cb_type,cb_id,c_batchesid,c_number,c_pass,c_userid,c_balance,c_freeze,c_startdate,c_stopdate,c_occupancy from [" & TablePrefix & "Card] INNER JOIN [" & TablePrefix & "CardBatches] on cb_id=c_batchesid where c_userid=" & u.id
Line 558: Dim Dr_12 As SqlDataReader = General.DataList(SqlStr_12,0)
Line 559: If Dr_12.Read Then
Line 560: Do
Line 561: V_12+=1
Line 562: TourExStr.AppendLine(" <a href=""" & weburl & "usercenter/cardlist.aspx?cardtype=" & Dr_12("cb_type").ToString() & """>[" & iif(Dr_12("cb_type").ToString()=0,"礼券",iif(Dr_12("cb_type").ToString()=1,"购物卡","代金券")) & "]" & Dr_12("cb_name").ToString() & "<em>(¥" & Dr_12("c_balance").ToString() & ")</em></a>")
Line 563: If Dr_12.Read = false Then
Line 564: Exit Do
Line 565: End If
Line 566: Loop
Line 567: End If
Line 568: Dr_12.Close()
Line 569:
Line 570: TourExStr.AppendLine(" </li>")
Line 571: TourExStr.AppendLine(" </ul>")
Line 572: TourExStr.AppendLine(" </div>")
Line 573: TourExStr.AppendLine(" <div class=""otherInfo"">")
Line 574: TourExStr.AppendLine(" <div class=""trip"">")
Line 575: TourExStr.AppendLine(" <div class=""content"">")
Line 576: TourExStr.AppendLine(" <h2>近期没有行程安排,是否需要预订?</h2>")
Line 577: TourExStr.AppendLine(" <ul class=""clearfix"">")
Line 578: TourExStr.AppendLine(" <li><a class=""p1"" target=""_blank"" href=""" & hotelurl & "hotel/"">酒店预订</a></li>")
Line 579: TourExStr.AppendLine(" <li><a class=""p2"" target=""_blank"" href=""" & carurl & "car/"">租车服务</a></li>")
Line 580: TourExStr.AppendLine(" <li><a class=""p3"" target=""_blank"" href=""" & guideurl & "guide/"">导游服务</a></li>")
Line 581: TourExStr.AppendLine(" <li><a class=""p4"" target=""_blank"" href=""" & sceneryurl & "scenery/"">门票预订</a></li>")
Line 582: TourExStr.AppendLine(" <li><a class=""p5"" target=""_blank"" href=""" & lineurl & "line/default.aspx"">旅游线路</a></li>")
Line 583: TourExStr.AppendLine(" <li><a class=""p6"" target=""_blank"" href=""" & flighturl & "flight/"">机票服务</a></li>")
Line 584: TourExStr.AppendLine(" <li><a class=""p7"" target=""_blank"" href=""" & visaurl & "visa/"">签证服务</a></li>")
Line 585: TourExStr.AppendLine(" <li><a class=""p8"" target=""_blank"" href=""" & travelsurl & "travels/"">旅游攻略</a></li>")
Line 586: TourExStr.AppendLine(" </ul>")
Line 587: TourExStr.AppendLine(" </div>")
Line 588: TourExStr.AppendLine(" </div>")
Line 589: TourExStr.AppendLine(" </div>")
Line 590: TourExStr.AppendLine(" </div>")
Line 591: TourExStr.AppendLine(" </div>")
Line 592: TourExStr.AppendLine(" <div class=""clearit""></div>")
Line 593: TourExStr.AppendLine("</div>")
Line 594: TourExStr.AppendLine("<div id=""footer"">")
Line 595: TourExStr.AppendLine(" <div class=""assure"">")
Line 596: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
Line 597: TourExStr.AppendLine(" <ul class=""clearfix"">")
Line 598: TourExStr.AppendLine(" <li class=""d1"">让您放心出游</li>")
Line 599: TourExStr.AppendLine(" <li class=""d2"">深度品质线路任选</li>")
Line 600: TourExStr.AppendLine(" <li class=""d3"">大连出发旅游首选</li>")
Line 601: TourExStr.AppendLine(" <li class=""d4"">全球邮轮旅行</li>")
Line 602: TourExStr.AppendLine(" <li class=""d5"">大连出发精品海岛旅行</li>")
Line 603: TourExStr.AppendLine(" </ul>")
Line 604: TourExStr.AppendLine(" </div>")
Line 605: TourExStr.AppendLine(" </div>")
Line 606: TourExStr.AppendLine("<div id=""footer"">")
Line 607: TourExStr.AppendLine(" <div class=""artBox"">")
Line 608: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
Line 609: TourExStr.AppendLine(" <div class=""faq clearfix"">")
Line 610: dim idxn as integer = 0
Line 611: Dim V_13 As Integer = 0
Line 612: For Each R_13 As DataRow In helpcategory.GetList().Rows
Line 613: V_13 += 1
Line 614:
Line 615: idxn = idxn + 1
Line 616: TourExStr.AppendLine(" <dl class=""d" & idxn & """>")
Line 617: TourExStr.AppendLine(" <dt>" & R_13("t_name") & "</dt>")
Line 618: Dim V_14 As Integer = 0
Line 619: For Each R_14 As DataRow In help.GetList().Select("h_categoryid=" & R_13("t_id"),"")
Line 620: V_14 += 1
Line 621:
Line 622: TourExStr.AppendLine(" <dd><a href=""" & IIF(R_14("h_url").length=0,weburl & "help.aspx?id=" & R_14("h_id"),R_14("h_url")) & """ target=""_blank"">" & R_14("h_title") & "</a></dd>")
Line 623: If V_14 >= 4 Then
Line 624: Exit For
Line 625: End If
Line 626: Next
Line 627:
Line 628: TourExStr.AppendLine(" </dl>")
Line 629: If V_13 >= 5 Then
Line 630: Exit For
Line 631: End If
Line 632: Next
Line 633:
Line 634: TourExStr.AppendLine(" </div>")
Line 635: TourExStr.AppendLine(" </div>")
Line 636: TourExStr.AppendLine(" </div>")
Line 637: TourExStr.AppendLine(" <div class=""wrapper clearfix"">")
Line 638: TourExStr.AppendLine(" <div class=""netMark clearfix"">")
Line 639: TourExStr.AppendLine("<a href=""http://www.baidu.com/s?wd=www.oruchina.com@v&vmp_ec=9e7f359a04417cf3462220731d42b35n2d0V0Xsc5d739S=bc08jYuld5javG6985yc8X934c7d2J603ddb31f23&vmp_ectm=1423688800&from=vs"" rel=""nofollow"" title=""百度信誉档案"" target=""_blank""><img src=""/images/temp/baidu.png"" width=""110"" height=""36"" alt=""认证图标""/></a>")
Line 640: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark1.png"" width=""110"" height=""36"" alt=""认证图标""/></a>")
Line 641: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark2.png"" width=""110"" height=""36"" alt=""认证图标""/></a>")
Line 642: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark3.png"" width=""118"" height=""36"" alt=""认证图标""/></a>")
Line 643: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark4.png"" width=""122"" height=""36"" alt=""认证图标""/></a>")
Line 644: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark5.png"" width=""122"" height=""36"" alt=""认证图标""/></a>")
Line 645: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark6.png"" width=""122"" height=""36"" alt=""认证图标""/></a>")
Line 646: TourExStr.AppendLine(" <a href=""javascript:;"" rel=""nofollow"" title=""认证图标""><img src=""" & weburl & "images/mark7.png"" width=""122"" height=""36"" alt=""认证图标""/></a>")
Line 647: TourExStr.AppendLine(" </div>")
Line 648: TourExStr.AppendLine(" <div class=""linksBox clearfix"">")
Line 649: Dim V_15 As Integer = 0
Line 650: For Each R_15 As DataRow In about.GetList().Select("A_PID=" & 0,"")
Line 651: V_15 += 1
Line 652: If V_15 > 1 Then
Line 653:
Line 654: TourExStr.Append(" | ")
Line 655: End If
Line 656:
Line 657: TourExStr.Append("<a href=""" & IIF(R_15("a_url")="",weburl & "About.aspx?id=" & R_15("a_id"),R_15("a_url")) & """>" & R_15("a_title") & "</a>")
Line 658: Next
Line 659:
Line 660: TourExStr.AppendLine(" | <a href=""" & weburl & "sitemap.aspx"" target=""_blank"">网站地图</a>")
Line 661: TourExStr.AppendLine(" </div>")
Line 662: TourExStr.AppendLine(" <div class=""copyright"">")
Line 663: TourExStr.AppendLine(" <p>Copyright © 2010-2015 大连山水国际旅行社有限公司 All Rights Reserved. Powered By <a target=""_blank"" href=""http://www.oruchina.com"">大连山水旅行网</a></p>")
Line 664: TourExStr.AppendLine(" <p>地址:" & siteaddress & " | 服务热线:" & sitetel & " | 技术QQ:" & siteqq & " | E-mail:" & siteemail & " | <a target=""_blank"" href=""https://beian.miit.gov.cn/"" rel=""nofollow"">" & siteicp & "</a></p><p>" & WebConfig.ExternalCodeDefault & "</p>")
Line 665: TourExStr.AppendLine(" <p></p>")
Line 666: TourExStr.AppendLine(" </div>")
Line 667: TourExStr.AppendLine(" <div class=""siteLinks"">")
Line 668: TourExStr.AppendLine(" <dl class=""clearfix"">")
Line 669: TourExStr.AppendLine(" <dt><a href="""" target=""_blank"" title=""友情链接"">友情链接:</a></dt>")
Line 670: TourExStr.AppendLine(" <dd>")
Line 671: Dim V_16 As Integer = 0
Line 672: For Each R_16 As DataRow In textlink.GetList().Rows
Line 673: V_16 += 1
Line 674:
Line 675: TourExStr.AppendLine(" <span><a href=""" & R_16("l_url") & """ title=""" & R_16("l_name") & """ target=""_blank"">" & R_16("l_name") & "</a></span>")
Line 676: Next
Line 677:
Line 678: TourExStr.AppendLine(" </dd>")
Line 679: TourExStr.AppendLine(" </dl>")
Line 680: TourExStr.AppendLine(" </div>")
Line 681: TourExStr.AppendLine(" </div>")
Line 682: TourExStr.AppendLine(" </div>")
Line 683: TourExStr.AppendLine("<script type=""text/javascript"" src=""/sys/js/jquery.js""></" & "script>")
Line 684: TourExStr.AppendLine("<script type=""text/javascript"" src=""/js/common.js""></" & "script>")
Line 685: TourExStr.AppendLine("<script type=""text/javascript"" src=""/js/scrollshow.js""></" & "script>")
Line 686: TourExStr.AppendLine("<script type=""text/javascript"">")
Line 687: TourExStr.AppendLine("$('.userTips span a').click(function () {")
Line 688: TourExStr.AppendLine(" $(this).parent().parent().fadeOut('slow');")
Line 689: TourExStr.AppendLine(" });")
Line 690: TourExStr.AppendLine("$('.userNavText').hide();")
Line 691: TourExStr.AppendLine("$('.more').addClass('mores').addClass(""curUNav"");")
Line 692: TourExStr.AppendLine("$('#edit').parent().parent().show();")
Line 693: TourExStr.AppendLine("$('#edit').parent().parent().prev('.userNavTit1').find('.more').removeClass('mores');")
Line 694: TourExStr.AppendLine("</" & "script>")
Line 695: TourExStr.AppendLine("</body>")
Line 696: TourExStr.Append("</html>")
Line 697: Response.Write(writecache(FormatUrl(TourExStr.ToString)))
Line 698: TourExStr = NoThing
Line 699: End Sub
Line 700:
Line 701: #End ExternalSource
Line 702:
Line 703:
Line 704: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 705: Public Sub New()
Line 706: MyBase.New
Line 707: Dim dependencies() As String
Line 708: CType(Me,Global.TourEx.Pages.UserPage).AppRelativeVirtualPath = "~/usercenter/default.aspx"
Line 709: If (Global.ASP.usercenter_default_aspx.__initialized = false) Then
Line 710: dependencies = New String(0) {}
Line 711: dependencies(0) = "~/usercenter/default.aspx"
Line 712: Global.ASP.usercenter_default_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 713: Global.ASP.usercenter_default_aspx.__initialized = true
Line 714: End If
Line 715: Me.Server.ScriptTimeout = 30000000
Line 716: End Sub
Line 717:
Line 718: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 719: Get
Line 720: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 721: End Get
Line 722: End Property
Line 723:
Line 724: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 725: Get
Line 726: Return false
Line 727: End Get
Line 728: End Property
Line 729:
Line 730: Protected ReadOnly Property ApplicationInstance() As ASP._global_asax
Line 731: Get
Line 732: Return CType(Me.Context.ApplicationInstance,ASP._global_asax)
Line 733: End Get
Line 734: End Property
Line 735:
Line 736: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 737: Private Sub __BuildControlTree(ByVal __ctrl As usercenter_default_aspx)
Line 738:
Line 739: #ExternalSource("D:\web\aoyou\usercenter\default.aspx",1)
Line 740: __ctrl.EnableViewState = false
Line 741:
Line 742: #End ExternalSource
Line 743:
Line 744: #ExternalSource("D:\web\aoyou\usercenter\default.aspx",1)
Line 745: Me.InitializeCulture
Line 746:
Line 747: #End ExternalSource
Line 748: End Sub
Line 749:
Line 750: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 751: Protected Overrides Sub FrameworkInitialize()
Line 752: MyBase.FrameworkInitialize
Line 753: Me.__BuildControlTree(Me)
Line 754: Me.AddWrappedFileDependencies(Global.ASP.usercenter_default_aspx.__fileDependencies)
Line 755: End Sub
Line 756:
Line 757: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 758: Public Overrides Function GetTypeHashCode() As Integer
Line 759: Return 5381
Line 760: End Function
Line 761:
Line 762: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 763: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 764: MyBase.ProcessRequest(context)
Line 765: End Sub
Line 766: End Class
Line 767: End Namespace
Line 768:
|