index.aspx.vb

来自「asp做的新闻系统」· VB 代码 · 共 181 行

Imports System
Imports System.Data
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports System.Data.OleDb
Imports System.Web.UI.WebControls

Public Class index
    Inherits System.Web.UI.Page

    Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("abc.mdb")
    

    Dim iPageSize As Integer = 10

    Protected WithEvents imbgtn As System.Web.UI.WebControls.ImageButton
    Protected WithEvents firstPage As System.Web.UI.WebControls.Button
    Protected WithEvents PreviousPage As System.Web.UI.WebControls.Button
    Protected WithEvents NextPage As System.Web.UI.WebControls.Button
    Protected WithEvents lastPage As System.Web.UI.WebControls.Button
    Protected WithEvents dlPage As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    'Protected WithEvents rep As System.Web.UI.WebControls.Repeater
    Protected WithEvents repView As System.Web.UI.WebControls.Repeater
    Protected WithEvents lblPageIndex As System.Web.UI.WebControls.Label
    Protected WithEvents lblRecordCount As System.Web.UI.WebControls.Label
    Dim gdv As New DataView()
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <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: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim j As Integer

        If Not IsPostBack Then
            Dim myDataSet As New DataSet()
            Dim gconn As New OleDbConnection(constr)

            Dim gar As New OleDbDataAdapter("select  * from ly order by 时间 desc", gconn)

            gar.Fill(myDataSet, "soft")

            i = myDataSet.Tables("soft").Rows.Count
            lblRecordCount.Text = i.ToString
            gconn.Close()
            j = i
            i = i / iPageSize

            If (i * iPageSize) > j Then i = i - 1
            For j = 0 To i
                dlPage.Items.Add(j.ToString)
            Next

            lblPageIndex.Text = 0
            dgDataBind()
        Else
            '        dlPage.Items.Clear()
            '       j = CInt(lblRecordCount.Text)
            '      i = j / iPageSize
            '     If i * iPageSize > j Then i = i - 1
            '    For j = 0 To i
            '       dlPage.Items.Add(j.ToString)
            '
            '           Next
            j = CInt(lblPageIndex.Text)
            '         dlPage.SelectedIndex = j
        End If

    End Sub

    Private Sub dgDataBind()
        Dim i As Integer
        Dim j As Integer
        i = CInt(lblPageIndex.Text) * iPageSize
        Dim myDataSet As New DataSet()
        Dim gconn As New OleDbConnection(constr)
        Dim gar As New OleDbDataAdapter("select  * from ly order by 时间 desc", gconn)
        If (i + iPageSize) > CInt(lblRecordCount.Text) Then
            gar.Fill(myDataSet, i, CInt(lblRecordCount.Text) - i, "soft")
        Else
            gar.Fill(myDataSet, i, iPageSize, "soft")
        End If

        repView.DataSource = myDataSet.Tables("soft")
        repView.DataBind()
        gconn.Close()
        dlPage.SelectedIndex = CInt(lblPageIndex.Text)
    End Sub

    Private Sub rw(ByVal outstr)
        Response.Write(outstr)
    End Sub

    Private Sub PrintRows(ByVal myDataSet As DataSet)
        Dim myTable As DataTable
        Dim myRow As DataRow
        Dim myColumn As DataColumn

        ' For each table in the DataSet, print the row values.
        For Each myTable In myDataSet.Tables
            For Each myRow In myTable.Rows
                For Each myColumn In myTable.Columns
                    rw(myRow(myColumn))

                Next myColumn
                rw("<BR>")
            Next myRow
        Next myTable
    End Sub

    Private Sub imbgtn_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imbgtn.Click
        Response.Redirect("giveme.aspx")
    End Sub


    Private Sub lastPage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lastPage.Click
        Dim i As Integer
        Dim j As Integer
        j = CInt(lblRecordCount.Text)
        i = j / iPageSize
        If (i * iPageSize) > j Then i = i - 1
        lblPageIndex.Text = i.ToString
        dgDataBind()

    End Sub

    Private Sub firstPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles firstPage.Click
        Dim i As Integer
        i = 0
        lblPageIndex.Text = i.ToString
        dgDataBind()
    End Sub

    Private Sub NextPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NextPage.Click
        Dim i As Integer
        Dim j As Integer
        i = CInt(lblPageIndex.Text)
        i = i + 1
        j = CInt(lblRecordCount.Text)
        If i * iPageSize > j Then i = i - 1
        lblPageIndex.Text = i.ToString
        dgDataBind()
    End Sub

    Private Sub PreviousPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PreviousPage.Click
        Dim i As Integer
        i = CInt(lblPageIndex.Text)
        i = i - 1
        If i < 0 Then i = 0
        lblPageIndex.Text = i.ToString
        dgDataBind()
    End Sub

    Private Sub dlPage_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dlPage.SelectedIndexChanged
        lblPageIndex.Text = dlPage.SelectedItem.ToString
        dgDataBind()
    End Sub

    Function GetIp(ByVal IP As String) As String
        Dim ips As Array
        ips = Split(IP, ".")
        GetIp = ips(0) & "." & ips(1) & ".*.*"
    End Function


End Class