test1.aspx.vb

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

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

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

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

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Second As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents Minute As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Hour As System.Web.UI.WebControls.TextBox
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel6 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel3 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel5 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel4 As System.Web.UI.WebControls.Panel
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton3 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton4 As System.Web.UI.WebControls.LinkButton

    '注意: 以下占位符声明是 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 dxt_result As New ArrayList
    Dim mxt_result As New ArrayList
    Dim pdt_result As New ArrayList
    Dim pxt_result As New ArrayList
    Public Sub message(ByVal str As String)
        Dim strscript As String = "<script language=javascript>alert('" & str & "')</script>"
        RegisterClientScriptBlock("系统消息", strscript)
    End Sub
    Public Sub find(ByVal dest As ArrayList, ByVal m As Integer, ByVal n As Integer)
        Dim i As Integer
        For i = 0 To n - 1
            Dim r As Random = New Random(Now().Ticks Mod 32768)
            Dim iResult As Integer
            While (dest.IndexOf(iResult) <> -1)
                iResult = r.Next(m)
            End While
            dest.Add(iResult)
        Next
    End Sub
    Public Sub first_load()
        Dim q As New SqlClass
        q.Open()
        Dim str As String
        str = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[" & Session("table") & Session("username") & "暂时]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[" & Session("table") & Session("username") & "暂时]"
        q.ExecuteSQL(str)
        str = "delete from  成绩登记表 where 试卷名称='" & Session("table") & Session("username") & "' and 当前状态='正在考试'"
        q.ExecuteSQL(str)
        str = "insert into 成绩登记表(用户名,密码,成绩,试卷名称,试卷,当前状态) values('" & Session("username") & "','" & Session("password") & "',0,'" & Session("table") & Session("username") & "','" & Session("table") & "','正在考试')"
        q.ExecuteSQL(str)
        str = "select 总分 from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Dim s As Integer = q.GetInt(str)
        str = "select 时间 from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Dim s1 As Integer = q.GetInt(str)
        str = "update 成绩登记表 set 时间=" & s1 & ",总分=" & s & " where 试卷名称='" & Session("table") & Session("username") & "'"
        q.ExecuteSQL(str)
        str = "create table " & Session("table") & Session("username") & "暂时([ID] [int] NOT NULL ,	[试题] [varchar] (400) COLLATE Chinese_PRC_CI_AS NOT NULL ,[试题分数] [int] NOT NULL ,[答案] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,[试题ID] [int] NOT NULL ,[用户答案] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,[用户得分] [int] NULL ,[试题题型] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,[附加参数] [int] NULL ) ON [PRIMARY]"
        q.ExecuteSQL(str)
        Dim tablename As String
        tablename = Session("table").ToString().Substring(0, Session("table").ToString().Length - 3)
        Dim dxi As Integer
        Dim mxi As Integer
        Dim pdi As Integer
        Dim pxi As Integer
        str = "select * from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Dim myreader As SqlDataReader = q.GetDataReader(str)
        myreader.Read()
        dxi = myreader("单项选择题量")
        mxi = myreader("多项选择题量")
        pdi = myreader("判断题量")
        pxi = myreader("排序题量")
        myreader.Close()
        Dim dxt_table As DataTable
        Dim mxt_table As DataTable
        Dim pdt_table As DataTable
        Dim pxt_table As DataTable
        str = "select * from " & tablename & " where 试题题型='单项选择题 '"
        dxt_table = q.GetDataTable(str, "单项选择题")
        str = "select * from " & tablename & " where 试题题型='多项选择题 '"
        mxt_table = q.GetDataTable(str, "多项选择题")
        str = "select * from " & tablename & " where 试题题型='判断题'"
        pdt_table = q.GetDataTable(str, "判断题")
        str = "select * from " & tablename & " where 试题题型='排序题'"
        pxt_table = q.GetDataTable(str, "排序题")
        Dim dxt_dest As New ArrayList
        Dim mxt_dest As New ArrayList
        Dim pdt_dest As New ArrayList
        Dim pxt_dest As New ArrayList
        find(dxt_dest, dxt_table.Rows.Count, dxi)
        find(mxt_dest, mxt_table.Rows.Count, mxi)
        find(pdt_dest, pdt_table.Rows.Count, pdi)
        find(pxt_dest, pxt_table.Rows.Count, pxi)
        Dim i As Integer
        For i = 0 To dxi - 1
            Dim mn As Integer = dxt_dest(i)
            Dim tm As String = dxt_table.Rows(mn).Item("试题")
            Dim fs As Integer = dxt_table.Rows(mn).Item("试题分数")
            Dim an As String = dxt_table.Rows(mn).Item("答案")
            Dim ID As Integer = dxt_table.Rows(mn).Item("试题ID")
            Dim tx As String = dxt_table.Rows(mn).Item("试题题型")
            Dim cs As Integer = dxt_table.Rows(mn).Item("附加参数")
            str = "insert into " & Session("table") & Session("username") & "暂时(ID,试题,答案,试题分数,试题ID,试题题型,附加参数) values(" & i + 1 & ",'" & tm & "','" & an & "'," & fs & "," & ID & ",'" & tx & "'," & cs & ")"
            q.ExecuteSQL(str)
        Next
        For i = 0 To mxi - 1
            Dim mn As Integer = mxt_dest(i)
            Dim tm As String = mxt_table.Rows(mn).Item("试题")
            Dim fs As Integer = mxt_table.Rows(mn).Item("试题分数")
            Dim an As String = mxt_table.Rows(mn).Item("答案")
            Dim ID As Integer = mxt_table.Rows(mn).Item("试题ID")
            Dim tx As String = mxt_table.Rows(mn).Item("试题题型")
            Dim cs As Integer = mxt_table.Rows(mn).Item("附加参数")
            str = "insert into " & Session("table") & Session("username") & "暂时(ID,试题,答案,试题分数,试题ID,试题题型,附加参数) values(" & dxi + i + 1 & ",'" & tm & "','" & an & "'," & fs & "," & ID & ",'" & tx & "'," & cs & ")"
            q.ExecuteSQL(str)
        Next
        For i = 0 To pdi - 1
            Dim mn As Integer = pdt_dest(i)
            Dim tm As String = pdt_table.Rows(mn).Item("试题")
            Dim fs As Integer = pdt_table.Rows(mn).Item("试题分数")
            Dim an As String = pdt_table.Rows(mn).Item("答案")
            Dim ID As Integer = pdt_table.Rows(mn).Item("试题ID")
            Dim tx As String = pdt_table.Rows(mn).Item("试题题型")
            Dim cs As Integer = pdt_table.Rows(mn).Item("附加参数")
            str = "insert into " & Session("table") & Session("username") & "暂时(ID,试题,答案,试题分数,试题ID,试题题型,附加参数) values(" & dxi + mxi + i + 1 & ",'" & tm & "','" & an & "'," & fs & "," & ID & ",'" & tx & "'," & cs & ")"
            q.ExecuteSQL(str)
        Next
        For i = 0 To pxi - 1
            Dim mn As Integer = pxt_dest(i)
            Dim tm As String = pxt_table.Rows(mn).Item("试题")
            Dim fs As Integer = pxt_table.Rows(mn).Item("试题分数")
            Dim an As String = pxt_table.Rows(mn).Item("答案")
            Dim ID As Integer = pxt_table.Rows(mn).Item("试题ID")
            Dim tx As String = pxt_table.Rows(mn).Item("试题题型")
            Dim cs As Integer = pxt_table.Rows(mn).Item("附加参数")
            str = "insert into " & Session("table") & Session("username") & "暂时(ID,试题,答案,试题分数,试题ID,试题题型,附加参数) values(" & dxi + mxi + pdi + i + 1 & ",'" & tm & "','" & an & "'," & fs & "," & ID & ",'" & tx & "'," & cs & ")"
            q.ExecuteSQL(str)
        Next
        q.close()
    End Sub
    Public Sub first()
        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 * from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Dim myreader As SqlDataReader = q.GetDataReader(str)
        myreader.Read()
        dxi = myreader("单项选择题量")
        mxi = myreader("多项选择题量")
        pdi = myreader("判断题量")
        pxi = myreader("排序题量")
        myreader.Close()
        str = "select * from " & Session("table") & Session("username") & "暂时"
        myreader = q.GetDataReader(str)
        Dim i As Integer
        Panel2.Width = New Unit(700)
        Panel3.Width = New Unit(700)
        Panel4.Width = New Unit(700)
        Panel5.Width = New Unit(700)