home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / default.aspx.vb < prev    next >
Text File  |  2011-04-03  |  7KB  |  230 lines
  1. Imports System.Data
  2. Imports System.Data.Common
  3. Imports System.Xml
  4. Imports System.IO
  5. Imports System.Data.OleDb
  6.  
  7. '
  8. ' ASP.NET code-behind class (Page)
  9. '
  10.  
  11. Partial Class _default
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public index As cindex
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class cindex
  21.         Inherits AspNetMakerPage
  22.         Implements IDisposable        
  23.  
  24.         ' Used by system generated functions
  25.         Private RsWrk As Object, sSqlWrk As String, sWhereWrk As String
  26.  
  27.         Private arwrk As Object
  28.  
  29.         Private armultiwrk() As String        
  30.  
  31.         ' Page URL
  32.         Public ReadOnly Property PageUrl() As String
  33.             Get
  34.                 Dim Url As String = ew_CurrentPage() & "?"
  35.                 Return Url    
  36.             End Get
  37.         End Property
  38.  
  39.         ' Validate page request
  40.         Public Function IsPageRequest() As Boolean
  41.             Return True            
  42.         End Function    
  43.  
  44.         '
  45.         '  Constructor
  46.         '  - init objects
  47.         '  - open connection
  48.         '
  49.         Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)                
  50.             m_ParentPage = APage
  51.             m_Page = Me    
  52.             m_PageID = "index"
  53.             m_PageObjName = "index"
  54.             m_PageObjTypeName = "cindex"
  55.  
  56.             ' Initialize table object
  57.             ' Connect to database
  58.  
  59.             Conn = New cConnection()
  60.         End Sub
  61.  
  62.         '
  63.         '  Subroutine Page_Init
  64.         '  - called before page main
  65.         '  - check Security
  66.         '  - set up response header
  67.         '  - call page load events
  68.         '
  69.         Public Sub Page_Init()
  70.             Security = New cAdvancedSecurity(Me)
  71.  
  72.             ' Global page loading event (in ewglobal*.vb)
  73.             ParentPage.Page_Loading()
  74.  
  75.             ' Page load event, used in current page
  76.             Page_Load()
  77.         End Sub
  78.  
  79.         '
  80.         '  Class terminate
  81.         '  - clean up page object
  82.         '
  83.         Public Sub Dispose() Implements IDisposable.Dispose
  84.             Page_Terminate("")
  85.         End Sub
  86.  
  87.         '
  88.         '  Sub Page_Terminate
  89.         '  - called when exit page
  90.         '  - clean up connection and objects
  91.         '  - if URL specified, redirect to URL
  92.         '
  93.         Sub Page_Terminate(url As String)
  94.  
  95.             ' Page unload event, used in current page
  96.             Page_Unload()
  97.  
  98.             ' Global page unloaded event (in ewglobal*.vb)
  99.             ParentPage.Page_Unloaded()
  100.  
  101.             ' Close connection
  102.             Conn.Dispose()
  103.             Security = Nothing
  104.  
  105.             ' Go to URL if specified
  106.             If url <> "" Then
  107.                 HttpContext.Current.Response.Clear()
  108.                 HttpContext.Current.Response.Redirect(url)
  109.             End If
  110.         End Sub
  111.  
  112.     ' Page main processing
  113.     Sub Page_Main()
  114.         If Not Security.IsLoggedIn() Then Security.AutoLogin()
  115.         Security.LoadUserLevel() ' load user level
  116.  
  117.             If CurrentUserLevel() = -1 Then
  118.                 Page_Terminate("tblSchedulelist.aspx?t=tblSchedule&z_schDate=%3E%3D&x_schDate=" & Today & "&v_schDate=AND&w_schDate=%3C%3D&y_schDate=&z_schEvtID=%3D&x_schEvtID=&z_schLocID=%3D&x_schLocID=&z_schEmpID=%3D&x_schEmpID=&z_schStatus=%3D&x_schStatus=&Submit=Submit") ' Exit and go to default page
  119.                 If Security.AllowList("tblSchedule") Then
  120.                     Page_Terminate("tblSchedulelist.aspx?t=tblSchedule&z_schDate=%3E%3D&x_schDate=" & Today & "&v_schDate=AND&w_schDate=%3C%3D&y_schDate=&z_schEvtID=%3D&x_schEvtID=&z_schLocID=%3D&x_schLocID=&z_schEmpID=%3D&x_schEmpID=&z_schStatus=%3D&x_schStatus=&Submit=Submit") ' Exit and go to default page
  121.                 End If
  122.             Else
  123.                 Page_Terminate("viewClockInOutList.aspx") ' Exit and go to default page
  124.                 If Security.AllowList("viewClockInOut") Then
  125.                     Page_Terminate("viewClockInOutList.aspx") ' Exit and go to default page
  126.                 End If
  127.             End If
  128.  
  129.             If Security.AllowList("tblDepartments") Then
  130.                 Page_Terminate("tblDepartmentslist.aspx")
  131.             End If
  132.             If Security.AllowList("tblEmployees") Then
  133.                 Page_Terminate("tblEmployeeslist.aspx")
  134.             End If
  135.             If Security.AllowList("tblEmployeeStatus") Then
  136.                 Page_Terminate("tblEmployeeStatuslist.aspx")
  137.             End If
  138.             If Security.AllowList("tblEvents") Then
  139.                 Page_Terminate("tblEventslist.aspx")
  140.             End If
  141.             If Security.AllowList("tblFixtureMaster") Then
  142.                 Page_Terminate("tblFixtureMasterlist.aspx")
  143.             End If
  144.             If Security.AllowList("tblLocations") Then
  145.                 Page_Terminate("tblLocationslist.aspx")
  146.             End If
  147.             If Security.AllowList("tblLPR") Then
  148.                 Page_Terminate("tblLPRlist.aspx")
  149.             End If
  150.             If Security.AllowList("tblLPRStatus") Then
  151.                 Page_Terminate("tblLPRStatuslist.aspx")
  152.             End If
  153.             If Security.AllowList("tblMessage") Then
  154.                 Page_Terminate("tblMessagelist.aspx")
  155.             End If
  156.             If Security.AllowList("tblParts") Then
  157.                 Page_Terminate("tblPartslist.aspx")
  158.             End If
  159.             If Security.AllowList("tblPositions") Then
  160.                 Page_Terminate("tblPositionslist.aspx")
  161.             End If
  162.             If Security.AllowList("tblScheduleStatus") Then
  163.                 Page_Terminate("tblScheduleStatuslist.aspx")
  164.             End If
  165.             If Security.AllowList("tblTypes") Then
  166.                 Page_Terminate("tblTypeslist.aspx")
  167.             End If
  168.             If Security.AllowList("tblLPRFixtureLocation") Then
  169.                 Page_Terminate("tblLPRFixtureLocationlist.aspx")
  170.             End If
  171.             If Security.AllowList("tblLPRFixtureType") Then
  172.                 Page_Terminate("tblLPRFixtureTypelist.aspx")
  173.             End If
  174.             If Security.AllowList("viewEmployees") Then
  175.                 Page_Terminate("viewEmployeeslist.aspx")
  176.             End If
  177.             If Security.AllowList("viewClockInOut") Then
  178.                 Page_Terminate("viewClockInOutlist.aspx")
  179.             End If
  180.             If Security.AllowList("viewSchedule") Then
  181.                 Page_Terminate("viewSchedulelist.aspx")
  182.             End If
  183.             If Security.IsLoggedIn() Then
  184.                 ew_Write("You do not have the right permission to view the page")
  185.                 ew_Write("<br /><a href=""logout.aspx"">Back to login page</a>")
  186.             Else
  187.                 Page_Terminate("login.aspx") ' Exit and go to login page
  188.             End If
  189.         End Sub
  190.  
  191.         ' Page Load event
  192.         Public Sub Page_Load()
  193.  
  194.             'HttpContext.Current.Response.Write("Page Load")
  195.         End Sub
  196.  
  197.         ' Page Unload event
  198.         Public Sub Page_Unload()
  199.  
  200.             'HttpContext.Current.Response.Write("Page Unload")
  201.         End Sub
  202.     End Class
  203.  
  204.     '
  205.     ' ASP.NET Page_Load event
  206.     '
  207.  
  208.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  209.         Response.Buffer = EW_RESPONSE_BUFFER
  210.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  211.  
  212.         ' Page init
  213.         index = New cindex(Me)        
  214.         index.Page_Init()
  215.  
  216.         ' Page main processing
  217.         index.Page_Main()
  218.     End Sub
  219.  
  220.     '
  221.     ' ASP.NET Page_Unload event
  222.     '
  223.  
  224.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  225.  
  226.         ' Dispose page object
  227.         If index IsNot Nothing Then index.Dispose()
  228.     End Sub
  229. End Class
  230.