文件名称：毕业设计报告
文件大小：4.5MB
文件格式：DOC
更新时间：2016-05-09 17:46:08
.net
系统开发的整体思想构造+源代码Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click Dim conn As New OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=websitedesigning;Data Source=.") Dim str, str1, xiu As String xiu = Session("username") str = "update reguser set password='" & password.Text & "'where username='" & username.Text & "'and email='" & email.Text & "' and question='" & question.SelectedItem.Text & "' and type='" & role.SelectedItem.Text & "' and answer ='" & answer.Text & "' " str1 = "select * from reguser where username='" & username.Text & "'and email='" & email.Text & "' and question='" & question.SelectedItem.Text & "' and type='" & role.SelectedItem.Text & "' and answer ='" & answer.Text & "'" Dim cmd As New OleDbCommand(str1, conn) Dim cmd2 As New OleDbCommand(str, conn) conn.Open() cmd.ExecuteNonQuery() cmd2.ExecuteNonQuery() Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.Read() = True Then conn.Close() If xiu = "教师" Then Response.Redirect("default2.aspx") End If If xiu = "学生" Then Response.Redirect("default3.aspx") End If Else message.Text = "密码修改不成功" End If End Sub Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click email.Text = "" answer.Text = "" password.Text = "" password1.Text = "" End Sub