global.asax.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System.Web
Imports System.Web.SessionState
Imports System.Web.HttpException
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Configuration
Imports flyangel.article.twotipclass

Public Class flashGlobal
    Inherits System.Web.HttpApplication

#Region " 组件设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是组件设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '组件设计器所必需的
    Private components As System.ComponentModel.IContainer
    Public user_v_state As String
    '注意：以下过程是组件设计器所必需的
    '可以使用组件设计器修改此过程。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在应用程序启动时激发
        If Directory.Exists(ConfigurationSettings.AppSettings("websitepath") & "temp\") Then
            Directory.Delete(ConfigurationSettings.AppSettings("websitepath") & "temp\", True)
        End If

        '载入接口，并将其放入Application中
        '载入接口，并将其放入Application中

        Dim myApplicationStart As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        Dim StrSystemInfo As String() = {"copyright", "WebTitle", "addreadme", "weburl", "htmlurl", "webmastermail", "EmailFlag", "SMTPServer", "opentime", "badword", "uploadFlag", "iflockip", "interipstar", "interipend"}
        myApplicationStart.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        myApplicationStart.GetWebSystemInfo(StrSystemInfo)
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话启动时激发
        Dim intOnlineNumber As Integer
        Application.Lock()
        intOnlineNumber = CInt(Application("ONLINENUMBER")) + 1
        Application("ONLINENUMBER") = intOnlineNumber
        user_v_state = "false"
        Application.UnLock()
    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' 在每个请求开始时激发

        Application("StartTime") = System.DateTime.Now

        If user_v_state = "false" Then
            Dim dbflyc As iCounterClass = HowToUsingFlyangel.iCounterClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dbflyc.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")

            Dim asds As iAddressClass = HowToUsingFlyangel.iAddressClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            asds.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")

            If asds.ChangeIpAdressToInt64(Request.UserHostAddress) > asds.ChangeIpAdressToInt64(Application("interipstar")) And asds.ChangeIpAdressToInt64(Request.UserHostAddress) < asds.ChangeIpAdressToInt64(Application("interipend")) Then
                dbflyc.AddWebCurrentCounter(True)
            Else
                dbflyc.AddWebCurrentCounter(False)
            End If
            user_v_state = "true"
        End If

    End Sub

    Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs)

        Dim startTime As System.DateTime = Application("StartTime")
        Dim endtime As System.DateTime = System.DateTime.Now
        Dim ts As System.TimeSpan = endtime.Subtract(startTime)
        Response.Write("<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td align='center' width='100%'>" & _
        "<font color='Silver'>DOTNET新闻系统1.1B0811ACCESS版   FLYANGEL  </font></td></tr></table></body></html>")

    End Sub
    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' 尝试对使用进行身份验证时激发
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' 在发生错误时激发
        'Response.Redirect("js/error.htm")
        'Response.End()

    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话结束时激发
        Dim intOnlineNumber As Integer
        Application.Lock()
        intOnlineNumber = CInt(Application("ONLINENUMBER")) - 1
        Application("ONLINENUMBER") = intOnlineNumber
        Application.UnLock()
        user_v_state = "false"
        Session.Abandon()
    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' 在应用程序结束时激发
        Application("ONLINENUMBER") = 0
    End Sub

End Class