我用ASP做了一个登录界面。如果用户名和密码都正确则显示DISPLAY这个页面。否则显示CW这个页面。
我把用户名和密码放到一个数据表（PTYHDATA）中，这个数据表存在于RLDATA数据库中。

可是现在出现这样一种情况：明明用户名和密码正确，却总是进入CW页面。

请各位指点，下面一段程序错在哪里。
[em12]<%@language=vbscript%>
<% option explicit %>
<% response.buffer=true %>
<%
'open ptyhdata.dmb,rs
dim temp1,temp2,conn,SQLstr,rs
Temp1=trim(Request.Form("ptyhusername"))
Temp2=Request.Form("ptyhuserpassword")
Session("username")=Temp1
Session("password")=Temp2
Session("flag")=False
'连接数据库
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rldata.mdb")
'查询数据库select
SQLstr="SELECT*FROM ptyhdata where name='"&Temp1&"'and password='"&Temp2&"'"
Set rs=Conn.Execute(SQLstr)
if Not (rs.EOF and rs.BOF) then
session("flag")=true

response.redirect"display.asp"
rs.close
end if
if session("flag")<>true then
response.redirect"error.html"
end if

%>[em12]

Session("username")=Temp1 Session("password")=Temp2 放在session("flag")=true 下面

不行啊，还是只显示CW这个页面

cw是哪个呀？

打错了，是error.html

你把Session("flag")=False 去了看看　

去了，也不行。 和原来一样。

<%@language=vbscript%> <% option explicit %> <% response.buffer=true %> <% 'open ptyhdata.dmb,rs dim temp1,temp2,conn,SQLstr,rs Temp1=trim(Request.Form("ptyhusername")) Temp2=Request.Form("ptyhuserpassword") '连接数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rldata.mdb") '查询数据库select SQLstr="SELECT*FROM ptyhdata where name='"&Temp1&"'and password='"&Temp2&"'" Set rs=Conn.Execute(SQLstr) if Not (rs.EOF and rs.BOF) then session("flag")=true Session("username")=Temp1 Session("password")=Temp2 response.redirect"display.asp" rs.close else Session("flag")=False response.redirect"error.html" rs.close end if %>

我也试了，把Session("username")=Temp1 Session("password")=Temp2 这两句放在此位置，但还是不行啊

If Not(Rs.EOF Or Rs.BOF) Then And 改为 Or 看看行吗？

试过了，不行