28,390
社区成员
发帖
与我相关
我的任务
分享
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dbc.mdb")
conn.Open connstr
for i=1 to 200
sql="select * from c where a1=4 and a2="&i
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.close
next
%>