select.aspx.vb

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

Public Class _Select
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

    '注意: 以下占位符声明是 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
    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") <> 1) Then
                    Response.End()
                End If
            Catch ex As Exception
                Response.Write("您还登录,请您先登录<a href='Login.aspx'>首页</a>")
                Response.End()
            End Try
            Dim q As SqlClass = New SqlClass
            q.Open()
            Dim str As String = "select 用户名 from 成绩登记表 where 试卷名称='" & Request("ID") & Session("username") & "' and 当前状态='正在考试'"
            If (q.GetString(str) = "") Then
                LinkButton1.Text = "直接进入" & Request("ID")
                LinkButton1.Visible = True
            Else
                LinkButton1.Text = Request("ID") & "(有断线记录，继续)"
                LinkButton1.Visible = True
                LinkButton2.Text = Request("ID") & "(有断线记录，不继续)"
                LinkButton2.Visible = True
            End If
            q.close()
        End If

    End Sub

    Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Dim q As New SqlClass
        q.Open()
        Dim Str As String = "select 时间 from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Session("time") = q.GetInt(Str)
        q.close()
        Session("table") = Request("ID")
        Response.Redirect("test1.aspx")
    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()
        Session("table") = Request("ID")
        Dim Str As String = "select 时间 from 试卷名称表 where 试卷名称='" & Session("table") & "'"
        Dim i As Integer = q.GetInt(Str)
        If LinkButton2.Visible = False Then
            Session("time") = i
            Response.Redirect("test1.aspx")
        Else
            Session("table") = Request("ID")
            Str = "select 时间 from 成绩登记表 where 试卷名称='" & Session("table") & Session("username") & "' and 当前状态='正在考试'"
            Session("time") = i - q.GetInt(Str)
            Response.Redirect("test.aspx")
        End If
        q.close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
End Class