zhuce.aspx.vb

教务选课系统 教务选课系统 教务选课系统

Imports System.Data
Imports System.Data.OleDb
Partial Class zhuce
    Inherits System.Web.UI.Page



    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyCon1 As New OleDbConnection()
        Dim cmd1 As New OleDbCommand()
        Dim cmd2 As New OleDbCommand()
        Dim cmd3 As New OleDbCommand()
        Dim reader1 As OleDbDataReader

        MyCon1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
        MyCon1.Open()
        cmd1.Connection = MyCon1
        cmd1.CommandType = CommandType.Text
        cmd1.CommandText = "select * from yonghu where 用户名='" & TextBox1.Text & "'"
        reader1 = cmd1.ExecuteReader()
        If reader1.Read = True Then
            Response.Write("<script language = vbscript>alert""用户名已存在""</script>")
            reader1.Close()
            cmd1.Cancel()
        ElseIf TextBox2.Text = TextBox3.Text Then
            cmd2.Connection = MyCon1
            cmd2.CommandType = CommandType.Text
            cmd2.CommandText = "insert into yonghu(用户名,密码,等级) values('" & TextBox1.Text & "','" & TextBox2.Text & "', '2 ')"
            cmd2.ExecuteNonQuery()
            cmd2.Cancel()
            cmd3.Connection = MyCon1
            cmd3.CommandType = CommandType.Text
            cmd3.CommandText = "insert into xskc(yonghuming,作业) values('" & TextBox1.Text & "','未选')"
            cmd3.ExecuteNonQuery()
            cmd3.Cancel()

            MyCon1.Close()
            Session("yonghuming") = TextBox1.Text
            Response.Redirect("xuesheng.aspx")
        End If

    End Sub
End Class