简单的登陆问题
我想把我的UserPwd跟数据库中的Col002或Col003比较,只要有一个相等,就可登陆,
如果UserPwd=Col002就Session("UserId") = rs.Fields("Col002")
如果UserPwd=Col003就Session("UserId") = rs.Fields("Col003")
<%
UserName = request.form("UserName")
UserPwd = request.form("UserPwd")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.ConnectionString="driver={SQL Server};server=cupta;UID=sa;PWD=Iamcupta;Database=GjjChaxun"
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;Database=GjjChaxun"
'连接数据库
Conn.Open
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性,绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM sgx WHERE Col004='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Else
If trim(UserPwd) <> trim(rs.Fields("Col002")) Then
if trim(UserPwd) <> trim(rs.Fields("Col003")) then
Errmsg = "密码不正确"
End if
Else '登录成功
Session("UserId") = rs.Fields("Col002")
Response.Redirect"admin/SHOWCHAXUN.ASP"
End If
End If
End If
%>