代码：
<%
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没有变色，为黑色，
希望高手指点以下，
谢谢
IP卡
狗仔卡
发表于 2010-1-18 05:17:05
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡