Line 1: #ExternalChecksum("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","FCF9A9CCB65CD1B2024C6CFCA6507338466154A7")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
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 ASP
Line 16: Imports Microsoft.VisualBasic
Line 17: Imports System
Line 18: Imports System.Collections
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.Configuration
Line 21: Imports System.Data
Line 22: Imports System.IO
Line 23: Imports System.Linq
Line 24: Imports System.Text
Line 25: Imports System.Text.RegularExpressions
Line 26: Imports System.Web
Line 27: Imports System.Web.Caching
Line 28: Imports System.Web.DynamicData
Line 29: Imports System.Web.Profile
Line 30: Imports System.Web.Security
Line 31: Imports System.Web.SessionState
Line 32: Imports System.Web.UI
Line 33: Imports System.Web.UI.HtmlControls
Line 34: Imports System.Web.UI.WebControls
Line 35: Imports System.Web.UI.WebControls.Expressions
Line 36: Imports System.Web.UI.WebControls.WebParts
Line 37: Imports System.Xml
Line 38: Imports System.Xml.Linq
Line 39: Imports System.Xml.XPath
Line 40:
Line 41: Namespace ASP
Line 42:
Line 43: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 44: Public Class rd_nn_aspx
Line 45: Inherits Global.System.Web.UI.Page
Line 46: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 47:
Line 48:
Line 49: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",67)
Line 50: Protected WithEvents frame1 As Global.System.Web.UI.HtmlControls.HtmlIframe
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 56: Protected WithEvents hlfullscreen As Global.System.Web.UI.WebControls.HyperLink
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60:
Line 61: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",76)
Line 62: Protected WithEvents lblsubdir As Global.System.Web.UI.WebControls.Label
Line 63:
Line 64: #End ExternalSource
Line 65:
Line 66:
Line 67: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 68: Protected WithEvents btnUpDir As Global.System.Web.UI.WebControls.Button
Line 69:
Line 70: #End ExternalSource
Line 71:
Line 72:
Line 73: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 74: Protected WithEvents lbDir As Global.System.Web.UI.WebControls.ListBox
Line 75:
Line 76: #End ExternalSource
Line 77:
Line 78:
Line 79: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",86)
Line 80: Protected WithEvents lblstatus As Global.System.Web.UI.WebControls.Label
Line 81:
Line 82: #End ExternalSource
Line 83:
Line 84:
Line 85: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 86: Protected WithEvents lbFile As Global.System.Web.UI.WebControls.ListBox
Line 87:
Line 88: #End ExternalSource
Line 89:
Line 90:
Line 91: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 92: Protected WithEvents UpdatePanel1 As Global.System.Web.UI.UpdatePanel
Line 93:
Line 94: #End ExternalSource
Line 95:
Line 96: Private Shared __initialized As Boolean
Line 97:
Line 98: Private Shared __stringResource As Object
Line 99:
Line 100: Private Shared __fileDependencies As Object
Line 101:
Line 102:
Line 103: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",5)
Line 104:
Line 105: 'updated on use this to read alls folders under data, and all files
Line 106: 'make it generic, does not rely on any other files
Line 107: ' Does need rd.master, rd.css
Line 108: ' Also need rd.vb
Line 109: 'Place this one level above data to read data
Line 110:
Line 111: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Line 112:
Line 113: If Not Page.IsPostBack Then
Line 114: rd.ApplicationPath = String.Format("http://{0}{1}", Request.ServerVariables("HTTP_HOST"), Request.ApplicationPath)
Line 115: rd.StartDir = Server.MapPath(".\nn\")
Line 116: rd.CurrentDir = rd.StartDir
Line 117: rd.SubDir = "Main\"
Line 118: Page.Header.Title = String.Format("{0}", "Read")
Line 119: rd.folderchange("", lbDir, lbFile)
Line 120: rd.SelectedFullfn = Path.Combine(Request.PhysicalApplicationPath, "disclaimer.htm")
Line 121: Updateframe1()
Line 122:
Line 123: End If
Line 124: End Sub
Line 125:
Line 126:
Line 127: '===== up one dir ======================== max down 2 levels ========
Line 128: Protected Sub btnUpDir_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Line 129: rd.folderchange("up", lbDir, lbFile)
Line 130: Updateframe1()
Line 131: End Sub
Line 132: '============== down 1 directory =====================
Line 133: Protected Sub lbDir_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Line 134: rd.folderchange(lbDir.SelectedValue, lbDir, lbFile)
Line 135: Updateframe1()
Line 136: End Sub
Line 137:
Line 138: '=========== selected a new fn ==========================================
Line 139: Protected Sub lbFile_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Line 140: rd.SelectedFullfn = Path.Combine(rd.CurrentDir, lbFile.SelectedValue.ToString)
Line 141: rd.showfile(frame1)
Line 142: hlfullscreen.NavigateUrl = frame1.Attributes("src")
Line 143: lblstatus.Text = "Selected file shown."
Line 144: End Sub
Line 145:
Line 146: Sub Updateframe1()
Line 147: lblsubdir.Text = rd.SubDir
Line 148: If lblsubdir.Text = "Main" Then
Line 149: btnUpDir.Visible = False
Line 150: Else
Line 151: btnUpDir.Visible = True
Line 152: End If
Line 153: rd.showfile(frame1)
Line 154: lblstatus.Text = "Please click to select"
Line 155: End Sub
Line 156:
Line 157:
Line 158:
Line 159:
Line 160: #End ExternalSource
Line 161:
Line 162:
Line 163: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 164: Public Sub New()
Line 165: MyBase.New
Line 166: Dim dependencies() As String
Line 167: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/rd_nn.aspx"
Line 168: If (Global.ASP.rd_nn_aspx.__initialized = false) Then
Line 169: Global.ASP.rd_nn_aspx.__stringResource = Me.ReadStringResource
Line 170: dependencies = New String(1) {}
Line 171: dependencies(0) = "~/rd_nn.aspx"
Line 172: dependencies(1) = "~/rd.master"
Line 173: Global.ASP.rd_nn_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 174: Global.ASP.rd_nn_aspx.__initialized = true
Line 175: End If
Line 176: Me.Server.ScriptTimeout = 30000000
Line 177: End Sub
Line 178:
Line 179: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 180: Get
Line 181: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 182: End Get
Line 183: End Property
Line 184:
Line 185: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 186: Get
Line 187: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 188: End Get
Line 189: End Property
Line 190:
Line 191: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 192: Private Function __BuildControlframe1() As Global.System.Web.UI.HtmlControls.HtmlIframe
Line 193: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlIframe
Line 194:
Line 195: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",67)
Line 196: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlIframe()
Line 197:
Line 198: #End ExternalSource
Line 199: Me.frame1 = __ctrl
Line 200: __ctrl.TemplateControl = Me
Line 201:
Line 202: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",67)
Line 203: __ctrl.ID = "frame1"
Line 204:
Line 205: #End ExternalSource
Line 206:
Line 207: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",67)
Line 208: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("name", "frame1")
Line 209:
Line 210: #End ExternalSource
Line 211:
Line 212: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",67)
Line 213: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("frameborder", "0")
Line 214:
Line 215: #End ExternalSource
Line 216: Return __ctrl
Line 217: End Function
Line 218:
Line 219: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 220: Private Function __BuildControlhlfullscreen() As Global.System.Web.UI.WebControls.HyperLink
Line 221: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 222:
Line 223: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 224: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 225:
Line 226: #End ExternalSource
Line 227: Me.hlfullscreen = __ctrl
Line 228: __ctrl.TemplateControl = Me
Line 229: __ctrl.ApplyStyleSheetSkin(Me)
Line 230:
Line 231: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 232: __ctrl.ID = "hlfullscreen"
Line 233:
Line 234: #End ExternalSource
Line 235:
Line 236: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 237: __ctrl.Target = "_blank"
Line 238:
Line 239: #End ExternalSource
Line 240:
Line 241: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 242: __ctrl.CssClass = "greenbutton"
Line 243:
Line 244: #End ExternalSource
Line 245: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 246:
Line 247: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",72)
Line 248: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" View Full screen"))
Line 249:
Line 250: #End ExternalSource
Line 251: Return __ctrl
Line 252: End Function
Line 253:
Line 254: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 255: Private Function __BuildControllblsubdir() As Global.System.Web.UI.WebControls.Label
Line 256: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 257:
Line 258: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",76)
Line 259: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 260:
Line 261: #End ExternalSource
Line 262: Me.lblsubdir = __ctrl
Line 263: __ctrl.TemplateControl = Me
Line 264: __ctrl.ApplyStyleSheetSkin(Me)
Line 265:
Line 266: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",76)
Line 267: __ctrl.ID = "lblsubdir"
Line 268:
Line 269: #End ExternalSource
Line 270:
Line 271: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",76)
Line 272: __ctrl.Text = "lblsubdir"
Line 273:
Line 274: #End ExternalSource
Line 275: Return __ctrl
Line 276: End Function
Line 277:
Line 278: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 279: Private Function __BuildControlbtnUpDir() As Global.System.Web.UI.WebControls.Button
Line 280: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 281:
Line 282: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 283: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 284:
Line 285: #End ExternalSource
Line 286: Me.btnUpDir = __ctrl
Line 287: __ctrl.TemplateControl = Me
Line 288: __ctrl.ApplyStyleSheetSkin(Me)
Line 289:
Line 290: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 291: __ctrl.ID = "btnUpDir"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 296: __ctrl.Text = "Up 1 level"
Line 297:
Line 298: #End ExternalSource
Line 299:
Line 300: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 301: __ctrl.Visible = false
Line 302:
Line 303: #End ExternalSource
Line 304:
Line 305: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",77)
Line 306: AddHandler __ctrl.Click, AddressOf Me.btnUpDir_Click
Line 307:
Line 308: #End ExternalSource
Line 309: Return __ctrl
Line 310: End Function
Line 311:
Line 312: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 313: Private Function __BuildControllbDir() As Global.System.Web.UI.WebControls.ListBox
Line 314: Dim __ctrl As Global.System.Web.UI.WebControls.ListBox
Line 315:
Line 316: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 317: __ctrl = New Global.System.Web.UI.WebControls.ListBox()
Line 318:
Line 319: #End ExternalSource
Line 320: Me.lbDir = __ctrl
Line 321: __ctrl.TemplateControl = Me
Line 322: __ctrl.ApplyStyleSheetSkin(Me)
Line 323:
Line 324: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 325: __ctrl.ID = "lbDir"
Line 326:
Line 327: #End ExternalSource
Line 328:
Line 329: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 330: __ctrl.CssClass = "listboxdir"
Line 331:
Line 332: #End ExternalSource
Line 333:
Line 334: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 335: __ctrl.AutoPostBack = true
Line 336:
Line 337: #End ExternalSource
Line 338:
Line 339: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 340: __ctrl.Visible = false
Line 341:
Line 342: #End ExternalSource
Line 343:
Line 344: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",80)
Line 345: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.lbDir_SelectedIndexChanged
Line 346:
Line 347: #End ExternalSource
Line 348: Return __ctrl
Line 349: End Function
Line 350:
Line 351: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 352: Private Function __BuildControllblstatus() As Global.System.Web.UI.WebControls.Label
Line 353: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 354:
Line 355: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",86)
Line 356: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 357:
Line 358: #End ExternalSource
Line 359: Me.lblstatus = __ctrl
Line 360: __ctrl.TemplateControl = Me
Line 361: __ctrl.ApplyStyleSheetSkin(Me)
Line 362:
Line 363: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",86)
Line 364: __ctrl.ID = "lblstatus"
Line 365:
Line 366: #End ExternalSource
Line 367:
Line 368: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",86)
Line 369: __ctrl.Font.Size = Global.System.Web.UI.WebControls.FontUnit.Medium
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",86)
Line 374: __ctrl.ForeColor = Global.System.Drawing.Color.Red
Line 375:
Line 376: #End ExternalSource
Line 377: Return __ctrl
Line 378: End Function
Line 379:
Line 380: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 381: Private Function __BuildControllbFile() As Global.System.Web.UI.WebControls.ListBox
Line 382: Dim __ctrl As Global.System.Web.UI.WebControls.ListBox
Line 383:
Line 384: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 385: __ctrl = New Global.System.Web.UI.WebControls.ListBox()
Line 386:
Line 387: #End ExternalSource
Line 388: Me.lbFile = __ctrl
Line 389: __ctrl.TemplateControl = Me
Line 390: __ctrl.ApplyStyleSheetSkin(Me)
Line 391:
Line 392: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 393: __ctrl.ID = "lbFile"
Line 394:
Line 395: #End ExternalSource
Line 396:
Line 397: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 398: __ctrl.CssClass = "listboxfile"
Line 399:
Line 400: #End ExternalSource
Line 401:
Line 402: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 403: __ctrl.AutoPostBack = true
Line 404:
Line 405: #End ExternalSource
Line 406:
Line 407: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",87)
Line 408: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.lbFile_SelectedIndexChanged
Line 409:
Line 410: #End ExternalSource
Line 411: Return __ctrl
Line 412: End Function
Line 413:
Line 414: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 415: Private Sub __BuildControl__control2(ByVal __ctrl As System.Web.UI.Control)
Line 416: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 417:
Line 418: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 419: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td width=""800px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 420:
Line 421: #End ExternalSource
Line 422: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlIframe
Line 423:
Line 424: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 425: __ctrl1 = Me.__BuildControlframe1
Line 426:
Line 427: #End ExternalSource
Line 428:
Line 429: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 430: __parser.AddParsedSubObject(__ctrl1)
Line 431:
Line 432: #End ExternalSource
Line 433:
Line 434: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 435: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td width=""250px"" valign=""top"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 436:
Line 437: #End ExternalSource
Line 438: Dim __ctrl2 As Global.System.Web.UI.WebControls.HyperLink
Line 439:
Line 440: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 441: __ctrl2 = Me.__BuildControlhlfullscreen
Line 442:
Line 443: #End ExternalSource
Line 444:
Line 445: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 446: __parser.AddParsedSubObject(__ctrl2)
Line 447:
Line 448: #End ExternalSource
Line 449:
Line 450: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 451: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Folder: "))
Line 452:
Line 453: #End ExternalSource
Line 454: Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
Line 455:
Line 456: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 457: __ctrl3 = Me.__BuildControllblsubdir
Line 458:
Line 459: #End ExternalSource
Line 460:
Line 461: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 462: __parser.AddParsedSubObject(__ctrl3)
Line 463:
Line 464: #End ExternalSource
Line 465:
Line 466: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 467: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 468:
Line 469: #End ExternalSource
Line 470: Dim __ctrl4 As Global.System.Web.UI.WebControls.Button
Line 471:
Line 472: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 473: __ctrl4 = Me.__BuildControlbtnUpDir
Line 474:
Line 475: #End ExternalSource
Line 476:
Line 477: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 478: __parser.AddParsedSubObject(__ctrl4)
Line 479:
Line 480: #End ExternalSource
Line 481:
Line 482: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 483: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 484:
Line 485: #End ExternalSource
Line 486: Dim __ctrl5 As Global.System.Web.UI.WebControls.ListBox
Line 487:
Line 488: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 489: __ctrl5 = Me.__BuildControllbDir
Line 490:
Line 491: #End ExternalSource
Line 492:
Line 493: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 494: __parser.AddParsedSubObject(__ctrl5)
Line 495:
Line 496: #End ExternalSource
Line 497:
Line 498: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 499: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 500:
Line 501: #End ExternalSource
Line 502: Dim __ctrl6 As Global.System.Web.UI.WebControls.Label
Line 503:
Line 504: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 505: __ctrl6 = Me.__BuildControllblstatus
Line 506:
Line 507: #End ExternalSource
Line 508:
Line 509: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 510: __parser.AddParsedSubObject(__ctrl6)
Line 511:
Line 512: #End ExternalSource
Line 513:
Line 514: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 515: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 516:
Line 517: #End ExternalSource
Line 518: Dim __ctrl7 As Global.System.Web.UI.WebControls.ListBox
Line 519:
Line 520: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 521: __ctrl7 = Me.__BuildControllbFile
Line 522:
Line 523: #End ExternalSource
Line 524:
Line 525: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 526: __parser.AddParsedSubObject(__ctrl7)
Line 527:
Line 528: #End ExternalSource
Line 529:
Line 530: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 531: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr> "))
Line 532:
Line 533: #End ExternalSource
Line 534: End Sub
Line 535:
Line 536: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 537: Private Function __BuildControlUpdatePanel1() As Global.System.Web.UI.UpdatePanel
Line 538: Dim __ctrl As Global.System.Web.UI.UpdatePanel
Line 539:
Line 540: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 541: __ctrl = New Global.System.Web.UI.UpdatePanel()
Line 542:
Line 543: #End ExternalSource
Line 544: Me.UpdatePanel1 = __ctrl
Line 545: __ctrl.TemplateControl = Me
Line 546:
Line 547: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 548: __ctrl.ContentTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control2)
Line 549:
Line 550: #End ExternalSource
Line 551:
Line 552: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 553: __ctrl.ID = "UpdatePanel1"
Line 554:
Line 555: #End ExternalSource
Line 556:
Line 557: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",63)
Line 558: __ctrl.UpdateMode = Global.System.Web.UI.UpdatePanelUpdateMode.Conditional
Line 559:
Line 560: #End ExternalSource
Line 561: Return __ctrl
Line 562: End Function
Line 563:
Line 564: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 565: Private Sub __BuildControlContent1(ByVal __ctrl As System.Web.UI.Control)
Line 566: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 567:
Line 568: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",61)
Line 569: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 570:
Line 571: #End ExternalSource
Line 572: Dim __ctrl1 As Global.System.Web.UI.UpdatePanel
Line 573:
Line 574: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",61)
Line 575: __ctrl1 = Me.__BuildControlUpdatePanel1
Line 576:
Line 577: #End ExternalSource
Line 578:
Line 579: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",61)
Line 580: __parser.AddParsedSubObject(__ctrl1)
Line 581:
Line 582: #End ExternalSource
Line 583:
Line 584: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",61)
Line 585: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 586:
Line 587: #End ExternalSource
Line 588: End Sub
Line 589:
Line 590: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 591: Private Sub __BuildControlTree(ByVal __ctrl As rd_nn_aspx)
Line 592:
Line 593: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",1)
Line 594: __ctrl.MasterPageFile = "~/rd.master"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",1)
Line 599: __ctrl.Title = "Read file"
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",1)
Line 604: Me.InitializeCulture
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",61)
Line 609: Me.AddContentTemplate("Main", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent1))
Line 610:
Line 611: #End ExternalSource
Line 612: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 613:
Line 614: #ExternalSource("G:\PleskVhosts\neuroland.com\httpdocs\rd_nn.aspx",1)
Line 615: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 616:
Line 617: #End ExternalSource
Line 618: End Sub
Line 619:
Line 620: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 621: Protected Overrides Sub FrameworkInitialize()
Line 622: MyBase.FrameworkInitialize
Line 623: Me.SetStringResourcePointer(Global.ASP.rd_nn_aspx.__stringResource, 0)
Line 624: Me.__BuildControlTree(Me)
Line 625: Me.AddWrappedFileDependencies(Global.ASP.rd_nn_aspx.__fileDependencies)
Line 626: Me.Request.ValidateInput
Line 627: End Sub
Line 628:
Line 629: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 630: Public Overrides Function GetTypeHashCode() As Integer
Line 631: Return 1519918696
Line 632: End Function
Line 633:
Line 634: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 635: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 636: MyBase.ProcessRequest(context)
Line 637: End Sub
Line 638: End Class
Line 639: End Namespace
Line 640:
|