このサンプルは、ＷｅｂサーバにMicrosoft Internet Information Server(IIS)を使用し、ActiveServerPage(ASP)により記述したコンテンツです。
本サンプルは、ＣＤにも収録してあります。
| ○人気メニュー上位５件を表示(ranking.asp) |  |
| <%@ LANGUAGE="VBSCRIPT" %> <% ' エラーでも処理続行 ' On Error Resume Next ' ＯＤＢＣ接続 Set cn = Server.CreateObject("ADODB.Connection") cn.Open "sample", "", "" ' 取得ＳＱＬクエリー作成 strSQL = "SELECT メニューコード," strSQL = strSQL & " メニュー名 ," strSQL = strSQL & " イメージ小 " strSQL = strSQL & " FROM メニュー " strSQL = strSQL & " ORDER BY 人気 DESC" ' テーブル情報取得 Set rsTable = Server.CreateObject("ADODB.Recordset") rsTable.Open strSQL, cn %> |
※サーバ側処理の記述 ランキング.MDBへの接続 （ODBCリソース名：sample） ＳＱＬ実行 |
| <csmil> <head> <title>CSMIL 2.0 Livechu Browser</title> <!meta rev="Beta1.0" cache-src="*.gif"/> <layout basecols="6" baserows="8" baseborderline="0" bordercolor="#ffb6ff" cursorcolor="#0000ff" cursorline="1" /> </head> <body align="center"> <par> <text region="1" align="center" color="#ffffff" bgcolor="#ff0000">ランキングメニュー</text> <text region="A2:F7" color="#ffffff" bgcolor="#ffb6ff"></text> <text region="2" color="#ff0000" bgcolor="#ffb6ff">１位 <%=rsTable("メニュー名").Value%></text> <img region="A3:B4" fill="freeze" src="<%=rsTable("イメージ小").Value%>"/> <focus region="A3:B4" href="menu.asp?code=<%=rsTable("メニューコード").Value%>"> <text region="2" color="#ff0000" bgcolor="#ffb6ff">１位 <%=rsTable("メニュー名").Value%></text> </focus> <% rsTable.MoveNext %> 〜 以下省略 〜 |
※csmil記述開始 DBから取得した情報を設定 要求情報も設定 次レコードへ |
| ○選択されたメニューのレシピ及び作り方を表示(menu.asp) |  |
| <%@ LANGUAGE="VBSCRIPT" %> <% ' エラーでも処理続行 ' On Error Resume Next ' パラメータ取得 strMenuCode = Request("code") ' ＯＤＢＣ接続 Set cn = Server.CreateObject("ADODB.Connection") cn.Open "sample", "", "" ' 取得ＳＱＬクエリー作成 strSQL = "SELECT メニュー名," strSQL = strSQL & " イメージ大," strSQL = strSQL & " 材料 ," strSQL = strSQL & " カロリー " strSQL = strSQL & " FROM メニュー " strSQL = strSQL & " WHERE メニューコード = '" & strMenuCode & "'" ' テーブル情報取得 Set rsTable = Server.CreateObject("ADODB.Recordset") rsTable.Open strSQL, cn %> |
※サーバ側処理の記述 要求情報取得 ランキング.MDBへの接続 （ODBCリソース名：sample） 要求された情報を元にＳＱＬ実行 |
| <csmil> <head> <title>CSMIL 2.0 Livechu Browser</title> <meta rev="Beta1.0" content="no-cache"/> <layout basecols="8" baserows="8" baseborderline="1" bordercolor="#ffb6ff" cursorcolor="#0000ff" cursorline="1" /> </head> <body align="center"> <par> <text region="1" align="center" color="#ffffff" bgcolor="#ff0000">〜 <%=rsTable("メニュー名").Value%> 〜</text> <text region="A2:B2" align="center" color="#ff0000" bgcolor="#ffb6ff">材料</text> <text region="C2:H2" style="marquee" repeat="10" color="#000000" bgcolor="#eeeeee" align="left"><%=rsTable("材料").Value%></text> <text region="A3:H6" bgcolor="#ffb6ff" color="1"> </text> <text region="8" color="#ff0000" bgcolor="#eeeeee"> </text> <img region="A3:D6" fill="freeze" src="<%=rsTable("イメージ大").Value%>"/> <text region="E3:H3" color="#ff0000" bgcolor="#ffb6ff">1個分</text> <text region="E4:H4" color="#ff0000" bgcolor="#ffb6ff"><%=rsTable("カロリー").Value%>kcal</text> <text region="A7:C7" align="center" color="#ff0000" bgcolor="#ffb6ff">作り方</text> <% Set rsTable = Nothing ' 取得ＳＱＬクエリー作成 strSQL = "SELECT 作成順序 ," strSQL = strSQL & " 作り方 ," strSQL = strSQL & " ポイント " strSQL = strSQL & " FROM 作り方 " strSQL = strSQL & " WHERE メニューコード = '" & strMenuCode & "'" strSQL = strSQL & " ORDER BY 作成順序" ' テーブル情報取得 Set rsTable = Server.CreateObject("ADODB.Recordset") rsTable.Open strSQL, cn %> <text region="D7" align="center" color="#ff0000" bgcolor="#eeeeee">1</text> <focus region="D7" style="click" z-index="2"> <text region="A3:H6" style="scroll" color="#0000ff" bgcolor="#eeeeee"> 1) <%=rsTable("作り方").Value%></text> </focus> <% rsTable.MoveNext %> 〜 以下省略 〜 |
※csmil記述開始 DBから取得した情報を設定 要求された情報を元にＳＱＬ実行 DBから取得した情報を設定 次レコードへ |