web_showonline.aspx.vb

Asp.Net+SQL Server 2000的学生信息管理系统！有三个用户权限

'===============================================================================
'
' ProjectName:在线人数统计 V1.0 
' Author:pcsky(进哥)
' CreatedTime:
' ModifiedTime:
' Contact:[e-mail]
' CopyRight 2005 www.soft123.com
'
'===============================================================================

    Public Class web_ShowOnline
        Inherits System.Web.UI.Page
        Dim myDst As New DataSet
        Dim myDad As New SqlDataAdapter

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

        '该调用是 Web 窗体设计器所必需的。
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.myConn = New System.Data.SqlClient.SqlConnection
        Me.myCmd = New System.Data.SqlClient.SqlCommand
        '
        'myCmd
        '
        Me.myCmd.CommandText = "SELECT * FROM rz_online"
        Me.myCmd.Connection = Me.myConn

    End Sub

        Protected WithEvents myDatagrid As System.Web.UI.WebControls.DataGrid
        Protected WithEvents myConn As System.Data.SqlClient.SqlConnection
        Protected WithEvents myCmd As System.Data.SqlClient.SqlCommand

        Protected WithEvents lblCurrentIndex As System.Web.UI.WebControls.Label
        Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label
        Protected WithEvents lblTotalRec As System.Web.UI.WebControls.Label
        Protected WithEvents lblPerPage As System.Web.UI.WebControls.Label
        Protected WithEvents chkAllowPaging As System.Web.UI.WebControls.CheckBox

        Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton
        Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton

        '注意: 以下占位符声明是 Web 窗体设计器所必需的。
        '不要删除或移动它。
        Private designerPlaceholderDeclaration As System.Object

        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) Handles MyBase.Load
            myConn.ConnectionString = connStr()

            myDatagrid.DataSource = myDst
            myDatagrid.DataMember = "table1"
            myDatagrid.DataKeyField = "id"

            If Not IsPostBack Then
                BindGrid()
                ShowStats()
            End If
        End Sub

        '翻页绑定
        Private Sub myDatagrid_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles myDatagrid.PageIndexChanged
            myDatagrid.CurrentPageIndex = e.NewPageIndex
            BindGrid()
            ShowStats()
        End Sub

        '返回系统类型 和 浏览器类型
        Private Sub myDatagrid_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles myDatagrid.ItemDataBound
            If Not (e.Item.ItemType = ListItemType.Header Or _
                    e.Item.ItemType = ListItemType.Header) Then
                e.Item.Cells(2).Text = GetSystem(e.Item.Cells(2).Text)
                e.Item.Cells(3).Text = GetBrowser(e.Item.Cells(3).Text)
            End If
        End Sub

        '是否分页
        Private Sub chkAllowPaging_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAllowPaging.CheckedChanged
            If chkAllowPaging.Checked = True Then
                myDatagrid.AllowPaging = True
            Else
                myDatagrid.AllowPaging = False
            End If

            BindGrid()
            ShowStats()
        End Sub

        '返回浏览器类型
        Function GetBrowser(ByVal info) As String
            Dim tmpStr As String
            If InStr(info, "NetCaptor 6.5.0") > 0 Then
                tmpStr = "NetCaptor 6.5.0"
            ElseIf InStr(info, "MyIe 3.1") > 0 Then
                tmpStr = "MyIe 3.1"
            ElseIf InStr(info, "NetCaptor 6.5.0RC1") > 0 Then
                tmpStr = "NetCaptor 6.5.0RC1"
            ElseIf InStr(info, "NetCaptor 6.5.PB1") > 0 Then
                tmpStr = "NetCaptor 6.5.PB1"
            ElseIf InStr(info, "MSIE 5.5") > 0 Then
                tmpStr = "Internet Explorer 5.5"
            ElseIf InStr(info, "MSIE 6.0") > 0 Then
                tmpStr = "Internet Explorer 6.0"
            ElseIf InStr(info, "MSIE 6.0b") > 0 Then
                tmpStr = "Internet Explorer 6.0b"
            ElseIf InStr(info, "MSIE 5.01") > 0 Then
                tmpStr = "Internet Explorer 5.01"
            ElseIf InStr(info, "MSIE 5.0") > 0 Then
                tmpStr = "Internet Explorer 5.00"
            ElseIf InStr(info, "MSIE 4.0") > 0 Then
                tmpStr = "Internet Explorer 4.01"
            Else
                tmpStr = "其它"
            End If

            Return tmpStr
        End Function

        '返回系统类型
        Function GetSystem(ByVal info) As String
            Dim tmpStr As String
            If InStr(info, "NT 5.1") > 0 Then
                tmpStr = tmpStr + "Windows XP"
            ElseIf InStr(info, "Tel") > 0 Then
                tmpStr = tmpStr + "Telport"
            ElseIf InStr(info, "webzip") > 0 Then
                tmpStr = tmpStr + "webzip"
            ElseIf InStr(info, "flashget") > 0 Then
                tmpStr = tmpStr + "flashget"
            ElseIf InStr(info, "offline") > 0 Then
                tmpStr = tmpStr + "offline"
            ElseIf InStr(info, "NT 5") > 0 Then
                tmpStr = tmpStr + "Windows 2000"
            ElseIf InStr(info, "NT 4") > 0 Then
                tmpStr = tmpStr + "Windows NT4"
            ElseIf InStr(info, "98") > 0 Then
                tmpStr = tmpStr + "Windows 98"
            ElseIf InStr(info, "95") > 0 Then
                tmpStr = tmpStr + "Windows 95"
            ElseIf InStr(info, "unix") Or InStr(info, "linux") Or InStr(info, "SunOS") Or InStr(info, "BSD") Then
                tmpStr = tmpStr + "类Unix"
            ElseIf InStr(tmpStr, "Mac") Then
                tmpStr = tmpStr + "Mac"
            Else
                tmpStr = tmpStr + "其它"
            End If

            Return tmpStr
        End Function

        Sub BindGrid()  '绑定数据
            myDad.SelectCommand = myCmd

            myDad.Fill(myDst, "table1")
            myDatagrid.DataBind()
        End Sub

        Sub ShowStats() '显示页码
            lblCurrentIndex.Text = (myDatagrid.CurrentPageIndex + 1).ToString()
            lblPageCount.Text = myDatagrid.PageCount.ToString()
            lblTotalRec.Text = myDst.Tables(0).Rows.Count.ToString()
            lblPerPage.Text = myDatagrid.PageSize.ToString()
        End Sub

        Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
            'used by external paging UI
            Dim arg As String = sender.CommandArgument

            Select Case arg
                Case "next"
                    If (myDatagrid.CurrentPageIndex < (myDatagrid.PageCount - 1)) Then
                        myDatagrid.CurrentPageIndex += 1
                    End If
                Case "prev"
                    If (myDatagrid.CurrentPageIndex > 0) Then
                        myDatagrid.CurrentPageIndex -= 1
                    End If
                Case "last"
                    myDatagrid.CurrentPageIndex = (myDatagrid.PageCount - 1)
                Case Else
                    'page number
                    myDatagrid.CurrentPageIndex = System.Convert.ToInt32(arg)
            End Select
            BindGrid()
            ShowStats()
        End Sub


End Class