Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click
創新互聯專注于仲巴企業網站建設,自適應網站建設,購物商城網站建設。仲巴網站建設公司,為仲巴等地區提供建站服務。全流程定制開發,專業設計,全程項目跟蹤,創新互聯專業和態度為您提供的服務
If TextBox Text = Or TextBox Text = Then
Label Text = 請確認您的輸入!
Return
End If
Dim sql As String = select * from pwd where stu_id=@stu_id and pwd=@pwd
Dim m As SqlCommand = New SqlCommand(sql conn)
m Parameters Add(New SqlParameter( @stu_id SqlDbType Int ))
m Parameters( @stu_id ) Value = TextBox Text
m Parameters Add(New SqlParameter( @pwd SqlDbType Char ))
m Parameters( @pwd ) Value = TextBox Text
Dim dr As SqlDataReader
conn Open()
dr = m ExecuteReader
If dr Read Then
Session( stu_id ) = TextBox Text
dr Close()
m Cancel()
Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id
m = New SqlCommand(sql_ conn)
m Parameters Add(New SqlParameter( @stu_id SqlDbType Int ))
m Parameters( @stu_id ) Value = Session( stu_id )
m ExecuteNonQuery()
m Cancel()
Response Redirect( detail aspx?stu_id= Session( stu_id ) )
Else
Label Text = 您還沒有注冊或賬號密碼錯誤
End If
End Sub
Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click
TextBox Text =
TextBox Text =
lishixinzhi/Article/program/net/201311/13960
哈哈簡單哪
第一步:登陸網頁代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網頁代碼,判斷網頁字符有無”登陸成功”字樣
源代碼:
2.就是判斷網頁是否跳轉到了某一頁
源代碼:
兩種方法結合起來用,可以判斷網頁是否無法連接
你每次取出的是表中的首條記錄,當然只能用首條記錄登陸了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失敗")
End If
dr.Close()
conn.Close()
這種情況下,效率極不好!你能理解什么意思就行了!否則將你的程序改完了!
protected void Button1_Click(object sender, EventArgs e)
{
if (TextBox1.Text == "" || TextBox2.Text == "")
{
Response.Write("scriptalert('用戶名或密碼不能為空!')/script"); //提示對話框
}
else
{
string ConStr = "server=(local);user id=sa;pwd=123456;database=userdb";
SqlConnection con = new SqlConnection(ConStr);
string SqlStr = "select * from mymember where sname = '" + TextBox1.Text + "' and spwd = '" + TextBox2.Text + "'"; //Select查詢語句
SqlDataAdapter ada = new SqlDataAdapter(SqlStr, con);
con.Open(); //打開連接
DataSet ds = new DataSet();
ada.Fill(ds);
if (ds.Tables[0].Rows.Count 0)
{
Session["username"] = TextBox1.Text;
Response.Redirect("index.aspx");
}
else
{
Response.Write("scriptalert('用戶名或密碼錯誤,請重新登錄!')/script");
}
} //綁定GridView控件
}
Cookie丟了
登陸的時候,把CookieContainer保存下來,可以設置一個全局變量,然后再getBody的時候,
request.Cookiecontainer設置為這個CookieContainer即可
網站名稱:vb.net網頁登錄 VB登錄界面
瀏覽路徑:http://m.kartarina.com/article44/hgjghe.html
成都網站建設公司_創新互聯,為您提供電子商務、軟件開發、面包屑導航、企業網站制作、企業建站、用戶體驗
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯