朋友面试试题求答案！

<%
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=test;"
set conn = Server.CreateObject("ADODB.Nonnection")
conn.Open sConn
set rs = conn.Execute("select * from [l1000]")
do until rs.EOF
  for i=0 to rs.fields.count - 1
    Response.Write rs.fields(i).name & "=" & rs.fields(i).value & "<BR>"
  next
  rs.moveNext
loop
rs.close
conn.close
set conn=nothing
%>