test.asp 如果text为空值的话<% dim conn dim connstr on error resume next connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.CreateObject("ADODB.CONNECTION") conn.open connstr %><% sql = "select * from members where text is null" set rs = conn.Execute(sql) Response.Write rs(0) %>
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%><%
sql = "select * from members where text is null"
set rs = conn.Execute(sql)
Response.Write rs(0)
%>