下列是想要实现,注册 时 出现“该账号已经被他人注册了”的提示,
问题是: 提示框 出现了俩次! 是什么原因? 帮忙看下 谢谢!
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

解决方案 »

  1.   

    不用Rsponse.Write,用Page.ClientScript.RegisterClientScript()试试。
      

  2.   

    先查询name.Text 值在数据库中是否存在提示已注册
    或用ajax异步查询用户,实现提示
    还要加
    If Not IsPostBack Then 
        
    End If 
      

  3.   

    If Not IsPostBack Then
       
    End If 加哪?实在菜的看不出, 请帮忙 重新排列下 过来看看, 谢谢了
      

  4.   

    下列 同样 出现俩次 提示,怎么加 ~~怎么改?Imports System.Data
    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
      

  5.   

    问题解决,
    以上代码 都没问题!!!原来是 那个 button有问题,删除重新 建一个就好了!!!!!原因不详