- ベストアンサー
データベースから複数データを取り出しリスト表示をするにはどうしたら良いですか?
phpではWhile($sss)を使って配列に入れたりしますがASPではどのように書いたら良いですか?良く分かりません。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
とりあえず、ASP+ADOの例を。 <% set cn=server.createobject("adodb.connection") set cmd=server.createobject("adodb.command") set rs=server.createobject("adodb.recordset") cn.open "provider=・・・" cmd.activeconnection=cn cmd.commandtext="select f1 from Table" rs=cmd.execute do until rs.eof response.write rs(0) rs.movenext Loop rs.close cn.close %>
その他の回答 (1)
- nama11
- ベストアンサー率66% (2/3)
DATAbaseがMS-ACCEESの場合ODBCに(kanpou)登録後 table meister を表示させます。 <%@ LANGUAGE="VBScrIPt" %> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=x-sjis"> </HEAD> <BODY bgcolor="#ffffe6"> <% set kanpou1 = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") kanpou1.open "kanpou" rs.Open "SELECT * FROM meister order by id desc" , "kanpou",3,3 %> <TABLE BORDER=1> <TR> <td BGCOLOR=#c0c0c0 ALIGN=center>ID</td> <td BGCOLOR=#c0c0c0 ALIGN=center>TEL</td> <td BGCOLOR=#c0c0c0 ALIGN=center>NAME</td> <td BGCOLOR=#c0c0c0 ALIGN=center>BASYO</td> <td BGCOLOR=#c0c0c0 ALIGN=center>REGDAY</td> </TR> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <TR VALIGN=TOP> <TD ALIGN=RIGHT><%= rs("id") %></TD> <TD><%=rs("tel_num")%></TD> <TD><%=rs("user_name")%></TD> <TD><%=rs("setuba")%></TD> <TD><%=rs("reg_day")%></TD> </TR> <% rs.MoveNext loop %> </TABLE> <% set rs = nothing set kanpou1 = nothing %> </BODY> </HTML>