papermanage.aspx.vb

VB.NET和SQLSERver2000编写在线考试系统

Imports System.Data.SqlClient
Public Class papermanage
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Image10 As System.Web.UI.WebControls.Image
    Protected WithEvents Image2 As System.Web.UI.WebControls.Image
    Protected WithEvents Image9 As System.Web.UI.WebControls.Image
    Protected WithEvents Image7 As System.Web.UI.WebControls.Image
    Protected WithEvents Image6 As System.Web.UI.WebControls.Image
    Protected WithEvents Image5 As System.Web.UI.WebControls.Image
    Protected WithEvents Image4 As System.Web.UI.WebControls.Image
    Protected WithEvents Image3 As System.Web.UI.WebControls.Image
    Protected WithEvents Image8 As System.Web.UI.WebControls.Image
    Protected WithEvents ImageButton1 As System.Web.UI.WebControls.ImageButton

    '注意: 以下占位符声明是 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 Sub message(ByVal str As String)
        Dim strscript As String = "<script language=javascript>alert('" & str & "')</script>"
        RegisterClientScriptBlock("系统消息", strscript)
    End Sub
    Dim t_score As New ArrayList
    Public Sub Sub_load()
        Dim q As New SqlClass
        q.Open()
        Dim str As String
        Dim dxi As Integer
        Dim mxi As Integer
        Dim pdi As Integer
        Dim pxi As Integer

        str = "select count(*) from " & Session("tablename") & " where 试题题型='单项选择题'"
        dxi = q.GetInt(str)
        str = "select count(*) from " & Session("tablename") & " where 试题题型='多项选择题'"
        mxi = q.GetInt(str)
        str = "select count(*) from  " & Session("tablename") & " where 试题题型='判断题'"
        pdi = q.GetInt(str)
        str = "select count(*) from " & Session("tablename") & " where 试题题型='排序题'"
        pxi = q.GetInt(str)
        str = "select * from " & Session("tablename")
        Dim myreader As SqlDataReader = q.GetDataReader(str)
        Dim q2 As New SqlClass
        q2.Open()
        Dim i As Integer
        Panel1.Width = New Unit(700)
        Dim l As New Literal

        Dim sum As Integer = 0
        l.Text = "一、单项选择题" & "<br>"
        Panel1.Controls.Add(l)
        For i = 0 To dxi - 1
            myreader.Read()
            Dim tm As String = myreader("试题")
            Dim fs As Integer = myreader("试题分数")
            Dim an As String = myreader("答案")
            Dim user_an As String
            If myreader("用户答案") Is DBNull.Value Then
                user_an = "没有回答 "
            Else
                user_an = myreader("用户答案")
            End If
            Dim t As New Label
            t.Width = New Unit(700)
            t.Text = (i + 1).ToString() & ".  " & tm & "   (" & fs & "分)"
            Panel1.Controls.Add(t)
            Dim t2 As New Label
            t2.Width = New Unit(300)
            t2.Text = "正确答案：" & "<br>" & an
            Panel1.Controls.Add(t2)
            Dim t3 As New Label
            t3.Width = New Unit(300)
            t3.Text = "用户答案：" & "<br>" & user_an
            Panel1.Controls.Add(t3)
            Dim t5 As New Label
            Dim t9 As New Literal
            t9.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t9)
            t5.Text = "用户得分："
            Panel1.Controls.Add(t5)
            Dim t4 As New TextBox
            t4.Width = New Unit(100)
            t_score.Add(t4)
            t4.Text = myreader("用户得分")
            Panel1.Controls.Add(t4)
            Dim t8 As New Literal
            t8.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t8)
        Next
        Dim l1 As New Literal
        l1.Text = "<br>" & "二、多项选择题" & "<br>"
        Panel1.Controls.Add(l1)
        For i = 0 To mxi - 1
            myreader.Read()
            Dim tm As String = myreader("试题")
            Dim fs As String = myreader("试题分数")
            Dim an As String = myreader("答案")
            Dim user_an As String
            If myreader("用户答案") Is DBNull.Value Then
                user_an = "没有回答 "
            Else
                user_an = myreader("用户答案")
            End If
            Dim t As New Label
            t.Width = New Unit(700)
            t.Text = (i + 1).ToString() & ".  " & tm & "   (" & fs & "分)"
            Panel1.Controls.Add(t)
            Dim t2 As New Label
            t2.Width = New Unit(300)
            t2.Text = "正确答案：" & "<br>" & an
            Panel1.Controls.Add(t2)
            Dim t3 As New Label
            t3.Width = New Unit(300)
            t3.Text = "用户答案：" & "<br>" & user_an
            Panel1.Controls.Add(t3)
            Dim t5 As New Label
            Dim t9 As New Literal
            t9.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t9)
            t5.Text = "用户得分："
            Panel1.Controls.Add(t5)
            Dim t4 As New TextBox
            t4.Width = New Unit(100)
            t_score.Add(t4)
            t4.Text = myreader("用户得分")
            Panel1.Controls.Add(t4)
            Dim t8 As New Literal
            t8.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t8)
        Next
        Dim l2 As New Literal
        l2.Text = "<br>" & "三、判断题" & "<br>"
        Panel1.Controls.Add(l2)
        For i = 0 To pdi - 1
            myreader.Read()
            Dim tm As String = myreader("试题")
            Dim fs As String = myreader("试题分数")
            Dim an As String = myreader("答案")
            Dim user_an As String
            If myreader("用户答案") Is DBNull.Value Then
                user_an = "没有回答 "
            Else
                user_an = myreader("用户答案")
            End If
            Dim t As New Label
            t.Width = New Unit(700)
            t.Text = (i + 1).ToString() & ".  " & tm & "   (" & fs & "分)"
            Panel1.Controls.Add(t)
            Dim t2 As New Label
            t2.Width = New Unit(300)
            t2.Text = "正确答案：" & "<br>" & an
            Panel1.Controls.Add(t2)
            Dim t3 As New Label
            t3.Width = New Unit(300)
            t3.Text = "用户答案：" & "<br>" & user_an
            Panel1.Controls.Add(t3)
            Dim t5 As New Label
            Dim t9 As New Literal
            t9.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t9)
            t5.Text = "用户得分："
            Panel1.Controls.Add(t5)
            Dim t4 As New TextBox
            t4.Width = New Unit(100)
            t_score.Add(t4)
            t4.Text = myreader("用户得分")
            Panel1.Controls.Add(t4)
            Dim t8 As New Literal
            t8.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t8)
        Next
        Dim l3 As New Literal
        l3.Text = "<br>" & "四、排序题" & "<br>"
        Panel1.Controls.Add(l3)
        For i = 0 To pxi - 1
            myreader.Read()
            Dim tm As String = myreader("试题")
            Dim fs As String = myreader("试题分数")
            Dim an As String = myreader("答案")
            Dim user_an As String
            If myreader("用户答案") Is DBNull.Value Then
                user_an = "没有回答 "
            Else
                user_an = myreader("用户答案")
            End If
            Dim t As New Label
            t.Width = New Unit(700)
            t.Text = (i + 1).ToString() & ".  " & tm & "   (" & fs & "分)"
            Panel1.Controls.Add(t)
            Dim t2 As New Label
            t2.Width = New Unit(300)
            t2.Text = "正确答案：" & "<br>" & an
            Panel1.Controls.Add(t2)
            Dim t3 As New Label
            t3.Width = New Unit(300)
            t3.Text = "用户答案：" & "<br>" & user_an
            Panel1.Controls.Add(t3)
            Dim t5 As New Label
            Dim t9 As New Literal
            t9.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t9)
            t5.Text = "用户得分："
            Panel1.Controls.Add(t5)
            Dim t4 As New TextBox
            t4.Width = New Unit(100)
            t_score.Add(t4)
            t4.Text = myreader("用户得分")
            Panel1.Controls.Add(t4)
            Dim t8 As New Literal
            t8.Text = "<br>" & "<br>"
            Panel1.Controls.Add(t8)
        Next
        myreader.Close()
        q.close()
        q2.close()

    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            Try
                If (Session("userpower") <> 3) Then
                    Response.End()
                End If
            Catch ex As Exception
                Response.Write("您还登录,请您先登录<a href='SuperLogin.aspx'>首页</a>")
                Response.End()
            End Try
        End If
        Sub_load()

    End Sub

    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim q As New SqlClass
        q.Open()
        Dim i As Integer
        Dim sum As Integer = 0
        Dim str As String
        For i = 0 To t_score.Count - 1
            str = "update " & Session("tablename") & " set 用户得分=" & t_score(i).text & " where ID=" & i + 1
            q.ExecuteSQL(str)
            sum += t_score(i).text
        Next
        str = "update 成绩登记表 set 成绩=" & sum & " where 试卷名称='" & Session("tablename") & "'"
        q.ExecuteSQL(str)
        message("修改成功")
        q.close()
    End Sub

    Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Response.Redirect("selectuser.aspx")
    End Sub
End Class