% myDSN="DSN=xur;uid=xur;pwd=xur" mySQL="select * from authors where AU_ID100" set conntemp=server.createobject("adodb.connection") conntemp.open myDSN set rstemp=conntemp.execute(mySQL) if rstemp.eof then response.write "噢,数据库为空!" response.write mySQL conntemp.close set conntemp=nothing response.end end if%> %do until rstemp.eof %> % rstemp.movenext loop rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing