vb.net網頁登錄 VB登錄界面

一個vb.net的用戶登陸頁面代碼

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

vb.net 用戶登錄

哈哈簡單哪

第一步:登陸網頁代碼

第二步:登陸以后判斷是否登陸成功

有兩種方法:1.獲取網頁代碼,判斷網頁字符有無”登陸成功”字樣

源代碼:

2.就是判斷網頁是否跳轉到了某一頁

源代碼:

兩種方法結合起來用,可以判斷網頁是否無法連接

vb.net 登錄問題

你每次取出的是表中的首條記錄,當然只能用首條記錄登陸了!

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()

這種情況下,效率極不好!你能理解什么意思就行了!否則將你的程序改完了!

關于 vb.net 如何實現 點擊網頁登陸按鈕

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控件

}

vb.net用HttpWebRequest POST登錄成功后再讀取網頁源文件又顯示未登錄

Cookie丟了

登陸的時候,把CookieContainer保存下來,可以設置一個全局變量,然后再getBody的時候,

request.Cookiecontainer設置為這個CookieContainer即可

網站名稱:vb.net網頁登錄 VB登錄界面
瀏覽路徑:http://m.kartarina.com/article44/hgjghe.html

成都網站建設公司_創新互聯,為您提供電子商務軟件開發面包屑導航企業網站制作企業建站用戶體驗

廣告

聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯

成都定制網站網頁設計
主站蜘蛛池模板: 中文字幕av无码不卡| 人妻丰满AV无码久久不卡| 亚洲av无码片vr一区二区三区 | 精品亚洲AV无码一区二区| 亚洲AV无码专区在线亚| 超清纯白嫩大学生无码网站| 西西午夜无码大胆啪啪国模| 狠狠久久精品中文字幕无码| 无码精品久久久天天影视| 久久久久久亚洲av无码蜜芽| 久久久无码人妻精品无码| 国产仑乱无码内谢| 无码中文字幕乱码一区| 无码精品人妻一区二区三区人妻斩| 无码办公室丝袜OL中文字幕 | 无码人妻少妇久久中文字幕蜜桃| 亚洲av无码一区二区三区四区 | 韩国无码AV片在线观看网站| 亚洲A∨无码无在线观看| 无码8090精品久久一区| 无码国产激情在线观看| 无码国内精品久久人妻蜜桃| 国产成人无码免费网站| 无码天堂va亚洲va在线va| 亚洲人成无码网站在线观看 | 日韩av无码中文字幕| 日韩精品无码人成视频手机| 无码人妻H动漫中文字幕| 国产AV无码专区亚洲AV麻豆丫| 色综合久久无码中文字幕| 亚洲av无码精品网站| 无码毛片视频一区二区本码| 中文字幕av无码一区二区三区电影| 成年轻人电影www无码| 亚洲av无码一区二区三区天堂| 亚洲大尺度无码无码专线一区| 亚洲AV成人噜噜无码网站| 亚洲国产精品无码久久久秋霞1 | 国产精品无码专区在线观看| 亚洲AV无码一区二三区 | 久久久久无码国产精品一区|