リスト4:AccessのフォームをActive Server Pages(ASP)形式で出力したVBScriptのソース


<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=x-sjis">
<TITLE>f_受注</TITLE>
</HEAD>
<BODY>
<%
 ↓ADOのConnectionオブジェクトを生成
If IsObject(Session("ex05_conn")) Then
  Set conn = Session("ex05_conn")
Else
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open "ex05","",""
  Set Session("ex05_conn") = conn
End If
%>
<%
If IsObject(Session("f_53D76CE8_rs")) Then
  Set rs = Session("f_53D76CE8_rs")
Else
  sql = "SELECT [t_受注].[受注ID], [t_受注].[伝票番号], [t_受注].[日付], [t_受注].[顧客ID], [t_顧客].[氏名], [t_受注].[商品ID], [t_商品].[商品名], [t_商品].[販売単価], [t_受注].[数量], [販売単価]*[数量] AS 金額 FROM t_商品 INNER JOIN (t_顧客 INNER JOIN t_受注 ON [t_顧客].[顧客ID]=[t_受注].[顧客ID]) ON [t_商品].[商品ID]=[t_受注].[商品ID]  "
    ↓レコードセットを設定
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql, conn, 3, 3
  If rs.eof Then
    rs.AddNew
  End If
  Set Session("f_53D76CE8_rs") = rs
End If
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="MS Pゴシック" COLOR=#000000><CAPTION><B>f_受注</B></CAPTION></FONT>

<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000>受注ID</FONT></TH>
      :
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
  ↓ループによって全レコードを表形式で出力
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("受注ID").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("伝票番号").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="MS Pゴシック" COLOR=#      :
000000><%=Server.HTMLEncode(rs.Fields("数量").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("金額").Value)%><BR></FONT></TD>

</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>


本文へ戻る