日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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 = "請確認您的輸入！"  
  
  
  
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)方法就為大家介紹到這里。

分享標題：VB.NET用戶登錄頁面實現(xiàn)技巧分享
當前URL：http://www.dlmjj.cn/article/dheiejd.html