读书人

一个用户注册程序点了提交按钮没反映

发布时间: 2012-01-18 00:23:26 作者: rapoo

一个用户注册程序,点了提交按钮没反映。今天非弄出来不可,高手进!
我是用asp.net+sql做的.我照书上说的先试了下,不验证,直接加4个TEXTBOX,曾做登陆的时候有个表user,里面有uid,uname,upassword,uemail.然后就直接插入数据试了下,不报错,点了没反映.程序如下:Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim connectionstring As String
Dim mycon As SqlConnection
Dim mycom As SqlCommand
mycon = New SqlConnection( "server=COOL-7N7Q6EFTJP;uid=sa;pwd=123;database=users ")
'建立操作数据库的命令
Dim strinsert As String
strinsert = "insert into userinfo(uname,upassword,uemail) values(@NAME,@PASSWORD,@EMAIL) "
mycom = New SqlCommand(strinsert, mycon)
mycom.Parameters.Add(New SqlParameter( "@NAME ", SqlDbType.NVarChar))
mycom.Parameters( "@NAME ").Value = Username.Text
mycom.Parameters.Add(New SqlParameter( "@PASSWORD ", SqlDbType.NVarChar))
mycom.Parameters( "@PASSWORD ").Value = Password.Text
mycom.Parameters.Add(New SqlParameter( "@EMAIL ", SqlDbType.NVarChar))
mycom.Parameters( "@EMAIL ").Value = Email.Text
Dim added As Integer
mycon.Open()
Try
added = mycom.ExecuteNonQuery

If added > 0 Then

Response.Redirect( "login.aspx ")
End If
Catch err As Exception
Trace.Write(err.Message)

Finally
If (Not mycon Is Nothing) Then
mycon.Close()
End If
End Try




End Sub
End Class  (点了成功插入应该跳转,但是不动,双击Submit_Click存在啊)
(插入语句我试过写成Dim strinsert As String
strinsert = "insert into userinfo(uname,upassword,uemail) values( ' " + username.Text + " ', ' " + password.Text + " ', ' " + email.Text + " ') "
mycommand = New SqlCommand(strinsert, myconnection)还是点了没反映)
  还有个问题:书上要验证的话说加个Public Function IsChecked() As Boolean,这个具体放在什么地方.

[解决办法]
我想这个IsChecked() 是判断用户输入格式是否正确的.

uid是自动编号吧.mycom.ExecuteNonQuery加().


其他的看不出

------------------------
http://fenglin.xland.cn
------------------------

读书人网 >asp.net

热点推荐