VB6 and ASP 制作管理系统1--VB6制作用户登录

今天做用户登录的时候，智障了……

---------------------------------------------------------------------------------

友情提示：

登录的时候总提示密码错误，

Print IIf( Trim(rs.Fields( " password ")) = password,  " 相等 ",  " 不相等 ")

找了好久，才发现：

SQL2000 设计数据库的时候，字段中，字符串要设计成可变长度（varchar），

如果设计成char固定长度，那么，如果你的字符串不够长度，数据库会自动用空格补齐。

---------------------------------------------------------------------------------

 VB6—>填加窗体—>保存为Login.frm

添加两个标签：

lable1.Caption="用户名："

lable2.Caption="密码："

添加两个文本框：

 text1命名为txtUser

 text2命名为txtPass

 

Login.frm代码如下：

 1  ' 用户登录代码
 2  Public  Sub userlogin()
 3 
 4      If txtUser.Text =  ""  Then
 5          MsgBox  " 用户名不可为空 "
 6         txtUser.SetFocus
 7          Exit  Sub
 8      End  If
 9      If txtPass.Text =  ""  Then
10          MsgBox  " 密码不可为空 "
11         txtPass.SetFocus
12          Exit  Sub
13      End  If
14     
15     username =  Trim(txtUser.Text)
16     password =  Trim(txtPass.Text)
17     
18      Call OpenConn
19     
20     sql =  " select * from vuinfo where username=' " & username &  " ' "
21     rs.Open sql, conn,  1,  1
22      ' 判断用户是否存在
23       If rs.EOF  Then
24         MsgBox  " 用户名不存在 "
25        txtUser.SetFocus
26         Call CloseConn
27         Exit  Sub
28      End  If
29      ' 判断用户密码
30       If rs.Fields( " password ") <> password  Then
31          MsgBox  " 密码错误 "
32          Call CloseConn
33          Exit  Sub
34          Else
35         username = rs.Fields( " username ")
36         password = rs.Fields( " password ")
37         userPower = rs.Fields( " userPower ")
38          Call CloseConn
39         infop.Show  ' 显示管理界面
40          Unload Login  ' 卸载登录窗体
41       End  If
42  End Sub

 

 

转载于:https://www.cnblogs.com/findw/archive/2012/03/17/2403012.html