主题：[求助]open qq 连接问题

改一改服务器端的登录代码

 

 

MessageBox.Show(e.UserName)

Dim dr1 As DataRow

dr1 = DataTables("Users").Find("Name = '" & e.UserName & "'")

If dr1 Is Nothing  Then '判断此用户不存在

    e.Message  = "用户名错误!" '返回给登录者的提示信息

    Return

End If

If dr1("Password") <> e.Password Then '如果密码错误

    e.Message  = "登录密码错误!" '返回给登录者的提示信息

    Return

End If

e.Success = True '允许用户登录