<%@ LANGUAGE="VBSCRIPT" %> <!--#include file="adovbs.inc"--> <!--#include file="conn.asp" --> <% set rs=server.createobject("adodb.recordset") sqltext="select top 8 * from Product order by regtime desc" 'rs.open sqltext,conn,1,1 rs.open sqltext,conn set rs_class_1=server.createobject("adodb.recordset") sqltext2="select * from Class_1 " rs_class_1.open sqltext2,conn,1,1 %> <% While Not rs_class_1.EOF set rs_class_2=server.createobject("adodb.recordset") sqltext3="select * from Class_2 where Class_1_Name='" & rs_class_1("Class_1_Name") & "'" rs_class_2.open sqltext3,conn,1,1 %> <%j=1%> <%While Not rs_class_2.EOF%> <%if j mod 1 = 0 then %> <%end if%> <% rs_class_2.MoveNext j=j+1 Wend rs_class_2.close %> <% rs_class_1.MoveNext Wend rs_class_1.close 我将一个完好的源码上的这段代码复制到另一个空白页上，放在同一目录中，绝对不会是数据库出错，但是用IIS浏览显示全白并没提错，不显示数据里面的内容，整个页面就是这一段代码没有其它了。问题出在那里呢