代码：

<%

dim cnn, rs,sql,mm

mm=request.Form("mm")

set cnn=server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

cnn.connectionstring= "driver={SQL server};server=billgates;"&_

"uid=sa;pwd=111;database=school"

cnn.open

rs.open "pswd", cnn

rs.find "un='&mm&'"

if not rs.eof then

%>

<table border=”1”>

<%

For i=0 to rs.fields.count-1

%>

<tr><th><% =rs(i).name %></th><td><% =rs(i) %></td></tr>

<% next %>

</table>

<% else %>

<p> 没有找到合适的记录</p>

<% end if %>

运行的时候报错说行集不能反向滚动

另外rs.find中find没有变色，为黑色，

希望高手指点以下，

谢谢