dim tcon,trs,ysql
 set tcon=server.createobject("ADODB.Connection")
 tcon.open "driver={Microsoft Access Driver (*.mdb)};dbq=" &server.MapPath("jhgjh.mdb")
 set trs=server.createobject("ADODB.Recordset")
 ysql="select * from yuserinfo where yuser='" & trim(Request("user_name")) & "'"
 trs.open ysql,tcon,3
 if trs.recordcount <>0 then
  Response.Redirect "error.asp?cause=3"
 end if
 trs.close
 set trs=nothing
 tcon.close
 set tcon=nothing

如果游标类型为2就是空的

如果游标类型为3就有