Line 1: #ExternalChecksum("D:\hyperview\websites\adlib\adlib\document.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","128ADAE9DF7B6F3944C95C21E9BAF2C6FF2F86B0")
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 EBlock
Line 17: Imports Microsoft.VisualBasic
Line 18: Imports System
Line 19: Imports System.Collections
Line 20: Imports System.Collections.Generic
Line 21: Imports System.Collections.Specialized
Line 22: Imports System.ComponentModel.DataAnnotations
Line 23: Imports System.Configuration
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.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.Linq
Line 38:
Line 39: Namespace ASP
Line 40:
Line 41: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 42: Public Class adlib_document_aspx
Line 43: Inherits Global.EBlock.Page
Line 44: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 45:
Line 46:
Line 47: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",141)
Line 48: Protected WithEvents pageTitle As Global.System.Web.UI.WebControls.Literal
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",142)
Line 54: Protected WithEvents litCSS As Global.System.Web.UI.WebControls.Literal
Line 55:
Line 56: #End ExternalSource
Line 57:
Line 58:
Line 59: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",151)
Line 60: Protected WithEvents btnSection As Global.System.Web.UI.WebControls.HyperLink
Line 61:
Line 62: #End ExternalSource
Line 63:
Line 64:
Line 65: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",152)
Line 66: Protected WithEvents btnLibrary As Global.System.Web.UI.WebControls.HyperLink
Line 67:
Line 68: #End ExternalSource
Line 69:
Line 70:
Line 71: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 72: Protected WithEvents DocumentContents As Global.System.Web.UI.WebControls.Repeater
Line 73:
Line 74: #End ExternalSource
Line 75:
Line 76:
Line 77: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",208)
Line 78: Protected WithEvents UpInfo As Global.System.Web.UI.WebControls.Literal
Line 79:
Line 80: #End ExternalSource
Line 81:
Line 82: Private Shared __initialized As Boolean
Line 83:
Line 84: Private Shared __stringResource As Object
Line 85:
Line 86: Private Shared __fileDependencies As Object
Line 87:
Line 88:
Line 89: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",5)
Line 90:
Line 91:
Line 92: Dim documentAsset As Asset
Line 93: Dim documentAssetID As Integer, groupId As Integer, IsPublicUser As Boolean
Line 94: Dim UserName As String, Password As String
Line 95:
Line 96: Sub Page_Load(sender As Object, e As EventArgs)
Line 97:
Line 98: documentAssetID = Request.QueryString("doc")
Line 99:
Line 100: 'Session Variables for maintaining the library navigation
Line 101: If Request.QueryString("group") = "" Then
Line 102: groupId = Session("adlib_groupid")
Line 103: Else
Line 104: groupId = Request.QueryString("group")
Line 105: Session("adlib_groupid") = groupId
Line 106: End If
Line 107:
Line 108: if Request.Querystring("user") <> "" then _
Line 109: Session("I_UserID") = CInt(Request.Querystring("user"))
Line 110:
Line 111: if CInt(Session("I_UserID")) = 0 then IsPublicUser = True _
Line 112: else IsPublicUser = False
Line 113:
Line 114: 'AND Make sure the member is in the correct group and log in if using a public proxy....
Line 115: Try
Line 116: If Session("I_UserID") > 0 AND Credentials.CheckRightsForEntity(14403, RightType.Belong) then
Line 117: Credentials = New Eblock.Compatibility.Credentials
Line 118: DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountSource = "main"
Line 119: DirectCast(Credentials, EBlock.Compatibility.Credentials).Authenticate("main", Session("I_UserID"), True)
Line 120: End if
Line 121: if NOT hyperview.IsMember(DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountID, groupId) then _
Line 122: IsPublicUser = True
Line 123: Catch eX As Exception:
Line 124: 'Response.write(eX)
Line 125: IsPublicUser = True
Line 126: End Try
Line 127:
Line 128: '*****************************************************
Line 129: 'Get Correct Library Credentials from groupId if given
Line 130: '*****************************************************
Line 131: If Request.QueryString("group") <> "" Then
Line 132: Dim lb As AssetListBuilder = Core.NewAssetListBuilder, _
Line 133: l As AssetList, detailsAsset As Asset
Line 134: lb.PermissionMask.GrantRole(RoleType.Read)
Line 135: lb.ContainerGUID = "000IL3890W.18BHI42CZG6ZCE"
Line 136: lb.PrototypeGUID = "000IL3890W.185FHHKMM76CJ"
Line 137: lb.SearchField = AssetSearchField.Free1
Line 138: lb.ListType = AssetListType.DeepSearch 'Enumaration for DeepSearch
Line 139: lb.SearchTerm = Request.QueryString("group")
Line 140:
Line 141: If lb.Fill(l) > 0 Then
Line 142: detailsAsset = New Asset(l.Item(0), Credentials) 'user details are now public read
Line 143: Session("ADLIB_CSS") = detailsAsset.Fields("css").Value
Line 144:
Line 145: 'Authenticate credentials with session information
Line 146: if IsPublicUser then
Line 147: 'Credentials = New Credentials
Line 148: 'UserName = detailsAsset.Fields("publicusername").Value
Line 149: 'Password = detailsAsset.Fields("publicpassword").Value
Line 150: 'Credentials.Authenticate(UserName, Password)
Line 151: Session("ADLIB_CSS") = ""
Line 152: end if
Line 153:
Line 154:
Line 155: End If
Line 156: End If
Line 157:
Line 158: 'Kick people without permissions out of content
Line 159: '***************************************************************
Line 160: if NOT Credentials.CheckPermissionsForAsset(documentAssetID,RoleType.Read) then _
Line 161: Response.Redirect("/adlib/signup.asp?doc=" & documentAssetId & "&d=true")
Line 162:
Line 163: Dim pb As AssetListBuilder = New AssetListBuilder(Credentials)
Line 164: pb.PermissionMask.GrantRole(RoleType.Read)
Line 165: pb.ListType = AssetListType.AssetAliases
Line 166: pb.AssetID = documentAssetID
Line 167:
Line 168: Dim aliasList As AssetList, hasAlias As Boolean
Line 169: hasAlias = (pb.Fill(aliasList) > 0)
Line 170:
Line 171: if NOT hasAlias AND documentAssetID <> 10816 then
Line 172: Response.Redirect("/adlib/signup.asp?doc=" & documentAssetId & "&d=true")
Line 173: Response.End
Line 174: end if
Line 175: '***************************************************************
Line 176:
Line 177: if Request.QueryString("id") <> "" Then
Line 178: Response.Redirect("content.aspx?doc=" & documentAssetID & "&id=" & Request.QueryString("id"))
Line 179: Response.End
Line 180: End If
Line 181:
Line 182: documentAsset = Core.GetAsset(documentAssetID)
Line 183:
Line 184: Dim deliveryList As AssetList, deliveryBuilder As AssetListBuilder = Core.NewAssetListBuilder
Line 185: deliveryBuilder.ContainerID = documentAssetID
Line 186: deliveryBuilder.PrototypeGUID = "000IL3890W.16NTBVOB6TY08"
Line 187: deliveryBuilder.PermissionMask.GrantRole(RoleType.Read)
Line 188: deliveryBuilder.Status = AssetStatusMask.Active
Line 189: deliveryBuilder.Fill(deliveryList)
Line 190:
Line 191: DocumentContents.DataSource = deliveryList
Line 192: DocumentContents.DataBind
Line 193:
Line 194: ' Generate section link
Line 195: if Session("sectionId") <> "" then
Line 196: btnSection.NavigateURL = "browse.aspx?id=" & Session("sectionId")
Line 197: btnSection.Visible = True
Line 198: else
Line 199: btnSection.NavigateURL = "browse.asp"
Line 200: btnSection.Visible = False
Line 201: end if
Line 202:
Line 203: ' Generate library link
Line 204: if Session("adlib_groupid") > 0 then
Line 205: btnLibrary.NavigateURL = "browse.aspx?group=" & Session("adlib_groupid")
Line 206: btnLibrary.Visible = True
Line 207: else
Line 208: btnLibrary.NavigateURL = "browse.asp"
Line 209: btnLibrary.Visible = True
Line 210: end if
Line 211:
Line 212: if Session("ADLIB_CSS") = "" OR Session("I_UserID") = 0 then _
Line 213: Session("ADLIB_CSS") = "inc/standardx.css"
Line 214:
Line 215: litCSS.Text = "<link rel=""stylesheet"" href=" & Session("ADLIB_CSS") & " media=""screen,projection,tv"">"
Line 216:
Line 217: End Sub
Line 218:
Line 219:
Line 220:
Line 221: #End ExternalSource
Line 222:
Line 223:
Line 224: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 225: Public Sub New()
Line 226: MyBase.New
Line 227: Dim dependencies() As String
Line 228: CType(Me,Global.EBlock.Page).AppRelativeVirtualPath = "~/adlib/document.aspx"
Line 229: If (Global.ASP.adlib_document_aspx.__initialized = false) Then
Line 230: Global.ASP.adlib_document_aspx.__stringResource = Me.ReadStringResource
Line 231: dependencies = New String(1) {}
Line 232: dependencies(0) = "~/adlib/document.aspx"
Line 233: dependencies(1) = "~/adlib/inc/header.ascx"
Line 234: Global.ASP.adlib_document_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 235: Global.ASP.adlib_document_aspx.__initialized = true
Line 236: End If
Line 237: Me.Server.ScriptTimeout = 30000000
Line 238: End Sub
Line 239:
Line 240: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 241: Get
Line 242: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 243: End Get
Line 244: End Property
Line 245:
Line 246: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 247: Get
Line 248: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 249: End Get
Line 250: End Property
Line 251:
Line 252: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 253: Private Function __BuildControlpageTitle() As Global.System.Web.UI.WebControls.Literal
Line 254: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 255:
Line 256: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",141)
Line 257: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 258:
Line 259: #End ExternalSource
Line 260: Me.pageTitle = __ctrl
Line 261:
Line 262: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",141)
Line 263: __ctrl.ID = "pageTitle"
Line 264:
Line 265: #End ExternalSource
Line 266: Return __ctrl
Line 267: End Function
Line 268:
Line 269: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 270: Private Function __BuildControllitCSS() As Global.System.Web.UI.WebControls.Literal
Line 271: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 272:
Line 273: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",142)
Line 274: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 275:
Line 276: #End ExternalSource
Line 277: Me.litCSS = __ctrl
Line 278:
Line 279: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",142)
Line 280: __ctrl.ID = "litCSS"
Line 281:
Line 282: #End ExternalSource
Line 283: Return __ctrl
Line 284: End Function
Line 285:
Line 286: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 287: Private Function __BuildControl__control2() As Global.ASP.MemberReport
Line 288: Dim __ctrl As Global.ASP.MemberReport
Line 289:
Line 290: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",147)
Line 291: __ctrl = New Global.ASP.MemberReport()
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",147)
Line 296: __ctrl.InitializeAsUserControl(Me.Page)
Line 297:
Line 298: #End ExternalSource
Line 299:
Line 300: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",147)
Line 301: __ctrl.ActiveTab = Global.ASP.MemberReport.HeaderTab.Browse
Line 302:
Line 303: #End ExternalSource
Line 304: Return __ctrl
Line 305: End Function
Line 306:
Line 307: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 308: Private Function __BuildControlbtnSection() As Global.System.Web.UI.WebControls.HyperLink
Line 309: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 310:
Line 311: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",151)
Line 312: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 313:
Line 314: #End ExternalSource
Line 315: Me.btnSection = __ctrl
Line 316: __ctrl.ApplyStyleSheetSkin(Me)
Line 317:
Line 318: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",151)
Line 319: __ctrl.ID = "btnSection"
Line 320:
Line 321: #End ExternalSource
Line 322:
Line 323: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",151)
Line 324: __ctrl.Text = "Back to Library Section"
Line 325:
Line 326: #End ExternalSource
Line 327:
Line 328: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",151)
Line 329: __ctrl.Visible = false
Line 330:
Line 331: #End ExternalSource
Line 332: Return __ctrl
Line 333: End Function
Line 334:
Line 335: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 336: Private Function __BuildControlbtnLibrary() As Global.System.Web.UI.WebControls.HyperLink
Line 337: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 338:
Line 339: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",152)
Line 340: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 341:
Line 342: #End ExternalSource
Line 343: Me.btnLibrary = __ctrl
Line 344: __ctrl.ApplyStyleSheetSkin(Me)
Line 345:
Line 346: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",152)
Line 347: __ctrl.ID = "btnLibrary"
Line 348:
Line 349: #End ExternalSource
Line 350:
Line 351: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",152)
Line 352: __ctrl.Text = "Back to Library Contents"
Line 353:
Line 354: #End ExternalSource
Line 355:
Line 356: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",152)
Line 357: __ctrl.Visible = false
Line 358:
Line 359: #End ExternalSource
Line 360: Return __ctrl
Line 361: End Function
Line 362:
Line 363: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 364: Private Function __BuildControl__control4() As Global.System.Web.UI.DataBoundLiteralControl
Line 365: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 366:
Line 367: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 368: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(5, 4)
Line 369:
Line 370: #End ExternalSource
Line 371: __ctrl.TemplateControl = Me
Line 372: __ctrl.SetStaticString(0, "&id=")
Line 373: __ctrl.SetStaticString(1, """>")
Line 374: __ctrl.SetStaticString(2, "</a></b><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 375: __ctrl.SetStaticString(3, "<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Last updated: ")
Line 376: __ctrl.SetStaticString(4, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 377:
Line 378: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 379: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control4
Line 380:
Line 381: #End ExternalSource
Line 382: Return __ctrl
Line 383: End Function
Line 384:
Line 385: Public Sub __DataBind__control4(ByVal sender As Object, ByVal e As System.EventArgs)
Line 386: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 387: Dim target As System.Web.UI.DataBoundLiteralControl
Line 388:
Line 389: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 390: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 391:
Line 392: #End ExternalSource
Line 393:
Line 394: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 395: Container = CType(target.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 396:
Line 397: #End ExternalSource
Line 398:
Line 399: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 400: target.SetDataBoundString(0, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).AssetID, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 401:
Line 402: #End ExternalSource
Line 403:
Line 404: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 405: target.SetDataBoundString(1, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Name, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 406:
Line 407: #End ExternalSource
Line 408:
Line 409: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",168)
Line 410: target.SetDataBoundString(2, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Description, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 411:
Line 412: #End ExternalSource
Line 413:
Line 414: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",169)
Line 415: target.SetDataBoundString(3, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).ModifiedDate, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 416:
Line 417: #End ExternalSource
Line 418: End Sub
Line 419:
Line 420: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 421: Private Sub __BuildControl__control3(ByVal __ctrl As System.Web.UI.Control)
Line 422: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 423:
Line 424: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 425: __ctrl1 = Me.__BuildControl__control4
Line 426:
Line 427: #End ExternalSource
Line 428: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 429:
Line 430: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 431: __parser.AddParsedSubObject(__ctrl1)
Line 432:
Line 433: #End ExternalSource
Line 434: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control3)
Line 435: End Sub
Line 436:
Line 437: Private Sub __Render__control3(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 438: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""deliveryinfo"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b><a href=""content.aspx?doc=")
Line 439:
Line 440: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",167)
Line 441: __w.Write(documentAssetID )
Line 442:
Line 443:
Line 444: #End ExternalSource
Line 445: parameterContainer.Controls(0).RenderControl(__w)
Line 446: End Sub
Line 447:
Line 448: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 449: Private Function __BuildControlDocumentContents() As Global.System.Web.UI.WebControls.Repeater
Line 450: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 451:
Line 452: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 453: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 454:
Line 455: #End ExternalSource
Line 456: Me.DocumentContents = __ctrl
Line 457:
Line 458: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 459: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control3)
Line 460:
Line 461: #End ExternalSource
Line 462:
Line 463: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",164)
Line 464: __ctrl.ID = "DocumentContents"
Line 465:
Line 466: #End ExternalSource
Line 467: Return __ctrl
Line 468: End Function
Line 469:
Line 470: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 471: Private Function __BuildControlUpInfo() As Global.System.Web.UI.WebControls.Literal
Line 472: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 473:
Line 474: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",208)
Line 475: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 476:
Line 477: #End ExternalSource
Line 478: Me.UpInfo = __ctrl
Line 479:
Line 480: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",208)
Line 481: __ctrl.ID = "UpInfo"
Line 482:
Line 483: #End ExternalSource
Line 484: Return __ctrl
Line 485: End Function
Line 486:
Line 487: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 488: Private Sub __BuildControlTree(ByVal __ctrl As adlib_document_aspx)
Line 489:
Line 490: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 491: __ctrl.ContentType = "text/html"
Line 492:
Line 493: #End ExternalSource
Line 494:
Line 495: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 496: __ctrl.ResponseEncoding = "iso-8859-1"
Line 497:
Line 498: #End ExternalSource
Line 499:
Line 500: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 501: __ctrl.EnableEventValidation = false
Line 502:
Line 503: #End ExternalSource
Line 504:
Line 505: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 506: Me.InitializeCulture
Line 507:
Line 508: #End ExternalSource
Line 509: Dim __ctrl1 As Global.System.Web.UI.WebControls.Literal
Line 510:
Line 511: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 512: __ctrl1 = Me.__BuildControlpageTitle
Line 513:
Line 514: #End ExternalSource
Line 515: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 516:
Line 517: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 518: __parser.AddParsedSubObject(__ctrl1)
Line 519:
Line 520: #End ExternalSource
Line 521: Dim __ctrl2 As Global.System.Web.UI.WebControls.Literal
Line 522:
Line 523: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 524: __ctrl2 = Me.__BuildControllitCSS
Line 525:
Line 526: #End ExternalSource
Line 527:
Line 528: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 529: __parser.AddParsedSubObject(__ctrl2)
Line 530:
Line 531: #End ExternalSource
Line 532: Dim __ctrl3 As Global.ASP.MemberReport
Line 533:
Line 534: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 535: __ctrl3 = Me.__BuildControl__control2
Line 536:
Line 537: #End ExternalSource
Line 538:
Line 539: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 540: __parser.AddParsedSubObject(__ctrl3)
Line 541:
Line 542: #End ExternalSource
Line 543: Dim __ctrl4 As Global.System.Web.UI.WebControls.HyperLink
Line 544:
Line 545: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 546: __ctrl4 = Me.__BuildControlbtnSection
Line 547:
Line 548: #End ExternalSource
Line 549:
Line 550: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 551: __parser.AddParsedSubObject(__ctrl4)
Line 552:
Line 553: #End ExternalSource
Line 554: Dim __ctrl5 As Global.System.Web.UI.WebControls.HyperLink
Line 555:
Line 556: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 557: __ctrl5 = Me.__BuildControlbtnLibrary
Line 558:
Line 559: #End ExternalSource
Line 560:
Line 561: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 562: __parser.AddParsedSubObject(__ctrl5)
Line 563:
Line 564: #End ExternalSource
Line 565: Dim __ctrl6 As Global.System.Web.UI.WebControls.Repeater
Line 566:
Line 567: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 568: __ctrl6 = Me.__BuildControlDocumentContents
Line 569:
Line 570: #End ExternalSource
Line 571:
Line 572: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 573: __parser.AddParsedSubObject(__ctrl6)
Line 574:
Line 575: #End ExternalSource
Line 576: Dim __ctrl7 As Global.System.Web.UI.WebControls.Literal
Line 577:
Line 578: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 579: __ctrl7 = Me.__BuildControlUpInfo
Line 580:
Line 581: #End ExternalSource
Line 582:
Line 583: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",1)
Line 584: __parser.AddParsedSubObject(__ctrl7)
Line 585:
Line 586: #End ExternalSource
Line 587: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 588: End Sub
Line 589:
Line 590: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 591: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Strict//EN"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META HTTP-EQUIV=""PR"& _
Line 592: "AGMA"" CONTENT=""NO-CACHE"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <title>ADLib - ")
Line 593: parameterContainer.Controls(0).RenderControl(__w)
Line 594: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 595: parameterContainer.Controls(1).RenderControl(__w)
Line 596: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""inc/adlib.js"" type=""text/javascript""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 597: "body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 598: parameterContainer.Controls(2).RenderControl(__w)
Line 599: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""toolbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 600: parameterContainer.Controls(3).RenderControl(__w)
Line 601: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 602: parameterContainer.Controls(4).RenderControl(__w)
Line 603: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&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 id=""holder"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""document"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h1>")
Line 604:
Line 605: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",159)
Line 606: __w.Write(documentAsset.Name )
Line 607:
Line 608:
Line 609: #End ExternalSource
Line 610: __w.Write("</h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>")
Line 611:
Line 612: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",160)
Line 613: __w.Write(documentAsset.Description )
Line 614:
Line 615:
Line 616: #End ExternalSource
Line 617: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b>The following versions of this document are available:</b>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 618: "")
Line 619: parameterContainer.Controls(5).RenderControl(__w)
Line 620: Me.WriteUTF8ResourceString(__w, 2183, 1060, true)
Line 621:
Line 622: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",197)
Line 623: __w.Write(Server.URLEncode(documentAsset.Name) )
Line 624:
Line 625:
Line 626: #End ExternalSource
Line 627: __w.Write("&action=add&url=")
Line 628:
Line 629: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",197)
Line 630: __w.Write(Server.URLEncode(Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING")) )
Line 631:
Line 632:
Line 633: #End ExternalSource
Line 634: __w.Write("&user=")
Line 635:
Line 636: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",197)
Line 637: __w.Write(Session("I_UserID") )
Line 638:
Line 639:
Line 640: #End ExternalSource
Line 641: Me.WriteUTF8ResourceString(__w, 3243, 280, true)
Line 642:
Line 643: #ExternalSource("D:\hyperview\websites\adlib\adlib\document.aspx",201)
Line 644: __w.Write(Session("I_UserID") )
Line 645:
Line 646:
Line 647: #End ExternalSource
Line 648: __w.Write(""" scrolling=""auto"" width=""138"" height=""110"" name=""cuttings""></iframe>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 649: "/div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&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 id=""docfooter"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""upinfo"">")
Line 650: parameterContainer.Controls(6).RenderControl(__w)
Line 651: __w.Write(" </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)&" <div id=""footer"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" © University of Hertf"& _
Line 652: "ordshire, 2006. <a href=""disclaimer.asp"">Disclaimer</a>."&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>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 653: " </body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 654: End Sub
Line 655:
Line 656: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 657: Protected Overrides Sub FrameworkInitialize()
Line 658: MyBase.FrameworkInitialize
Line 659: Me.SetStringResourcePointer(Global.ASP.adlib_document_aspx.__stringResource, 0)
Line 660: Me.__BuildControlTree(Me)
Line 661: Me.AddWrappedFileDependencies(Global.ASP.adlib_document_aspx.__fileDependencies)
Line 662: End Sub
Line 663:
Line 664: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 665: Public Overrides Function GetTypeHashCode() As Integer
Line 666: Return 702495586
Line 667: End Function
Line 668:
Line 669: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 670: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 671: MyBase.ProcessRequest(context)
Line 672: End Sub
Line 673: End Class
Line 674: End Namespace
Line 675:
|