If e.PostValues.ContainsKey("卡号") AndAlso e.PostValues.ContainsKey("激活码") Then '判断是否是验证失败后的重新登录
' Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim 卡号 As String
Dim 激活码 As String
卡号 = e.PostValues("卡号")
激活码 = e.PostValues("激活码")
Dim drtk As DataRow
drtk = DataTables("提卡明细").SQLFind("激活码 ='" & 激活码 & "' and 卡号 ='" & 卡号 & "'")
If drtk IsNot Nothing Then
Verified = True '验证正确
Else
wb.AddTopTips("", "toptip1", "卡号或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
End If
End If