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>



Monjyo ホームページにもどる   ASPでつくるインターネットWeb本屋さんのページにもどる