![]() |
DBアプリテストのページ 商品の注文のソース
<%@ Language=VBScript %> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis"> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <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> <P> <% '---選択された商品の番号を得る in_sel=Request.Form("submit1") session("s_isbn")=Request.Form("text1") session("s_kazu")=Request.Form("text2") %> <!-- <%=in_sel%> --> <%if in_sel=" 注 文 " then%> <!--注文の登録-->注文処理<BR> ID:<%=session("s_id")%><BR> パスワード:<%=session("s_pass")%><BR> ISBN:<%=session("s_isbn")%><BR> 数:<%=session("s_kazu")%><BR> <% if session("s_id")="" then 'ID,PassWordを入力してもらい、その後登録するページへ%> 受付データ作成のため、ID、パスワードを入力してください。<BR> ID、パスワードをお持ちでない方は、ID、パスワードを登録頂き、注文をお願いします。<BR> <TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=75%> <TR> <TD> <DIV align=right><FONT color=black face="">ID:</FONT></DIV></TD> <TD> <INPUT id=text1 name=text1></TD></TR> <TR> <TD> <DIV align=right><FONT color=black face="">パスワード:</FONT></DIV></TD> <TD> <INPUT id=text2 name=text2></TD> </TR> </TABLE> <P align=center><INPUT id=submit1 name=submit1 type=submit value=ID・パスワード送信><BR><BR></P> <% else 'ID,PassWordは確認済みなので、商品の仮登録をする%> <% set rec_3 = server.CreateObject("ADODB.connection") rec_3.Open "DSN=test3_db" set rec3_com = server.CreateObject("ADODB.command") rec3_com.CommandText="INSERT INTO cyu_kari(userid,pass,syoid,kazu,日付,session) " & _ "VALUES('" & session("s_id") & "','" & session("s_pass") & "','" & session("s_isbn") & "','" & _ session("s_kazu") & "','" & date & "','" & 0 & "')" set rec3_com.ActiveConnection = rec_3 rec3_com.Execute %> <P> 商品を仮発注で処理しました、注文書作成により、発注は確定します。<BR> <% end if%> <P> <P align=center><A href="http://sim2/test3/syo select1.asp"><FONT color=blue face="" size=2>商品選択に戻る</FONT></A> </P> <%else%> <!--注文書作成の処理-->注文書発行 <P> <P align=center><A href="http://sim2/test3/index.htm"><FONT color=blue face="" size=2>ホームに戻る</FONT></A></P> <%end if%> </BODY> </HTML> |