counter.ascx.vb

来自「程序设计:Flyangel 用到了vb.net c# asp.net xml等 」· VB 代码 · 共 57 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports flyangel.article.twotipclass

Public MustInherit Class counter
    Inherits System.Web.UI.UserControl

    Protected Label_counter As Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '在此处放置初始化页的用户代码
        Dim fontcss As String = "<FONT color=#003366><FONT face=Wingdings>q</FONT></FONT>"
        Dim access_true_ip As String = Request.UserHostAddress
        Dim dbflya As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        Dim dbflyc As iCounterClass = HowToUsingFlyangel.iCounterClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dbflyc.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        Dim _counter As CounterInfo = dbflyc.GetWebCurrentCounter


        Label_counter.Text = fontcss & "  今天是：<B>" & dbflya.day2string(_counter.TodayDateTime) & "</B><br>" & _
               fontcss & "  总访问人数：<B>" & _counter.TotalCount & "</B> 人<br>" & _
               fontcss & "  今日访问人数：<B>" & _counter.TodayCount & "</B> 人<BR>" & _
               fontcss & "  目前在线人数：<B>" & Application("ONLINENUMBER") & "</B> 人<BR>" & _
               fontcss & "  今日内部访问：<B>" & _counter.InsideTodayCount & "</B> 人<BR>" & _
               fontcss & "  今日外部访问：<B>" & _counter.OutTodayCount & "</B> 人<BR>" & _
               fontcss & "  昨日访问：<B>" & _counter.YesterdayCount & "</B> 人<BR>" & _
               fontcss & "  本月访问人数：<B>" & _counter.ThisMonthCount & "</B> 人<BR>" & _
               fontcss & "  上月访问：<B>" & _counter.LastMonthCount & "</B> 人<BR>" & _
               fontcss & "  您的IP是：" & access_true_ip & "<BR>"

        Dim asds As iAddressClass = HowToUsingFlyangel.iAddressClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        asds.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        Label_counter.Text += fontcss & "  您来自：" & asds.IpAddressChangeToTrueAddress(access_true_ip)

    End Sub

End Class