请各位老大指点一下吧！谢谢了先！
这个条件永远无法为真，为什么？
<%
If Rs("序号"
=user_id and Rs("密码"
= user_password then
Response.write "欢迎"&Rs("姓名"
&"使用本系统"
else
Response.write "您输入的密码有错误，请重新输入。"
end if
%>
程序如下：
<%
<form action="" method=get>
Your ID <INPUT NAME=" userid " MaxLength=20><p>
Your Password <INPUT NAME=" password " MaxLength=20><p>
<INPUT TYPE=submit><INPUT TYPE=reset>
</form>
user_id=lcase(request.querystring("userid"
)
user_password=lcase(request.querystring("password"
)
Dim Conn,Driver,DBPath,Rs
' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection"
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "userid.xls" )
'调用Open 方法打开数据库
Conn.Open Driver & DBPath
'DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql = "Select * From [Sheet1$] where 序号="& user_id
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "没有这个ID! 请注册！"
Else
Response.write Rs("序号"
&" "&Rs("姓名"
&" "&Rs("密码"
&" "&user_password
%>
<br>
<%
If Rs("序号"=user_id and Rs("密码"= user_password then
‘这个条件永远无法为真，为什么？
'我也试过If Rs("序号"=user_id then和If Rs("密码"= user_password then也不行
Response.write "欢迎"&Rs("姓名"&"使用本系统"
else
Response.write "您输入的密码有错误，请重新输入。"
end if
%> 
<%
End IF
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
'Response.Write "成功！"
%>
userid.xls 结构如下：
No. 姓名 序号 密码
1 kismt 10001 12345a
2 xiaole 10002 67890a
3 tester 10003 12345a
4 vip 10004 22222a
