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
MsgBox "密码不可为空"
txtPass.SetFocus
Exit Sub
End If

username = Trim(txtUser.Text)
password = Trim(txtPass.Text)

Call OpenConn

sql = "select * from vuinfo where username='" & username & "'"
rs.Open sql, conn, 1, 1
'判断用户是否存在
If rs.EOF Then
MsgBox "用户名不存在"
txtUser.SetFocus
Call CloseConn
Exit Sub
End If
'判断用户密码
If rs.Fields("password") <> password Then
MsgBox "密码错误"
Call CloseConn
Exit Sub
Else
username = rs.Fields("username")
password = rs.Fields("password")
userPower = rs.Fields("userPower")
Call CloseConn
infop.Show '显示管理界面
Unload Login '卸载登录窗体
End If
End Sub