急!!!数据库问题。看看错在哪里。很简单的
hktl 2003-06-06 03:14:25 <%
bigCount = 0
dim i
i=0
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bigclass order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.Write""
else
bigCount = rs.recordcount
redim big(bigCount)
do while not rs.eof
big(i)=rs("bigclass")
response.Write big(i)
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if
%>
<%
if bigCount > 0 then
i=1
for i=1 to bigCount
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from smallclass WHERE bigclass=" & big(i)
rs1.open sql,conn,3,3
if rs1.eof then
else
response.Write"<tr><td width= 180 valign= middle height= 25 colspan=2 bordercolor=#C0C0C0><b><font color=#7D7D7D>"& big(i) &"</font></b></td></tr>"
response.Write"<tr><td width=19 valign=top height=100 rowspan=4 bordercolor=#C0C0C0> </td>"
do while not rs.eof
response.Write"<td width=159 valign=top height=25 bordercolor=#C0C0C0><font color=#7D7D7D>"& rs1("smallclass") &"</font></td></tr><tr>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
i=i+1
Next
end if
set conn=nothing
%>
rs1.open sql,conn,3,3处错误
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。
/my/index.asp,行73