我做一个注册登录网页,但是调试运行的时候发现直接就会进入第二个登录页面我的注册验证页面无法显示。
这样就不能给数据库存我输入的东西了 这是代码Partial Class Default2
Inherits System.Web.UI.Page
Sub Enter_Click(ByVal Sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("username") = user_name.Text
Application("password") = password1.Text
Application.UnLock()
If Page.IsValid = True Then
Dim strMessage As String
strMessage = "用户名:" & user_name.Text
strMessage = strMessage & "<br>用户密码:" & password1.Text
strMessage = strMessage & "<br>用户年龄:" & age.Text
strMessage = strMessage & "<br>电子信箱:" & email.Text
message.Text = strMessage
End If
End Sub
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
'建立Connection对象()
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\wx\Documents\Visual Studio 2010\WebSites\WebSite1\db1.mdb")
'建立Command对象 Dim strSql As String
strSql = "Insert Into use(uname,passwd,age,email)Values(' & user_name.Text & ',' & password1.Text & ',' & age.Text & ',' & email.Text & ')"
Dim cmd As New OleDbCommand(strSql, conn) Try
'执行操作,插入记录
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Session("UserName") = user_name.Text
Response.Redirect("Default3.aspx") '正常添加后,返回首页
Finally
message.Text = "发生错误,没有正常注册"
End Try
End Sub
End Class
问题在哪里呢?
这样就不能给数据库存我输入的东西了 这是代码Partial Class Default2
Inherits System.Web.UI.Page
Sub Enter_Click(ByVal Sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("username") = user_name.Text
Application("password") = password1.Text
Application.UnLock()
If Page.IsValid = True Then
Dim strMessage As String
strMessage = "用户名:" & user_name.Text
strMessage = strMessage & "<br>用户密码:" & password1.Text
strMessage = strMessage & "<br>用户年龄:" & age.Text
strMessage = strMessage & "<br>电子信箱:" & email.Text
message.Text = strMessage
End If
End Sub
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
'建立Connection对象()
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\wx\Documents\Visual Studio 2010\WebSites\WebSite1\db1.mdb")
'建立Command对象 Dim strSql As String
strSql = "Insert Into use(uname,passwd,age,email)Values(' & user_name.Text & ',' & password1.Text & ',' & age.Text & ',' & email.Text & ')"
Dim cmd As New OleDbCommand(strSql, conn) Try
'执行操作,插入记录
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Session("UserName") = user_name.Text
Response.Redirect("Default3.aspx") '正常添加后,返回首页
Finally
message.Text = "发生错误,没有正常注册"
End Try
End Sub
End Class
问题在哪里呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货