managesubject.aspx.vb

利用简单框架结构vb+asp+sql,实现小型考试系统

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI.WebControls

Public Class ManageSubject
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents Repeater1 As System.Web.UI.WebControls.Repeater
    Protected WithEvents lnkFirst2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lnkPrev2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblCurrentPage2 As System.Web.UI.WebControls.Label
    Protected WithEvents lnkNext2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lnkLast2 As System.Web.UI.WebControls.HyperLink

    '注意: 以下占位符声明是 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

    Dim objconn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
    Public objcomd As SqlCommand
    Public comdstr, comdstr1 As String
    Dim manadp As SqlDataAdapter
    Dim mands As DataSet
    Public mana As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Session("AdminName") Is Nothing Then
            Response.Write("<script language='javascript'>alert('用户不存在或者权限不足,请确认已登录.');history.go(-1)</script>")
        End If
        mana = Server.UrlDecode(Request.QueryString("mana"))
        '设置管理试题的数量
        If mana <> Nothing Then
            Session("mana") = mana
            comdstr = "select * from question where subjectname='" & mana & "'"
        Else
            comdstr = "select * from question"
        End If
        objcomd = New SqlClient.SqlCommand(comdstr, objconn)
        objconn.Open()
        manadp = New SqlClient.SqlDataAdapter
        manadp.SelectCommand = objcomd
        mands = New DataSet
        manadp.Fill(mands, "mana") '填充DataSet数据集
        Dim manpd As PagedDataSource = New PagedDataSource
        manpd.DataSource = mands.Tables("mana").DefaultView()
        manpd.AllowPaging = True
        manpd.PageSize = 3
        Dim CurPage As Integer
        '分页显示
        If Not Request.QueryString("Page") Is Nothing Then
            CurPage = Convert.ToInt32(Request.QueryString("Page"))
        Else
            CurPage = 1
        End If
        manpd.CurrentPageIndex = CurPage - 1
        lblCurrentPage2.Text = "  共：" & CurPage.ToString() & "/" & manpd.PageCount & "页  "
        If Not manpd.IsFirstPage Then
            lnkPrev2.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage - 1) & "&mana=" & Server.UrlEncode(Session("mana")) & ""
            lnkFirst2.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=1" & "&mana=" & Server.UrlEncode(Session("mana")) & ""
        End If
        If Not manpd.IsLastPage Then ''
            lnkNext2.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage + 1) & "&mana=" & Server.UrlEncode(Session("mana")) & ""
            lnkLast2.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & manpd.PageCount & "&mana=" & Server.UrlEncode(Session("mana")) & ""
        End If
        '绑定到Repeater数据控件
        Repeater1.DataSource = manpd
        Repeater1.DataBind()
    End Sub

End Class