下列是想要实现,注册 时 出现“该账号已经被他人注册了”的提示,
问题是: 提示框 出现了俩次! 是什么原因? 帮忙看下 谢谢!
Imports System.Data
Imports System.Data.SqlClientPartial Class SignUp
Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
btnSubmit.Attributes.Add("onclick", "return validate()") 'java validate 判断textbox是否填充
End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim myConn As New SqlConnection("Data Source = .\SQLEXPRESS; AttachDbFilename = |DataDirectory|\Books.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim myCommand As New SqlCommand("Insert into account values('" & name.Text & "' , '" & newpassword.Text & "',getdate() )", myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
Response.Write("<script language=javascript> alert('Welcome " + name.Text + ", 你已经注册成功'); window.location.href='Login.aspx';</script>")
Catch
Response.Write("<script language=javascript> alert('您所注册的" + name.Text + "已经被他人注册了;')</script>") Finally
myConn.Close()
End Try End SubEnd Class
问题是: 提示框 出现了俩次! 是什么原因? 帮忙看下 谢谢!
Imports System.Data
Imports System.Data.SqlClientPartial Class SignUp
Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
btnSubmit.Attributes.Add("onclick", "return validate()") 'java validate 判断textbox是否填充
End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim myConn As New SqlConnection("Data Source = .\SQLEXPRESS; AttachDbFilename = |DataDirectory|\Books.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim myCommand As New SqlCommand("Insert into account values('" & name.Text & "' , '" & newpassword.Text & "',getdate() )", myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
Response.Write("<script language=javascript> alert('Welcome " + name.Text + ", 你已经注册成功'); window.location.href='Login.aspx';</script>")
Catch
Response.Write("<script language=javascript> alert('您所注册的" + name.Text + "已经被他人注册了;')</script>") Finally
myConn.Close()
End Try End SubEnd Class
或用ajax异步查询用户,实现提示
还要加
If Not IsPostBack Then
End If
End If 加哪?实在菜的看不出, 请帮忙 重新排列下 过来看看, 谢谢了
Imports System.Data.SqlClientPartial Class SignUp
Inherits System.Web.UI.Page
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim myConn As New SqlConnection("Data Source = .\SQLEXPRESS; AttachDbFilename = |DataDirectory|\Books.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim myCommand As New SqlCommand("Select Username From Account Where Username = '" & name.Text & "'", myConn)
myConn.Open() Dim myReader As SqlDataReader
myReader = myCommand.ExecuteReader()
myReader.Read()
If name.Text = myReader("Username") Then
Response.Write("<script language=javascript> alert('您所注册的" + name.Text + "已经被他人注册了;')</script>")
End If
myReader.Close()
myConn.Close()
End Sub
End Class
以上代码 都没问题!!!原来是 那个 button有问题,删除重新 建一个就好了!!!!!原因不详