一个vb.net的用户登陆页面代码

2007-2-1　网友评论 0 条　点击进入论坛

Private Sub Button2_Click（ByVal sender As System.Object，
ByVal e As System.EventArgs）
Handles Button2.Click

If TextBox3.Text = "" Or TextBox4.Text = "" Then

Label35.Text = "请确认您的输入！"

Return

End If

Dim sql As String = "select * from pwd where stu_id=@stu_id and pwd=@pwd"

Dim comm As SqlCommand = New SqlCommand（sql， conn）

comm.Parameters.Add（New SqlParameter（"@stu_id"， SqlDbType.Int， 4））

comm.Parameters（"@stu_id"）。Value = TextBox3.Text

comm.Parameters.Add（New SqlParameter（"@pwd"， SqlDbType.Char， 16））

comm.Parameters（"@pwd"）。Value = TextBox4.Text

Dim dr As SqlDataReader

conn.Open（）

dr = comm.ExecuteReader

If dr.Read Then

Session（"stu_id"） = TextBox3.Text

dr.Close（）

comm.Cancel（）

Dim sql_3 As String = "update stu_base set point=point+1 where stu_id=@stu_id"

comm = New SqlCommand（sql_3， conn）

comm.Parameters.Add（New SqlParameter（"@stu_id"， SqlDbType.Int， 4））

comm.Parameters（"@stu_id"）。Value = Session（"stu_id"）

comm.ExecuteNonQuery（）

comm.Cancel（）

Response.Redirect（"detail.aspx？stu_id=''" & Session（"stu_id"） & "''"）

Else

Label35.Text = "您还没有注册或账号密码错误"

End If

End Sub

Private Sub Button1_Click（ByVal sender As System.Object，
ByVal e As System.EventArgs）
Handles Button1.Click

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

今日推荐

• ·信息化 SOA架构中间件发展趋势调查分析
• ·中间件是促进我国软件产业发展的突破口
• ·中国电信业2011年整体IT支出将达461亿元
• ·中间件突出重围 逐渐成为企业应用趋势
• ·安全措施大升级 补丁管理走向自动化

• ·局域网ARP攻击免疫
• ·曙光推出基于龙芯的防火墙产品[组图]
• ·ACL的基本原理、功能与局限性
• ·基于MAC的访问控制列表详解
• ·Rambo安全经验谈：如何应对DoS攻击

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点