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

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

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

友情提示：

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

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