我写了这么一段程序结果IE上什么也没显示.帮忙看看是什么原因?

<%set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("bbs.mdb") exec="select * from Details where Levels=1 order by DataAndTime desc" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1

'rs.absolutepage=1 分页功能待完善

if not rs.eof then response.Write "<ul>" do while not rs.eof and rowcount>0 response.write "<li>" 'response.Write "<font color="& rs("color") &">"& rs("Title") &"</font>" response.Write "<a href='showarticle.asp?Title="& rs("Title")&"'><font color="& rs("color") &">"& rs("Title") &"</font></a>" response.Write "</li>" rs.movenext rowcount=rowcount-1 loop response.Write"</ul>" end if

rs.close set rs=nothing conn.close set conn=nothing %>

用

else

resposne.write("dfsdfds")

试试

哦，对了rowcount=？你好象没有定义

[此贴子已经被作者于2004-12-20 15:01:41编辑过]

楼主没有取得rowcount就使用了，当然不行

'rs.absolutepage=1 分页功能待完善

if not rs.eof then rowcount=rs.RecordCount '加上这一行 response.Write "<ul>" do while not rs.eof and rowcount>0 response.write "<li>" 'response.Write "<font color="& rs("color") &">"& rs("Title") &"</font>" response.Write "<a href='showarticle.asp?Title="& rs("Title")&"'><font color="& rs("color") &">"& rs("Title") &"</font></a>" response.Write "</li>" rs.movenext rowcount=rowcount-1 loop response.Write"</ul>" end if

不过你用的是do while循环，每次都判断了rs.eof ，所以不用这个变量也可以的。　

[此贴子已经被作者于2004-12-21 08:59:00编辑过]

<% dim n n=rs.recordcount %> <% for i=1 to n if rs.eof then exit for %> <ul> <li> <font color=<%= rs("color") %>><%=rs("Title") %></font> <a href="showarticle.asp?Title=<%=rs("Title")%>"><font color="<%=rs("color") %>"> <%= rs("Title") %></font></a> </li> </ul>

<% rs.movenext next rs.close set rs=nothing conn.close set conn=nothing %>

这样简洁得多了