Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Label1.text=""
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
Dim strConnect As String=”data source=pengbiao;initial catalog=test;user id=sa;password=;”
MyConnection=New System.Data.SqlClient.SqlConnection(strConnect)
MyConnection.open
MyCommand = New SqlDataAdapter("select * from USER_T where NAME='" + textbox1.text + "' AND PASSWORD='" + textbox2.text + "'", myConnection)
DS = new DataSet()
MyCommand.Fill(DS, "Titles")
Label1.text="用户名或密码错误,请重新登陆。"
response.write("<script lanjuage=javascript>window.open('main.aspx');</script>")
' MyList.DataSource = DS.Tables("Titles").DefaultView
' MyList.DataBind()
End Sub
</script>