set rs=server.CreateObject("adodb.recordset")
sql="select * from yang_user"
rs.open sql,conn,1,1
response.Write "<table border=1>"
response.Write "<tr>"
for i=0 to rs.fields.Count-1
response.Write "<td>"&rs.fields(i).name&"</td>"
next
response.Write "</tr>"
do while not rs.eof
response.Write "<tr>"
for j=0 to rs.fields.Count-1
response.Write "<td>"&rs.fields(j).value&"</td>"
next
response.Write "</tr>"
rs.movenext
loop
response.Write "</table>"
rs.close