展开全部
set rs = server.createobject("ADODB.RecordSet")
SQL = "Select * From [会员表] where 用户名 = '&会员变量&'"
Rs.Open SQL,Conn,1,1
If Not Rs.Eof Then
If Rs("密码字段") <> "密码变量" Then
Response.Write "密码不正确,请重新输入!"
Response.End
Else
'这里用户名和密码都正确了,那么你可以在这里加入Session存储等操作
End If
Else
Response.Write "用户名不存在,请重试!"
Response.End
End If
SQL = "Select * From [会员表] where 用户名 = '&会员变量&'"
Rs.Open SQL,Conn,1,1
If Not Rs.Eof Then
If Rs("密码字段") <> "密码变量" Then
Response.Write "密码不正确,请重新输入!"
Response.End
Else
'这里用户名和密码都正确了,那么你可以在这里加入Session存储等操作
End If
Else
Response.Write "用户名不存在,请重试!"
Response.End
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询