|
ＤＢアプリテストのページ 商品の選択のソース
| <%@ Language=VBScript %> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis"> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <script language="JavaScript"> <!-- function mes_win(){ msg1='--- 注文のしかた ---\n'; msg2='商品を確認し、購入したい商品の右横の詳細・注文欄のボタンをクリックする\n'; msg3='ボタンがクリックされると、商品の内容を示すページが表示されます\n'; msg4='商品を確認したら、注文ボタンを押して下さい\n'; msg5='すべての商品を選択したら、注文書作成ボタンを押して下さい\n'; msg6='注文書作成のページが表示されるので、項目を入力後確認ボタンをクリックしてください\n'; alert(msg1+msg2+msg3+msg4+msg5); }; --> </script> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/THEME.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/GRAPH0.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/COLOR0.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/CUSTOM.CSS" VI6.0THEME="墨絵"> </HEAD> <BODY> <% set rec_2 = server.CreateObject("ADODB.connection") rec_2.Open "DSN=test3_db" set rec2_com = server.CreateObject("ADODB.command") rec2_com.CommandText="SELECT syoid,syoname,絵f FROM syohin " '"WHERE ('" & in_id & "','" & in_pass1 & "','" & in_name & "')" set rec2_com.ActiveConnection = rec_2 set db2=rec2_com.Execute %> <P align=center><FONT color=black face="">商品一覧表</FONT></P> <FORM name=form1> <P align=right><INPUT type=button value=" 注文のしかた " onclick=mes_win()></P> </FORM> <FORM action="syo select1a.asp" method=post id=form2 name=form2> <P align=center> <TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=90%> <TR> <!--<TD> <DIV align=center><FONT color=black face="">ＩＤ</FONT></DIV></TD>--> <TD> <DIV align=center><FONT color=black face="">名称</FONT></DIV></TD> <TD> <DIV align=center><FONT color=black face="">外観</FONT></DIV></TD> <TD> <DIV align=center><FONT color=black face="">詳細・注文</FONT></DIV></TD> </TR> <%do while not db2.eof%> <TR> <!--<TD> <%=db2("syoid")%></TD>--> <TD> <%=db2("syoname")%></TD> <!--<TD><DIV align=center><img src="a:/test3/data/hon_1.gif"></DIV></TD>--> <TD><DIV align=center><img src=<%=db2("絵f")%>></DIV></TD> <TD> <!--<DIV align=center><INPUT id=submit1 name=submit1 type=submit value="詳細 ・注文 "></DIV></TD>--> <%in_id=db2("syoid")%> <%inp_val=in_id %> <DIV align=center><INPUT id=submit1 name=submit1 type=submit value=<%=inp_val%>></DIV></TD> </TR> <%db2.movenext%> <%loop%> </TABLE><BR> </FORM> <FORM action="syo select1b.asp" method=post id=form3 name=form3> <INPUT id=submit2 name=submit2 type=submit value= 選択した商品の確認 ></P> </FORM> <FORM action = "db toroku1a.asp" method = post id=form4 name = form4> <P align=center><INPUT id=submit3 name=submit3 type=submit value= 注文書作成 ></P> </FORM> <P align=center><A href="http://sim2/test3/index.htm"><FONT color=blue face="" size=2>Ｗｅｂテストのページに戻る</FONT></A></P> </BODY> </HTML> |