asp+sqlserver2000开发聊天室是遇到数据库连接问题

Question

if  rs.eof then
  response.write "<br>no this man "
else
response.write rs("password")   
end if

Answer 1

判断写反了.dim conn,rs,sql,connstr
connstr="driver={SQL Server};server=mycomputer;uid=sa;pwd=1;database=mychat;"
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
set rs=Server.createobject("adodb.recordset")sql="select * from userinfo where userid='aa'  "
rs.open sql,conn
if  rs.eof then  '没有记录是为真
  response.write "<br>no this man "
        else
  response.write rs("password")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

Answer 2

TRY:
dim conn,rs,sql,connstr
connstr="driver={SQL Server};server=mycomputer;uid=sa;pwd=1;database=mychat;"
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
set rs=Server.createobject("adodb.recordset")sql="select * from userinfo where userid='aa'  "
rs.open sql,conn
if  not rs.eof then
  response.write rs("password")
        else
  response.write "<br>no this man "
end if
rs.close
set rs=nothing
conn.close
set conn=nothing