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 "請檢查用戶表結(jié)構(gòu)是否正確"
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
posted on 2011-09-27 21:51
sanmao 閱讀(310)
評論(0) 編輯 收藏