vb点虐 网络登陆页面 vbnet登录界面连接access

关于 vb点虐 如何实现 点击网页登陆按钮

protected void Button1_Click(object sender, EventArgs e)

我们提供的服务有：成都做网站、成都网站设计、微信公众号开发、网站优化、网站认证、中方ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的中方网站制作公司

{

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用户怎么登录界面？用户登陆的代码是多少？

vb登陆程序源代码\x0d\x0a\x0d\x0a你可以这样做建一个模块在里面输入下列\x0d\x0aPublic conn As ADODB.Connection\x0d\x0aSub main()\x0d\x0a Set conn = New ADODB.Connection\x0d\x0a conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _\x0d\x0a + "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"\x0d\x0a conn.Open\x0d\x0afrom1.Show ’登录界面\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a再在登录界面“确定”下写入如下代码：\x0d\x0aPrivate Sub Command1_Click()\x0d\x0a If id.Text = "" Then\x0d\x0a MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"\x0d\x0a id.SetFocus\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a If password.Text = "" Then\x0d\x0a MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"\x0d\x0a password.SetFocus\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a\x0d\x0a Dim strSQl As String\x0d\x0a strSQl = "select * from Users where users_name='" Trim$(id.Text) "' and password='" Trim$(password.Text) "' "\x0d\x0a \x0d\x0a Dim str As New ADODB.Recordset\x0d\x0a Set str = New ADODB.Recordset\x0d\x0a str.CursorLocation = adUseClient\x0d\x0a str.Open strSQl, conn, adOpenStatic, adLockReadOnly\x0d\x0a \x0d\x0a With str\x0d\x0a If .State = adStateOpen Then .Close\x0d\x0a .Open strSQl\x0d\x0a If .EOF Then\x0d\x0a Try_times = Try_times + 1\x0d\x0a If Try_times = 3 Then\x0d\x0a MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"\x0d\x0a Unload Me\x0d\x0a Else\x0d\x0a MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"\x0d\x0a id.SetFocus\x0d\x0a id.Text = ""\x0d\x0a password.Text = ""\x0d\x0a End If\x0d\x0a Else\x0d\x0a \x0d\x0a Unload Me\x0d\x0a \x0d\x0a Form2.Show ’登录进入的另一个界面\x0d\x0a \x0d\x0a End If\x0d\x0a End With\x0d\x0a\x0d\x0aEnd Sub

请教一个关于vb点虐 登录界面的问题

你的算法非常的傻，剧慢没有可用性。

用一个sql查询 查找 密码=输入密码，用户名等于输入的用户的记录，找到了即登录..

dim oRd as new recordset

dim db as connection ' 用db打开数据库

dim sa as string

sa=”select * from table where username='" txtDIM_Username.Text _

"' and userpassword='" txtDIM_Password.Text "'"

ord.open sa,db

if ord.eof() or ord.bof()

‘未找到，不能登录

else

'找到 登录成功....

endif

vb点虐 用户登录

哈哈简单哪

第一步：登陆网页代码

第二步：登陆以后判断是否登陆成功

有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样

源代码：

2.就是判断网页是否跳转到了某一页

源代码：

两种方法结合起来用，可以判断网页是否无法连接