UC知道如何验证用户名和密码？如果用户名或者密码与数据库中的不一致，如何弹出提示对话框？
来源：百度知道 编辑：UC知道 时间：2024/05/26 18:13:49
在登录页面用户填写用户名、密码和附加码登录的时候，用户名和密码还有附加码都不能为空，这个我会做，但是用户点击登录的时候如何验证用户名或者密码与数据库中用户的是否一致，这个我不会做，请问一下，哪位高手会写这个代码啊？最好自己试过没有问题的，vbscript的更好了！
要是把整个的都写出来，本人将不胜感激！
要是行的话就把用户名、密码和附加码都不能为空以及判断用户名、密码和附加码是否正确以及弹出提示框的代码都写出来吧。
本人有急用
asp用户登录网页中第一文本框是user（共用户输入用户名的），第二个是password（供用户输入密码的），第三个是extra（供用户输入附加码的），数据库用户名是username，密码是password，麻烦各位再根据我的补充改一下吧。
不胜感激！
要是把整个的都写出来，本人将不胜感激！
要是行的话就把用户名、密码和附加码都不能为空以及判断用户名、密码和附加码是否正确以及弹出提示框的代码都写出来吧。
本人有急用
asp用户登录网页中第一文本框是user（共用户输入用户名的），第二个是password（供用户输入密码的），第三个是extra（供用户输入附加码的），数据库用户名是username，密码是password，麻烦各位再根据我的补充改一下吧。
不胜感激！
Private Sub cmdOK_Click()
If Text2.Text = "" Then
MsgBox "请输入密码！", vbOKOnly, ""
Text2.SetFocus
Exit Sub
End If
'取得用户输入的用户名和密码
user = Trim(Text1)
pwd = Trim(Text2)
frmMain.mnusername = user
frmMain.mnuserpwd = pwd
Dim r As New ADODB.Recordset
Set r = DataEnv.rsUsers
Dim strSQL As String
Select Case cmbQuan.ListIndex
Case 0:
strSQL = "select * from users where uname='" & user & "'and upwd='" & pwd & "'"
'Case 1:
'strSQL = "select * from student where sname='" & user & "'and sid='" & pwd & "'"
Case 1:
strSQL = "select * from teacher where tname='" & user & "'and tid='" & pwd & "'"
End Select
On Error Resume Next
If r.State = adStateOpen Then