kecheng.aspx.vb

来自「教务选课系统 教务选课系统 教务选课系统」· VB 代码 · 共 30 行

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = Session("yonghuming")
    End Sub

    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()

        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 = "insert into kecheng(课程名称,开课时间,班级,jiaoshiming) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" Session("yonghuming")"')"
        cmd1.ExecuteNonQuery()
        cmd1.Cancel()

        MyCon1.Close()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("jiaoshi.aspx")
    End Sub
End Class