VB.NET的應(yīng)用方式比較簡單靈活，大多數(shù)開發(fā)人員在剛接觸這門語言不久后就被他的靈活易用，功能強大等特點深深吸引住了。我們今天將會為大家介紹的實用技巧是VB.NET用戶登錄頁面的實現(xiàn)方法，希望能給大家?guī)硪恍椭?/p>

VB.NET用戶登錄頁面代碼示例：

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 = "請確認(rèn)您的輸入！"   
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  

VB.NET用戶登錄頁面相關(guān)實現(xiàn)方法就為大家介紹到這里。

【編輯推薦】

1. VB.NET加密文件實現(xiàn)技巧分享
2. VB.NET數(shù)組賦值怪異現(xiàn)象揭秘
3. VB.NET自定義屬性應(yīng)用方式解析
4. VB.NET異常迭代捕捉代碼示例
5. VB.NET共享成員變量創(chuàng)建技巧解析