ASP登陆问题
先看代码
----------------------------------
<%
If Isempty(Session("Passed")) Then
Session("Passed")=False
End If
If Session("Passed")=False Then
'读取从表单传递过来的身份数据
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=LENOVO-PC;UID=sa;PWD=niansen;Database=Discuss"
Conn.Open
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection=Conn
rs.CursorType=3
rs.Open"select * from Users where UserName="&Trim(UserName)&""
If rs.EOF Then
Session("Errmsg")="用户不存在"
Else
If UserPwd<>rs.Fields("UserPwd") Then
Session("Errmsg")="密码不正确"
Else
Session("Errmsg")="" '登陆成功
Session("Passed")=True
Session("UserName")=rs.Fields("UserName")
Session("UserId")=rs.Fields("UserId")
End If
End If
End If
'转向页面
Response.Redirect("index.asp")
End If
-------------------------------------------------
输入正确的用户名和密码后,提示:
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]列名 'sensen' 无效。
/web/Inetpub/wwwroot/web/forum/ChkPwd.asp, 第 21 行
******************************
不知道这是什么原故,请大家指点