行 1: #ExternalChecksum("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","FE36E4473FC49C86DE3EB5CC63948D6A")
行 2: '------------------------------------------------------------------------------
行 3: ' <auto-generated>
行 4: ' 這段程式碼是由工具產生的。
行 5: ' 執行階段版本:2.0.50727.8806
行 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.Specialized
行 19: Imports System.Configuration
行 20: Imports System.Text
行 21: Imports System.Text.RegularExpressions
行 22: Imports System.Web
行 23: Imports System.Web.Caching
行 24: Imports System.Web.Profile
行 25: Imports System.Web.Security
行 26: Imports System.Web.SessionState
行 27: Imports System.Web.UI
行 28: Imports System.Web.UI.HtmlControls
行 29: Imports System.Web.UI.WebControls
行 30: Imports System.Web.UI.WebControls.WebParts
行 31:
行 32: Namespace ASP
行 33:
行 34: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
行 35: Public Class goodnews_stage_sj0_aspx
行 36: Inherits Global.System.Web.UI.Page
行 37: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
行 38:
行 39:
行 40: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",97)
行 41: Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
行 42:
行 43: #End ExternalSource
行 44:
行 45: Private Shared __initialized As Boolean
行 46:
行 47: Private Shared __stringResource As Object
行 48:
行 49: Private Shared __fileDependencies As Object
行 50:
行 51: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 52: Public Sub New()
行 53: MyBase.New
行 54: Dim dependencies() As String
行 55: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/GoodNews/Stage/Sj0.aspx"
行 56: If (Global.ASP.goodnews_stage_sj0_aspx.__initialized = false) Then
行 57: Global.ASP.goodnews_stage_sj0_aspx.__stringResource = Me.ReadStringResource
行 58: dependencies = New String(0) {}
行 59: dependencies(0) = "~/GoodNews/Stage/Sj0.aspx"
行 60: Global.ASP.goodnews_stage_sj0_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
行 61: Global.ASP.goodnews_stage_sj0_aspx.__initialized = true
行 62: End If
行 63: Me.Server.ScriptTimeout = 30000000
行 64: End Sub
行 65:
行 66: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
行 67: Get
行 68: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
行 69: End Get
行 70: End Property
行 71:
行 72: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
行 73: Get
行 74: Return false
行 75: End Get
行 76: End Property
行 77:
行 78: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
行 79: Get
行 80: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
行 81: End Get
行 82: End Property
行 83:
行 84: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 85: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlMeta
行 86: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
行 87:
行 88: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",5)
行 89: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
行 90:
行 91: #End ExternalSource
行 92:
行 93: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",5)
行 94: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "X-UA-Compatible")
行 95:
行 96: #End ExternalSource
行 97:
行 98: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",5)
行 99: __ctrl.Content = "IE=edge"
行 100:
行 101: #End ExternalSource
行 102: Return __ctrl
行 103: End Function
行 104:
行 105: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 106: Private Function __BuildControl__control4() As Global.System.Web.UI.HtmlControls.HtmlMeta
行 107: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
行 108:
行 109: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",6)
行 110: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
行 111:
行 112: #End ExternalSource
行 113:
行 114: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",6)
行 115: __ctrl.Name = "viewport"
行 116:
行 117: #End ExternalSource
行 118:
行 119: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",6)
行 120: __ctrl.Content = "width=device-width, initial-scale=1"
行 121:
行 122: #End ExternalSource
行 123: Return __ctrl
行 124: End Function
行 125:
行 126: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 127: Private Function __BuildControl__control5() As Global.System.Web.UI.HtmlControls.HtmlMeta
行 128: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
行 129:
行 130: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",7)
行 131: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
行 132:
行 133: #End ExternalSource
行 134:
行 135: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",7)
行 136: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "Content-Type")
行 137:
行 138: #End ExternalSource
行 139:
行 140: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",7)
行 141: __ctrl.Content = "text/html; charset=utf-8"
行 142:
行 143: #End ExternalSource
行 144: Return __ctrl
行 145: End Function
行 146:
行 147: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 148: Private Function __BuildControl__control6() As Global.System.Web.UI.HtmlControls.HtmlTitle
行 149: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
行 150:
行 151: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",8)
行 152: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle
行 153:
行 154: #End ExternalSource
行 155: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
行 156:
行 157: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",8)
行 158: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("金展旅行社"))
行 159:
行 160: #End ExternalSource
行 161: Return __ctrl
行 162: End Function
行 163:
行 164: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 165: Private Function __BuildControl__control7() As Global.System.Web.UI.HtmlControls.HtmlLink
行 166: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlLink
行 167:
行 168: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",10)
行 169: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlLink
行 170:
行 171: #End ExternalSource
行 172:
行 173: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",10)
行 174: __ctrl.Href = "../../Common/js/bootstrap-3.3.6/css/bootstrap.min.css"
行 175:
行 176: #End ExternalSource
行 177:
行 178: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",10)
行 179: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("rel", "stylesheet")
行 180:
行 181: #End ExternalSource
行 182:
行 183: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",10)
行 184: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "text/css")
行 185:
行 186: #End ExternalSource
行 187: Return __ctrl
行 188: End Function
行 189:
行 190: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 191: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
行 192: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
行 193:
行 194: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 195: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
行 196:
行 197: #End ExternalSource
行 198: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlMeta
行 199:
行 200: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 201: __ctrl1 = Me.__BuildControl__control3
行 202:
行 203: #End ExternalSource
行 204: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
行 205:
行 206: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 207: __parser.AddParsedSubObject(__ctrl1)
行 208:
行 209: #End ExternalSource
行 210: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlMeta
行 211:
行 212: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 213: __ctrl2 = Me.__BuildControl__control4
行 214:
行 215: #End ExternalSource
行 216:
行 217: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 218: __parser.AddParsedSubObject(__ctrl2)
行 219:
行 220: #End ExternalSource
行 221: Dim __ctrl3 As Global.System.Web.UI.HtmlControls.HtmlMeta
行 222:
行 223: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 224: __ctrl3 = Me.__BuildControl__control5
行 225:
行 226: #End ExternalSource
行 227:
行 228: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 229: __parser.AddParsedSubObject(__ctrl3)
行 230:
行 231: #End ExternalSource
行 232: Dim __ctrl4 As Global.System.Web.UI.HtmlControls.HtmlTitle
行 233:
行 234: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 235: __ctrl4 = Me.__BuildControl__control6
行 236:
行 237: #End ExternalSource
行 238:
行 239: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 240: __parser.AddParsedSubObject(__ctrl4)
行 241:
行 242: #End ExternalSource
行 243: Dim __ctrl5 As Global.System.Web.UI.HtmlControls.HtmlLink
行 244:
行 245: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 246: __ctrl5 = Me.__BuildControl__control7
行 247:
行 248: #End ExternalSource
行 249:
行 250: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 251: __parser.AddParsedSubObject(__ctrl5)
行 252:
行 253: #End ExternalSource
行 254:
行 255: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",4)
行 256: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 2681, false))
行 257:
行 258: #End ExternalSource
行 259: Return __ctrl
行 260: End Function
行 261:
行 262: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 263: Private Function __BuildControlform1() As Global.System.Web.UI.HtmlControls.HtmlForm
行 264: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
行 265:
行 266: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",97)
行 267: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
行 268:
行 269: #End ExternalSource
行 270: Me.form1 = __ctrl
行 271:
行 272: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",97)
行 273: __ctrl.ID = "form1"
行 274:
行 275: #End ExternalSource
行 276:
行 277: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",97)
行 278: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("onSubmit", "return false")
行 279:
行 280: #End ExternalSource
行 281: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Renderform1)
行 282: Return __ctrl
行 283: End Function
行 284:
行 285: Private Sub __Renderform1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
行 286: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 287:
行 288: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",98)
行 289: Dim dv As New Data.DataView
行 290:
行 291: Dim title_num As Integer = 3
行 292: Dim title_img() As String = {"4inone_a", "4inone_b", "4inone_c", "4inone_e"}
行 293: Dim goToURL(title_num) As String
行 294: Dim content_img As String = ""
行 295: Dim content_link As String = ""
行 296: Dim more_link As String = ""
行 297:
行 298: Dim IsCommonDb As Boolean = True
行 299: Dim ClassName As String = "" '若IsCommonDb=True的要設定類別名稱
行 300: Select Case Request.QueryString("id")
行 301: Case "5"
行 302: ClassName = "最夯好康"
行 303: content_img = "images/box_p5.jpg"
行 304: more_link = "SAll.aspx?seq=0"
行 305: goToURL(0) = more_link
行 306: Case "1"
行 307: IsCommonDb = False
行 308: content_img = "images/box_p1.jpg"
行 309: content_link = "http://www.studytravel.com.tw/GoodNewsStage/Stage/"
行 310: more_link = "SAll.aspx?seq=1"
行 311: goToURL(1) = more_link
行 312:
行 313: '=====跨網域去找資料
行 314: Dim wc As New System.Net.WebClient()
行 315: wc.Encoding = System.Text.Encoding.GetEncoding("UTF-8") '避免中文亂碼
行 316: <!--Dim xmldoc As String = wc.DownloadString("http://www.studytravel.com.tw/CrossAjax/GetGoodNews.aspx?Source=Stage&class=" & Server.UrlEncode("遊留學促銷"))-->
行 317: Dim xmldom As New System.Xml.XmlDocument()
行 318: xmldom.LoadXml(xmldoc)
行 319:
行 320: Dim ds0 As New Data.DataSet
行 321: ds0.ReadXml(New System.Xml.XmlNodeReader(xmldom))
行 322: dv = ds0.Tables(0).DefaultView
行 323: Case "2"
行 324: ClassName = "優惠機票"
行 325: content_img = "images/box_p2.jpg"
行 326: more_link = "SAll.aspx?seq=2"
行 327: goToURL(2) = more_link
行 328: Case "3"
行 329: ClassName = "團體優惠"
行 330: content_img = "images/box_p4.gif?001"
行 331: more_link = "SAll.aspx?seq=3"
行 332: goToURL(3) = more_link
行 333: End Select
行 334:
行 335: If IsCommonDb Then
行 336: Dim ds As New System.Web.UI.WebControls.AccessDataSource 'For Ms Access
行 337: ds.DataFile = Web.Configuration.WebConfigurationManager.AppSettings.Item("OleConn") 'For Ms Access
行 338:
行 339: Dim sql As String
行 340: Dim DateS As Date = Today()
行 341: sql = "select * from Console where 類別 = '" & ClassName & "' and 上檔日期 <= #" & Today() & "# and 下檔日期 >= #" & Today() & "# order by 更新日期 desc"
行 342:
行 343: ds.SelectCommand = sql
行 344: dv = ds.Select(New DataSourceSelectArguments)
行 345: End If
行 346:
行 347:
行 348: #End ExternalSource
行 349: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""row title"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 350:
行 351: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",158)
行 352:
行 353: For i As Integer = 0 To title_num
行 354: Dim num As Integer = i
行 355: If num = 0 Then num = 5
行 356:
行 357: Dim NowMark As String = ""
行 358: If num = Request.QueryString("id") Then NowMark = "01"
行 359:
行 360: If goToURL(i) <> "" Then
行 361:
行 362: #End ExternalSource
行 363: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!--<a href=""sj0.aspx?id=")
行 364:
行 365: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",168)
行 366: __w.Write(num )
行 367:
行 368:
行 369: #End ExternalSource
行 370: __w.Write(""" onClick=""MM_goToURL('parent','")
行 371:
行 372: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",168)
行 373: __w.Write(goToURL(i) )
行 374:
行 375:
行 376: #End ExternalSource
行 377: __w.Write("');return document.MM_returnValue"">-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""sj0.aspx?id=")
行 378:
行 379: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",169)
行 380: __w.Write(num )
行 381:
行 382:
行 383: #End ExternalSource
行 384: __w.Write(""" onClick=""MM_goToURL('parent','")
行 385:
行 386: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",169)
行 387: __w.Write(goToURL(i) )
行 388:
行 389:
行 390: #End ExternalSource
行 391: __w.Write("');return document.MM_returnValue"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/")
行 392:
行 393: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",170)
行 394: __w.Write(title_img(i) )
行 395:
行 396:
行 397: #End ExternalSource
行 398:
行 399: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",170)
行 400: __w.Write(NowMark )
行 401:
行 402:
行 403: #End ExternalSource
行 404: __w.Write(".gif"" /></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 405:
行 406: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",172)
行 407: Else
行 408:
行 409: #End ExternalSource
行 410: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""sj0.aspx?id=")
行 411:
行 412: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",174)
行 413: __w.Write(num )
行 414:
行 415:
行 416: #End ExternalSource
行 417: __w.Write(""" onMouseOver=""self.location='sj0.aspx?id=")
行 418:
行 419: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",174)
行 420: __w.Write(num )
行 421:
行 422:
行 423: #End ExternalSource
行 424: __w.Write("'"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/")
行 425:
行 426: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",175)
行 427: __w.Write(title_img(i) )
行 428:
行 429:
行 430: #End ExternalSource
行 431:
行 432: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",175)
行 433: __w.Write(NowMark )
行 434:
行 435:
行 436: #End ExternalSource
行 437: __w.Write(".gif"" /></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 438:
行 439: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",177)
行 440:
行 441: End If
行 442: Next
行 443:
行 444:
行 445: #End ExternalSource
行 446: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""row content"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""con"& _
行 447: "tent-image"" style=""float:left; width:133px; "">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""")
行 448:
行 449: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",185)
行 450: __w.Write(content_img )
行 451:
行 452:
行 453: #End ExternalSource
行 454: __w.Write(""" width=""133"" height=""110"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""float:le"& _
行 455: "ft; margin-left:10px;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 456:
行 457: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",188)
行 458:
行 459: Dim r As Integer = 0, s As Integer = 0
行 460: While r <= dv.Count - 1 And s < 5
行 461:
行 462:
行 463: #End ExternalSource
行 464: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""news"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/20000."& _
行 465: "gif"" width=""10"" height=""10"" border=""0""></span> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""")
行 466:
行 467: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",194)
行 468: __w.Write(content_link )
行 469:
行 470:
行 471: #End ExternalSource
行 472: __w.Write("SDetail.aspx?id=")
行 473:
行 474: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",194)
行 475: __w.Write(dv.Item(r).Item("識別碼") )
行 476:
行 477:
行 478: #End ExternalSource
行 479: __w.Write(""" target=""_blank"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span style=""font-size:12px"">")
行 480:
行 481: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",195)
行 482: __w.Write(dv.Item(r).Item("標題").ToString() )
行 483:
行 484:
行 485: #End ExternalSource
行 486: __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 487:
行 488: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",198)
行 489:
行 490: s = s + 1
行 491: r = r + 1
行 492: End While
行 493:
行 494:
行 495: #End ExternalSource
行 496: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""clear:both;""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <di"& _
行 497: "v align=""right"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""")
行 498:
行 499: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",207)
行 500: __w.Write(more_link )
行 501:
行 502:
行 503: #End ExternalSource
行 504: __w.Write(""" target=""_blank"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/more.gif"" width=""45"" hei"& _
行 505: "ght=""10"" border=""0""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
行 506: End Sub
行 507:
行 508: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 509: Private Sub __BuildControlTree(ByVal __ctrl As goodnews_stage_sj0_aspx)
行 510:
行 511: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 512: __ctrl.CodePage = 65001
行 513:
行 514: #End ExternalSource
行 515:
行 516: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 517: Me.InitializeCulture
行 518:
行 519: #End ExternalSource
行 520: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
行 521:
行 522: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 523: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/1999/xhtml"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
行 524:
行 525: #End ExternalSource
行 526: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlHead
行 527:
行 528: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 529: __ctrl1 = Me.__BuildControl__control2
行 530:
行 531: #End ExternalSource
行 532:
行 533: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 534: __parser.AddParsedSubObject(__ctrl1)
行 535:
行 536: #End ExternalSource
行 537:
行 538: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 539: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body onLoad=""MM_preloadImages('images/4inone_a01.gif','images/4inone_b01.gif',"& _
行 540: "'images/4inone_c01.gif','images/4inone_d01.gif','images/4inone_e01.gif')"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
行 541: ""))
行 542:
行 543: #End ExternalSource
行 544: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlForm
行 545:
行 546: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 547: __ctrl2 = Me.__BuildControlform1
行 548:
行 549: #End ExternalSource
行 550:
行 551: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 552: __parser.AddParsedSubObject(__ctrl2)
行 553:
行 554: #End ExternalSource
行 555:
行 556: #ExternalSource("D:\webroot\travelonline.com.tw\GoodNews\Stage\Sj0.aspx",1)
行 557: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
行 558:
行 559: #End ExternalSource
行 560: End Sub
行 561:
行 562: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 563: Protected Overrides Sub FrameworkInitialize()
行 564: MyBase.FrameworkInitialize
行 565: Me.SetStringResourcePointer(Global.ASP.goodnews_stage_sj0_aspx.__stringResource, 0)
行 566: Me.__BuildControlTree(Me)
行 567: Me.AddWrappedFileDependencies(Global.ASP.goodnews_stage_sj0_aspx.__fileDependencies)
行 568: Me.Request.ValidateInput
行 569: End Sub
行 570:
行 571: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 572: Public Overrides Function GetTypeHashCode() As Integer
行 573: Return 1600731036
行 574: End Function
行 575:
行 576: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
行 577: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
行 578: MyBase.ProcessRequest(context)
行 579: End Sub
行 580: End Class
行 581: End Namespace
行 582:
|