multiuc.ascx.vb

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

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

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

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

    End Sub
    Protected WithEvents lblLast As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblNext As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblCurrentPage As System.Web.UI.WebControls.Label
    Protected WithEvents lblPrev As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lblFirst 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

    Public i2 As Integer
    Private _Multi, _MultiNumber As Integer

    Public Property vMulti()
        Get
            Return _Multi
        End Get
        Set(ByVal Value)
            _Multi = Value
        End Set
    End Property
    Public Property vMultiNumber()
        Get
            Return _MultiNumber
        End Get
        Set(ByVal Value)
            _MultiNumber = Value
        End Set
    End Property
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        vMulti = vMulti / vMultiNumber
    End Sub
    Public k2, count2 As Integer
    Public temp2 As Single
    Public Sub DataBingToRep2()
        strsql = "select top " & 1 & " * from question Where subjectname='" & Subject & "' AND type='多选题' AND  haveselect=0 "
        Randomize()
        count2 = SubjectInfo2(Subject)
        temp2 = Fix(count2 * Rnd(10))
        If Qds2.Tables(0).Rows.Count > 0 Then
            GetRowInfo2(Qds2.Tables(0).Rows(temp2))
        Else
            lblQesName.Text = "暂时没有" & Subject & "的多选题!"
        End If
    End Sub

    Private Qds2 As New DataSet
    Function SubjectInfo2(ByVal name As String) As Integer
        strsql = "select * from question where subjectname='" & name & "' AND type='多选题' AND  haveselect=0 "
        Dim cmd2 As New SqlDataAdapter(strsql, appconn)
        cmd2.Fill(Qds2, "Info1")
        Return Qds2.Tables("Info1").Rows.Count
    End Function

    Public Qlist2, Qname2, qa2, qb2, qc2, qd2, qid2 As String
    Public Function GetRowInfo2(ByVal aRow As DataRow)
        Dim dr2 As DataRow = aRow
        Qname2 = dr2("question")
        qa2 = dr2("A")
        qb2 = dr2("B")
        qc2 = dr2("C")
        qd2 = dr2("D")
        qid2 = dr2("id")
        Session("MQlist") &= qid2 & ","
        SetReaded(dr2("id"))
    End Function

    Public Qary2 As Array
    Public Mscore As Integer
    '提交单选题的答卷
    Public Sub Submit2()
        '计算多选题得分
        Dim qlist1 = Session("MQlist")
        '如果有多选题
        If Len(qlist1) > 0 Then
            Qlist2 = Left(qlist1, Len(qlist1) - 1)
            '在数组中存储单选题目列表
            Qary2 = Split(Qlist2, ",")
            '计算多选题得分
            For i2 = 1 To vMultiNumber
                result2 = Request("no2" & Qary2(i2 - 1))
                If result2 <> Nothing Then
                    strsql = "select id,answer from question where id=" & CLng(Qary2(i2 - 1))
                    appconn.Open()
                    readcmd2 = New SqlClient.SqlCommand(strsql, appconn)
                    Dim dr2 As SqlClient.SqlDataReader
                    dr2 = readcmd2.ExecuteReader()
                    If dr2.Read() Then
                        If result2 = dr2("answer") Then
                            Mscore += vMulti
                        End If
                    Else
                        Response.Write("与数据库服务器连接失败!")
                    End If
                    appconn.Close()
                End If
            Next
        End If
        SetRead()
    End Sub
End Class