出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[649] Re:クリックで下の階層のデータを表示する方法
投稿者：BROWNさん 2001/09/26 15:52:50
YasNetさん、何度もありがとうございます。
ちょっと自分で作ってみたのですが
sub cat2の
set rs = cn.execute("SELECT 品物 from Tbl_分類 where 分類 = ’" & Request("key") & "’ group by 品物") の部分でエラーになります。
またその他も全く自信がないので一度見ていただけないでしょうか？

<% @LANGUAGE="VBScript" %>
<% Response.Buffer=True %>
<%
mode = Request("MODE")
Select Case mode
Case ""
start
Case "CAT2"
cat2
End Select
%>

<% Sub start() %>

<FONT SIZE=5>分類リスト一覧</FONT><P>
<%
set cn = server.createobject("ADODB.Connection")
cn.open "販売管理","",""
set rs = cn.execute("SELECT 分類 from Tbl_分類 group by 分類")

If rs.EOF then
%>
データはありません。
<% else %>
<%
Do While Not rs.EOF
%>
<A HREF="menu.asp?MODE=CAT2&key=<%= rs("分類") %>"><%= rs("分類") %></A><P>

<%
rs.MoveNext
Loop
End if %>

<%
rs.Close
set rs = nothing
cn.close
set cn = nothing
%>
<% End Sub %>

<% Sub cat2() %>

<FONT SIZE=5>品物リスト一覧</FONT><P>
<%
set cn = server.createobject("ADODB.Connection")
cn.open "販売管理","",""
set rs = cn.execute("SELECT 品物 from Tbl_分類 where 分類 = ’" & Request("key") & "’ group by 品物")
If rs.EOF then
%>
データはありません。
<% else %>

<INPUT TYPE="HIDDEN" NAME="key" SIZE="-1" VALUE="<%= rs("品物") %>">
<%
Do While Not rs.EOF
%>
<A HREF="menu.asp?MODE=CAT3&key2=<%= rs("品物") %>&key=<%= Request("key") %>"><%= rs("品物") %></A><P>

<%
rs.MoveNext
Loop
End if %>
<%
rs.Close
set rs = nothing
cn.close
set cn = nothing
%>

<% End Sub %>
クリックで下の階層のデータを表示する方法 　 BROWNさん [2001/09/26 12:41:18] [645]
　 Re:クリックで下の階層のデータを表示する方法 　 YasNet(管理人)さん [2001/09/26 13:16:39] [646]
　 　 Re:クリックで下の階層のデータを表示する方法 　 BROWNさん [2001/09/26 14:35:55] [647]
　 　 　 Re:クリックで下の階層のデータを表示する方法 　 YasNet(管理人)さん [2001/09/26 14:44:55] [648]
　 　 　 　 Re:クリックで下の階層のデータを表示する方法 　 BROWNさん [2001/09/26 15:52:50] [649]
　 　 　 　 　 Re:クリックで下の階層のデータを表示する方法 　 YasNet（管理人）さん [2001/09/26 16:24:47] [650]
　 　 　 　 　 　 Re:クリックで下の階層のデータを表示する方法 　 BROWNさん [2001/09/26 16:38:49] [651]
　 　 　 　 　 Re:クリックで下の階層のデータを表示する方法 　 YasNet(管理人)さん [2001/09/26 17:30:07] [652]
　 　 　 　 　 　 Re:クリックで下の階層のデータを表示する方法 　 BROWNさん [2001/09/26 17:38:38] [653]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ