module1.vb

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

Imports System.Data
Imports System.Data.SqlClient
Module Module1
    Public appconn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
    Public tbl As String = "admin"
    Public strsql As String
    Public Sub ExeSQL(ByVal SQLstr As String)
        Dim comd As New SqlCommand
        comd.Connection = appconn     '连接
        comd.CommandText = SQLstr     '连接语句
        comd.Connection.Open()        '打开
        comd.ExecuteNonQuery()        '执行
        comd.Connection.Close()       '关闭
    End Sub
    Private _Subject As String = "计算机"
    Public Property Subject()
        Get
            Return _Subject
        End Get
        Set(ByVal Value)
            _Subject = Value
        End Set
    End Property
    '将该题设置为已选
    Public Function SetReaded(ByVal QuestionID As String)
        strsql = "update question set haveselect=1 Where id=" & CInt(QuestionID)
        ExeSQL(strsql)
    End Function
    ' 将该课程所有的考题初始化
    Public Sub SetRead()
        strsql = "update question set haveselect=0 where subjectname='" & Subject & "'"
        ExeSQL(strsql)
    End Sub
End Module