singleuc.ascx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Imports Exam.Module1
Public Class SingleUC
    Inherits System.Web.UI.UserControl

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

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

    End Sub
    Protected WithEvents lblFirst As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblPrev As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblCurrentPage As System.Web.UI.WebControls.Label
    Protected WithEvents lblNext As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblLast As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblQesName As System.Web.UI.WebControls.Label
    '注意: 以下占位符声明是 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 _Single, _SingleNumber As Integer
    Public Property vSingle()
        Get
            Return _Single
        End Get
        Set(ByVal Value)
            _Single = Value
        End Set
    End Property
    Public Property vSingleNumber()
        Get
            Return _SingleNumber
        End Get
        Set(ByVal Value)
            _SingleNumber = Value
        End Set
    End Property

    Public i, k, count As Integer
    Public temp As Single

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Subject = Session("Subject")
        vSingle = vSingle / vSingleNumber
    End Sub

    Public j As String
    Public Sub DataBingToRep()
        strsql = "select top " & 1 & " * from question Where subjectname='" & Subject & "' AND type='单选题' AND  haveselect=0 "
        Randomize()
        count = SubjectInfo(Subject)
        temp = Fix(count * Rnd(10))
        If Qds.Tables(0).Rows.Count > 0 Then
            GetRowInfo(Qds.Tables(0).Rows(temp))
        Else
            lblQesName.Text = "暂时没有" & Subject & "的单选题!"
        End If
    End Sub
    Public Qlist, Qname, qa, qb, qc, qd, qid As String
    '
    '从数据库中读取随机数所在行的信息
    Public Function GetRowInfo(ByVal aRow As DataRow)
        Dim dr As DataRow = aRow
        'Qname = dr("question")
        Qname = dr("question")
        qa = dr("A")
        qb = dr("B")
        qc = dr("C")
        qd = dr("D")
        qid = dr("id")
        Session("Qlist") &= qid & ","
        SetReaded(qid)
    End Function
    Private Qds As New DataSet
    '
    '统计课程考题的数量
    Function SubjectInfo(ByVal name As String) As Integer
        strsql = "select * from question where subjectname='" & name & "' AND type='单选题' AND  haveselect=0 "
        Dim cmd As New SqlDataAdapter(strsql, appconn)
        cmd.Fill(Qds, "Info")
        Return Qds.Tables("Info").Rows.Count
    End Function

    Public Qary As Array
    Public Sscore As Integer
    '提交单选题的答卷
    Public Sub Submit1()
        '计算单选题得分
        Dim qlist1 = Session("Qlist")
        If Len(qlist1) > 0 Then
            Qlist = Left(qlist1, Len(qlist1) - 1)
            '在数组中存储单选题目列表
            Qary = Split(Qlist, ",")
            '计算单选题得分
            For i = 1 To vSingleNumber
                result = Request("no" & Qary(i - 1))
                If result <> Nothing Then
                    strsql = "select id,answer from question where id=" & CLng(Qary(i - 1))
                    appconn.Open()
                    readcmd = New SqlClient.SqlCommand(strsql, appconn)
                    Dim dr As SqlClient.SqlDataReader
                    dr = readcmd.ExecuteReader()
                    If dr.Read() Then
                        If result = dr("answer") Then
                            Sscore += vSingle
                        End If
                    Else
                        Response.Write("与数据库服务器连接失败!")
                    End If
                    appconn.Close()
                End If
            Next
        End If
        '取消已选的筛选标记
        SetRead()
    End Sub
End Class