Question

如何验证用户名和密码？如果用户名或者密码与数据库中的不一致，如何弹出提示对话框？

在登录页面用户填写用户名、密码和附加码登录的时候，用户名和密码还有附加码都不能为空，这个我会做，但是用户点击登录的时候如何验证用户名或者密码与数据库中用户的是否一致，这个我不会做，请问一下，哪位高手会写这个代码啊？最好自己试过没有问题的，vbscript的更好了！
要是把整个的都写出来，本人将不胜感激！
要是行的话就把用户名、密码和附加码都不能为空以及判断用户名、密码和附加码是否正确以及弹出提示框的代码都写出来吧。
本人有急用
asp用户登录网页中第一文本框是user（共用户输入用户名的），第二个是password（供用户输入密码的），第三个是extra（供用户输入附加码的），数据库用户名是username，密码是password，麻烦各位再根据我的补充改一下吧。
不胜感激！

Answer 1

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 r.Close
r.Open strSQL

Static nTryCount As Integer
If r.EOF Then
MsgBox "对不起，无此用户或密码不正确！请重新输入！！", vbCritical, "错误"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统！", vbCritical, "错误"
Unload Me
End If
Else

With frmMain
.mnusertype = mnusertype
.mnusername = user
End With
Load frmMain
frmMain.Show
Unload Me
End If
End Sub

Answer 2

你很贪心，o(∩_∩)o...

思路是用户所输入的作为查询条件，如果查询的结果条数不为0则是合法的用户，
若不合法则用 msgbox 弹出出错信息。