[求助]ASP和access - 编程论坛

#2

孤独冷雨2009-09-09 08:05

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

#3

yms1232009-09-09 12:10

循环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 编辑 ]

#4

TZTJ2009-09-09 22:26

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

#5

hmhz2009-09-10 14:29

程序代码：

<%
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> "&x.value&" </td>"
      next
      strLine=strLine&td&"</tr>"
  Rs.MoveNext
  Wend
strLine=strLine&"</table>"
end if
Rs.Close
Response.Write strLine
%>

#6

yms1232009-09-10 15:23

以下是引用TZTJ在2009-9-9 22:26的发言：

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

代码已经修改

#7

TZTJ2009-09-10 22:02

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

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