用户登录的代码（用户登录的代码怎么查）

今天给各位分享用户登录的代码的知识，其中也会对用户登录的代码怎么查进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、vb用户怎么登录界面？用户登陆的代码是多少？
• 2、用户登录html代码有哪些？
• 3、vb用户登录代码
• 4、关于asp用户登录代码

vb用户怎么登录界面？用户登陆的代码是多少？

vb登陆程序源代码

你可以这样做建一个模块在里面输入下列

Public conn As ADODB.Connection

Sub main()

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"

conn.Open

from1.Show ’登录界面

End Sub

再在登录界面“确定”下写入如下代码：

Private Sub Command1_Click()

If id.Text = "" Then

MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"

id.SetFocus

Exit Sub

End If

If password.Text = "" Then

MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"

password.SetFocus

Exit Sub

End If

Dim strSQl As String

strSQl = "select * from Users where users_name='" Trim$(id.Text) "' and password='" Trim$(password.Text) "' "

Dim str As New ADODB.Recordset

Set str = New ADODB.Recordset

str.CursorLocation = adUseClient

str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str

If .State = adStateOpen Then .Close

.Open strSQl

If .EOF Then

Try_times = Try_times + 1

If Try_times = 3 Then

MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"

Unload Me

Else

MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"

id.SetFocus

id.Text = ""

password.Text = ""

End If

Else

Unload Me

Form2.Show ’登录进入的另一个界面

End If

End With

End Sub

用户登录html代码有哪些？

html

head

title登陆页面/title

/head

form action="login_conf.jsp" method="post"

用户登陆

用户名：input type="text" name="uname"

密码： input type="password" name="upassword"

input type="submit" value="提交"

input type="reset" value="重置"

/form

/body

/html

****************************************************

验证页面jsp代码如下：

html

head

title用户验证页面/title

/head

h1 登陆范例-登陆成功 /h1

/html

不知道你用啥样的前台 是jsp还是asp.net或者是php

vb用户登录代码

private

sub

denglu_click()

'登陆的单击事件

if

text1.text

=

"用户名"

then

'"用户名"可以自己修改

if

text2.text

=

"密码"

then

'"密码"可以自己修改

msgbox

"欢迎进入本系统"

else

msgbox

"密码不正确，请重新输入"

end

if

else

msgbox

"用户名错误，

请重新输入"

end

if

end

sub

关于asp用户登录代码

仔细一看还真晕，set conn=server.createobject("adobd.connection") ，能是adobd????

完整的代码如下：

1.connection.asp里的代码是:

%

set conn=server.createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source="server.MapPath("student.mdb")

%

2.yanzheng.asp里的代码是:

!--#include file="connection.asp"--

%

dim zhanghao,mima

zhanghao=request("zhanghao")

mima=request("mima")

if zhanghao="" then

%

script language=javascript

alert("帐号为空");

location.href="denglu.asp"

/script

% end if %

% if mima="" then

%

script language=javascript

alert("密码为空");

location.href="denglu.asp"

/script

% end if %

%set rs=server.createobject("adodb.recordset")

rs.open "select * from student where zhanghao='"zhanghao"'",conn,1,3

if not rs.eof then

if mima=rs("mima") then

session("zhanghao")=zhanghao

Response.write("scriptlocation.href('index.asp')/script" )

else

response.write ("scriptalert('用户密码错误');location.href('denglu.asp')/script")

end if

end if

if rs.eof then

response.write ("scriptalert('用户帐号错误');location.href('denglu.asp')/script")

end if

set rs=nothing

rs.close

%

改了两次了，加分加分！！！

关于用户登录的代码和用户登录的代码怎么查的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。