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