asp 获取数据集

asp 获取数据集

Set rs = server.CreateObject("adodb.recordset")
 rs.open "select isnull(FLBZ,'F') FLBZ from INV_LPXX where CPMC='" & tempKuan & "'",conn,1,1
 If Err Then
    Response.write "请检查用户表结构是否正确"
    Response.End
 End If  
 Response.Clear()
 If Not rs.eof Then
 Response.Write("{status:" &LCase(trim(rs("FLBZ"))="Y") &"}")
 else
 Response.Write("{status:false}")
 End IF
 Response.End()
 rs.close
 Set rs = Nothing