请教各位高手,把ASP和ACCESS数据库连接后,我想把数据库中一个表的数据按原表的格式在网上显示出来,代码该怎样写呢?

就像新闻一样，你给调出来不就行了！只是按你要求每个字段都显示出来而已！

循环HTML代码不就显示出来了吗？
比如
rs.Open "select * from table",conn,1,3
With Response
   Dim i
   .Write "<table>"&Chr(13)
   '输出表头
   .Write "<tr>"&chr(13)
   For i=0 To rs.Fields.Count-1
       .Write "<td>"&rs.Fields(i).Name&"</td>"
   Next
   .Write "<tr>"&Chr(13)
   '输出内容
   Do Until rs.Eof
      .Write "<tr>"&Chr(13)
      For i=0 To rs.Fields.Count-1
          .Write "<td>"&rs.Fields(i).Value&"</td>"
      Next      
      .Write "</tr>"&Chr(13)
      rs.MoveNext
   Loop
   .Write "</table>"&Chr(13)
End With
这样循环很简单的。

[ 本帖最后由 yms123 于 2009-9-10 15:23 编辑 ]

首先感谢版主.我试运行好像有错误,网页显示:Item cannot be found in the collection corresponding to the requested name or ordinal.  
提示是在第七行有错误
 

<% 
Set Rs=conn.Execute("select * from table") 
  strLine="<table border=""1"" width=""100%""><tr>" 
  td="" 
  For each x in Rs.fields 
      td=td&"<td>"&x.name&"</td>" 
  Next    
  strLine=strLine&td&"</tr>" 
if not(Rs.EOF and Rs.BOF) then 
  While Not Rs.Eof 
      strLine=strLine&"<tr>" 
      td="" 
      for each x in Rs.Fields 
          td=td&"<td>&nbsp;"&x.value&"&nbsp;</td>" 
      next 
      strLine=strLine&td&"</tr>" 
  Rs.MoveNext 
  Wend 
 strLine=strLine&"</table>" 
end if 
Rs.Close 
Response.Write strLine 
%>

代码已经修改

非常感谢版主的指点和帮助!如果我想把它打印可以吗?如果可以,用什么代码可以实现呢?

[ 本帖最后由 TZTJ 于 2009-9-10 22:55 编辑 ]