<% '//************************************************************************************************* '// タイトル : 共通ファイル トップ用ヘッダー '// '// ターゲット : ボブアンWEBアプリケーション '// '// コメント : ボブアンの共通ファイルトップ用ヘッダーを表記 '// '// 更新履歴 : 2006/08/18 マック 三輪 新規作成 '// 2007/07/31 マック 三輪 MYページ機能追加 '// 2007/08/06 エルネット 寺西 MYページ検索機能追加 '// 2007/10/30 マック 三輪 バナー表示変更 '// 2009/04/01 マック 三輪 リニューアル対応 '// 2010/01/15 マック 三輪 クイックリサーチ機能追加 '// 2010/11/12 マック 三輪 今日の献立機能変更 '// 2011/01/20 エルネット 水澤 グローバルナビ追加 '// 2011/12/09 マック 三輪 今日の献立、献立ランキング取得栄養素追加、取得方式一部変更 '// 2011/12/14 エルネット 水澤 スマホ表示対応 '// '//************************************************************************************************* '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Private strBA_HEAD_LINE '/ ヘッダーラインカラー Private str10_GNAVI_RECIPE_ICON '/ レシピをみる 検索する Private str10_GNAVI_MENU_ICON '/ 献立 Private str10_GNAVI_FEATURE_ICON '/ 旬・特集 レシピ Private str10_GNAVI_RECOMMEND_ICON '/ イチオシ! コンテンツ Private str10_GNAVI_MOBILE_ICON '/ ケータイ Private str10_GNAVI_RANKING_ICON '/ レシピ ランキング Private str10_GNAVI_MYPAGE_ICON '/ MYページ Private str10_GNAVI_1_ON '/ プルダウン レシピをみる 検索する Private str10_GNAVI_4_ON '/ プルダウン イチオシ! コンテンツ Private str10_GNAVI_CAKE_ICON '/ パン・お菓子 コンテンツ Private str10_GNAVI_MOVIE_ICON '/ 動画 コンテンツ '/ left_top.incからの移動分 Private varDailyData '/ 今日の献立データ Private strS1MatValue '/ 旬の食材 材料1 食材検索値 Private strS1MatName '/ 旬の食材 材料1 食材表示名 Private strS2MatValue '/ 旬の食材 材料2 食材検索値 Private strS2MatName '/ 旬の食材 材料2 食材表示名 Private lngRecipeCnt '/ レシピ件数 Private varLB_RAR_DATA '/ レシピランキングデータ Private intLB_Row '/ Loop Private arySMP_KW_DATA '/ サンプルキーワードデータ Private intSMP_KW_RowCnt '/ LOOP '/ クイックリサーチ関連 Private strINC_QR_BASIC_NO '/ 基本情報番号 Private strINC_QR_TITLE '/ タイトル Private strINC_QR_CREATED '/ データ作成日 Private strINC_QR_UPDATED '/ データ更新日 Private strINC_QR_OPEN_FLG '/ 公開フラグ 00:非公開、01:公開 Private strINC_QR_OPEN_LEVEL '/ 公開レベル 01〜05 Private strINC_QR_PUB_OPE_STA_DAY '/ 公開開始日 Private strINC_QR_PUB_OPE_END_DAY '/ 公開終了日 Private strINC_QR_REC_STA_DAY '/ アンケート募集開始日 Private strINC_QR_REC_END_DAY '/ アンケート募集終了日 Private strINC_QR_COM_STA_DAY '/ コメント募集開始日 Private strINC_QR_COM_END_DAY '/ コメント募集終了日 Private strINC_QR_ANS_UPDATED '/ 最終募集データ更新日 Private strINC_QR_REC_UPDATED '/ 最終選択回答データ更新日 Private strINC_QR_COM_UPDATED '/ 最終コメントデータ更新日 Private strINC_QR_GRAPH_FLG '/ グラフフラグ 01:円、02:棒 Private strINC_QR_COM_FLG '/ コメントフラグ Private strINC_QR_EXP01 '/ 説明 Private strINC_QR_EXP02 '/ 応募終了コメント Private strINC_QR_ANS_ALL_CNT '/ 回答総件数 Private strINC_QR_COM_ALL_CNT '/ コメント総件数 Private varINC_QR_ANS_DATA( 6, 9) '/ 回答データ Private intINC_QR_LOOP '/ LOOP Private varTOP_KD_RA_MAIN_DATA '/ DATA Private varTOP_KD_RA_REC_DATA '/ DATA Private strTOP_KD_RA_ERR '/ ERR Private strTOP_KD_RA_URL '/ URL Private intTOP_KD_RA_ROW '/ LOOP Private strTOP_KD_RA_MK_ID '/ 献立ランキング 献立ID Private strTOP_KD_RA_MK_TITLE '/ 献立ランキング 献立タイトル Private floTOP_KD_RA_MK_ENERUGI '/ 献立ランキング エネルギー Private floTOP_KD_RA_MK_TAN '/ 献立ランキング たんぱく質 2012-12-08 追加 Private floTOP_KD_RA_MK_SHI '/ 献立ランキング 脂質 2012-12-08 追加 Private floTOP_KD_RA_MK_TOU '/ 献立ランキング 炭水化物 2012-12-08 追加 Private floTOP_KD_RA_MK_CA '/ 献立ランキング カルシウム 2012-12-08 追加 Private floTOP_KD_RA_MK_NATO '/ 献立ランキング ナトリウム 2012-12-08 追加 Private floTOP_KD_RA_MK_SENI_SOU '/ 献立ランキング 食物繊維(総量) 2012-12-08 追加 Private intTOP_KD_RA_MK_REC_CNT '/ 献立ランキング 登録レシピ件数 Private strTOP_KD_RA_MK_R1_RCCD '/ 献立ランキング レシピ1 レシピNO Private strTOP_KD_RA_MK_R1_RCNM '/ 献立ランキング レシピ1 レシピ名称 Private strTOP_KD_RA_MK_R2_RCCD '/ 献立ランキング レシピ2 レシピNO Private strTOP_KD_RA_MK_R2_RCNM '/ 献立ランキング レシピ2 レシピ名称 Private strTOP_KD_RA_MK_R3_RCCD '/ 献立ランキング レシピ3 レシピNO Private strTOP_KD_RA_MK_R3_RCNM '/ 献立ランキング レシピ3 レシピ名称 Private strTOP_KD_DAY_URL '/ 今日の献立 URL Private strTOP_KD_DAY_COMMENT '/ 今日の献立 コメント Private strTOP_KD_DAY_MK_ID '/ 今日の献立 献立ID Private strTOP_KD_DAY_MK_TITLE '/ 今日の献立 献立タイトル Private floTOP_KD_DAY_MK_ENERUGI '/ 今日の献立 エネルギー Private floTOP_KD_DAY_MK_TAN '/ 今日の献立 たんぱく質 2012-12-08 追加 Private floTOP_KD_DAY_MK_SHI '/ 今日の献立 脂質 2012-12-08 追加 Private floTOP_KD_DAY_MK_TOU '/ 今日の献立 炭水化物 2012-12-08 追加 Private floTOP_KD_DAY_MK_CA '/ 今日の献立 カルシウム 2012-12-08 追加 Private floTOP_KD_DAY_MK_NATO '/ 今日の献立 ナトリウム 2012-12-08 追加 Private floTOP_KD_DAY_MK_SENI_SOU '/ 今日の献立 食物繊維(総量) 2012-12-08 追加 Private intTOP_KD_DAY_MK_REC_CNT '/ 今日の献立 登録レシピ件数 Private strTOP_KD_DAY_MK_R1_RCCD '/ 今日の献立 レシピ1 レシピNO Private strTOP_KD_DAY_MK_R1_RCNM '/ 今日の献立 レシピ1 レシピ名称 Private strTOP_KD_DAY_MK_R2_RCCD '/ 今日の献立 レシピ2 レシピNO Private strTOP_KD_DAY_MK_R2_RCNM '/ 今日の献立 レシピ2 レシピ名称 Private strTOP_KD_DAY_MK_R3_RCCD '/ 今日の献立 レシピ3 レシピNO Private strTOP_KD_DAY_MK_R3_RCNM '/ 今日の献立 レシピ3 レシピ名称 '/ スマホ対応追加 Private strAgent '/ スマホ対応 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strBA_HEAD_LINE = "" '/ ヘッダーラインカラー str10_GNAVI_RECIPE_ICON = "10_gnavi_recipe_off" '/ レシピをみる 検索する str10_GNAVI_MENU_ICON = "10_gnavi_menu_off" '/ 献立 str10_GNAVI_FEATURE_ICON = "10_gnavi_feature_off" '/ 旬・特集 レシピ str10_GNAVI_RECOMMEND_ICON = "10_gnavi_recommend_off" '/ イチオシ! コンテンツ str10_GNAVI_MOBILE_ICON = "10_gnavi_mobile_off" '/ ケータイ str10_GNAVI_RANKING_ICON = "10_gnavi_ranking_off" '/ レシピ ランキング str10_GNAVI_MYPAGE_ICON = "10_gnavi_mypage_off" '/ MYページ str10_GNAVI_1_ON = "" '/ プルダウン レシピをみる 検索する str10_GNAVI_4_ON = "" '/ プルダウン イチオシ! コンテンツ str10_GNAVI_CAKE_ICON = "10_gnavi_cake_off" '/ お菓子・パン コンテンツ str10_GNAVI_MOVIE_ICON = "10_gnavi_movie_off" '/ 動画 コンテンツ strTOP_KD_DAY_COMMENT = "" '/ 今日の献立 コメント strTOP_KD_DAY_MK_ID = "" '/ 今日の献立 献立ID strTOP_KD_DAY_MK_TITLE = "" '/ 今日の献立 献立タイトル floTOP_KD_DAY_MK_ENERUGI = "" '/ 今日の献立 エネルギー intTOP_KD_DAY_MK_REC_CNT = "" '/ 今日の献立 登録レシピ件数 strTOP_KD_DAY_MK_R1_RCCD = "" '/ 今日の献立 レシピ1 レシピNO strTOP_KD_DAY_MK_R1_RCNM = "" '/ 今日の献立 レシピ1 レシピ名称 strTOP_KD_DAY_MK_R2_RCCD = "" '/ 今日の献立 レシピ2 レシピNO strTOP_KD_DAY_MK_R2_RCNM = "" '/ 今日の献立 レシピ2 レシピ名称 strTOP_KD_DAY_MK_R3_RCCD = "" '/ 今日の献立 レシピ3 レシピNO strTOP_KD_DAY_MK_R3_RCNM = "" '/ 今日の献立 レシピ3 レシピ名称 strTOP_KD_RA_MK_ID = "" '/ 献立ランキング 献立ID strTOP_KD_RA_MK_TITLE = "" '/ 献立ランキング 献立タイトル floTOP_KD_RA_MK_ENERUGI = "" '/ 献立ランキング エネルギー intTOP_KD_RA_MK_REC_CNT = "" '/ 献立ランキング 登録レシピ件数 strTOP_KD_RA_MK_R1_RCCD = "" '/ 献立ランキング レシピ1 レシピNO strTOP_KD_RA_MK_R1_RCNM = "" '/ 献立ランキング レシピ1 レシピ名称 strTOP_KD_RA_MK_R2_RCCD = "" '/ 献立ランキング レシピ2 レシピNO strTOP_KD_RA_MK_R2_RCNM = "" '/ 献立ランキング レシピ2 レシピ名称 strTOP_KD_RA_MK_R3_RCCD = "" '/ 献立ランキング レシピ3 レシピNO strTOP_KD_RA_MK_R3_RCNM = "" '/ 献立ランキング レシピ3 レシピ名称 '/ クイックリサーチ関連配列位置指定 const cstINC_QR_BASIC_NO = 0 '/ 基本情報番号 const cstINC_QR_TITLE = 1 '/ タイトル const cstINC_QR_CREATED = 2 '/ データ作成日 const cstINC_QR_UPDATED = 3 '/ データ更新日 const cstINC_QR_OPEN_FLG = 4 '/ 公開フラグ 00:非公開、01:公開 const cstINC_QR_OPEN_LEVEL = 5 '/ 公開レベル 01〜05 const cstINC_QR_PUB_OPE_STA_DAY = 6 '/ 公開開始日 const cstINC_QR_PUB_OPE_END_DAY = 7 '/ 公開終了日 const cstINC_QR_REC_STA_DAY = 8 '/ アンケート募集開始日 const cstINC_QR_REC_END_DAY = 9 '/ アンケート募集終了日 const cstINC_QR_COM_STA_DAY = 10 '/ コメント募集開始日 const cstINC_QR_COM_END_DAY = 11 '/ コメント募集終了日 const cstINC_QR_ANS_UPDATED = 12 '/ 最終募集データ更新日 const cstINC_QR_REC_UPDATED = 13 '/ 最終選択回答データ更新日 const cstINC_QR_COM_UPDATED = 14 '/ 最終コメントデータ更新日 const cstINC_QR_GRAPH_FLG = 15 '/ グラフフラグ 01:円、02:棒 const cstINC_QR_COM_FLG = 16 '/ コメントフラグ 00:無、01:有 const cstINC_QR_EXP01 = 17 '/ 説明 const cstINC_QR_EXP02 = 18 '/ 応募終了コメント const cstINC_QR_ANS_ALL_CNT = 19 '/ 回答総件数 const cstINC_QR_COM_ALL_CNT = 20 '/ コメント総件数 const cstINC_QR_ANS_OPT_NO = 1 '/ 回答情報番号 const cstINC_QR_ANS_CNT = 2 '/ 回答件数 const cstINC_QR_ANS_COND = 3 '/ 回答条件 const cstINC_QR_ANS_URL = 4 '/ 回答URL const cstINC_QR_ANS_DESC = 5 '/ 回答説明 const cstINC_QR_COM_CNT = 6 '/ コメント件数 '/ クイックリサーチ関連初期設定 strINC_QR_BASIC_NO = "" '/ 基本情報番号 strINC_QR_TITLE = "" '/ タイトル strINC_QR_CREATED = "" '/ データ作成日 strINC_QR_UPDATED = "" '/ データ更新日 strINC_QR_OPEN_FLG = "00" '/ 公開フラグ 00:非公開、01:公開 strINC_QR_OPEN_LEVEL = "03" '/ 公開レベル 01〜05 strINC_QR_PUB_OPE_STA_DAY = strSYS_DATE '/ 公開開始日 '/ strINC_QR_PUB_OPE_END_DAY = strSYS_DATE '/ 公開終了日 strINC_QR_PUB_OPE_END_DAY = "2999" & Mid(strSYS_DATE, 5, 15) '/ 公開終了日 strINC_QR_REC_STA_DAY = strSYS_DATE '/ アンケート募集開始日 strINC_QR_REC_END_DAY = strSYS_DATE '/ アンケート募集終了日 strINC_QR_COM_STA_DAY = strSYS_DATE '/ コメント募集開始日 strINC_QR_COM_END_DAY = strSYS_DATE '/ コメント募集終了日 strINC_QR_ANS_UPDATED = "" '/ 最終募集データ更新日 strINC_QR_REC_UPDATED = "" '/ 最終選択回答データ更新日 strINC_QR_COM_UPDATED = "" '/ 最終コメントデータ更新日 strINC_QR_GRAPH_FLG = "01" '/ グラフフラグ 01:円、02:棒 strINC_QR_COM_FLG = "01" '/ コメントフラグ 00:無、01:有 strINC_QR_EXP01 = "" '/ 説明 strINC_QR_EXP02 = "" '/ 応募終了コメント strINC_QR_ANS_ALL_CNT = 0 '/ 回答総件数 strINC_QR_COM_ALL_CNT = 0 '/ コメント総件数 intINC_QR_LOOP = "" For intINC_QR_LOOP = LBound(varINC_QR_ANS_DATA, 2) To UBound(varINC_QR_ANS_DATA, 2) varINC_QR_ANS_DATA(cstINC_QR_BASIC_NO, intINC_QR_LOOP) = "" '/ 基本情報番号 varINC_QR_ANS_DATA(cstINC_QR_ANS_OPT_NO, intINC_QR_LOOP) = intINC_QR_LOOP + 1 '/ 回答情報番号 varINC_QR_ANS_DATA(cstINC_QR_ANS_CNT, intINC_QR_LOOP) = 0 '/ 回答件数 varINC_QR_ANS_DATA(cstINC_QR_ANS_COND, intINC_QR_LOOP) = "" '/ 回答条件 varINC_QR_ANS_DATA(cstINC_QR_ANS_URL, intINC_QR_LOOP) = "" '/ 回答URL varINC_QR_ANS_DATA(cstINC_QR_ANS_DESC, intINC_QR_LOOP) = "" '/ 回答説明 varINC_QR_ANS_DATA(cstINC_QR_COM_CNT, intINC_QR_LOOP) = 0 '/ コメント件数 Next '/ スマホ対応追加 strAgent = Request.ServerVariables("HTTP_USER_AGENT") '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/--------------------------------------------- '/ バナービュー処理 '/--------------------------------------------- '/ 表紙のみバナーAを表示 If Request.ServerVariables("URL") = "/index.asp" Then Call CountViewData("A") '/ レシピページのみバナーHを表示 ElseIf Request.ServerVariables("URL") = "/recipe/OutputMain.asp" _ Or Request.ServerVariables("URL") = "/recipe/MailRecipe.asp" Then Call CountViewData("H") '/ 企画広告 /members/club/ /present/ のみバナーを表示しない ElseIf InStr(Request.ServerVariables("URL"), "/ad/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/members/club/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/present/") > 0 Then '/ MYページ関連のみバナーKを表示 ElseIf InStr(Request.ServerVariables("URL"), "/my/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/diagnosis/") > 0 _ Or Request.ServerVariables("URL") = "/recipe/OutputReview.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputUser.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMypage.asp" Then Call CountViewData("K") '/ 動画広告の場合、別ファイルを表示 → バナーカウントせず ElseIf InStr(Request.ServerVariables("URL"), "/movie/admovie/") > 0 Then '/ 上記以外バナーEを表示 Else Call CountViewData("E") End If '/--------------------------------------------- '/ 本日のおすすめ、旬の食材、ランキングデータ取得 '/--------------------------------------------- '/ トップページ、本日のおすすめページのみ If Request.ServerVariables("URL") = "/index.asp" Or _ Request.ServerVariables("URL") = "/recipe/daily/daily.asp" Or _ Request.ServerVariables("URL") = "/recipe/daily/daily-ads.asp" Or _ Request.ServerVariables("URL") = "/menu/index.asp" Then '/ レシピ関連データベース接続 Call RecipeDBRecipeUserOpenConnect() '/ 本日のおすすめ取得 Call GetDailyData() '/ レシピアクセスランキングデータ取得 Call GetRecipeAccessRankingData() '/ トップページのみ If Request.ServerVariables("URL") = "/index.asp" Then '/ 旬の食材取得 Call GetSSData() '/ クイックリサーチデータ取得 '/ Call INC_QR_GetMainData End If '/ レシピ関連データベース切断 Call RecipeDBRecipeUserCloseConnect() End If '/ トップページ、献立トップ If Request.ServerVariables("URL") = "/index.asp" Or _ Request.ServerVariables("URL") = "/menu/index.asp" Then '/========================================================================================== '/ ※注意 '/ 今日の献立ランキングでは一般用共通関数を使用したいのでrecSetRecを使用している '/ この場合トップページではDB切断をaspの最終行で設定していないので問題ないが '/ 最終行で設定している他のaspではオブジェクトエラーが発生するので注意する。 '/========================================================================================== If Request.ServerVariables("URL") = "/index.asp" Then '/ レシピ関連データベース接続 Call RecipeDBOpenConnect() '/ 今日の献立データ取得 Call GetTodayMenuData() '/ 献立ランキングデータ取得 Call GetKondateRankingData() '/ レシピ関連データベース切断 Call RecipeDBCloseConnect() Else '/ 今日の献立データ取得 Call GetTodayMenuData() End If End If '/----------------------------- '/ サンプルキーワード取得 '/----------------------------- Call GetSampleKeyWordData() '/----------------------------- '/ ナビゲーション判別 '/----------------------------- '/ MYページ、会員 '/ ※こちらを先にしないと/recipe/****.asp関連ファイルの処理ができないので注意 If InStr(Request.ServerVariables("URL"), "/my/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/diagnosis/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/members/") > 0 _ Or Request.ServerVariables("URL") = "/recipe/OutputUser.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputReview.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMypage.asp" Then strBA_HEAD_LINE = "7" '/ ヘッダーラインカラー str10_GNAVI_MYPAGE_ICON = "10_gnavi_mypage_on" '/ MYページ '/ 献立 '/ ※こちらを先にしないとその他/recipe/関連ファイルの処理ができないので注意 ElseIf InStr(Request.ServerVariables("URL"), "/recipe/daily/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/menu/") > 0 Then str10_GNAVI_MENU_ICON = "10_gnavi_menu_on" '/ 献立 '/ 旬・特集 レシピ '/ ※こちらを先にしないとその他/recipe/関連ファイルの処理ができないので注意 ElseIf InStr(Request.ServerVariables("URL"), "/recipe/special/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/ad/") > 0 Then str10_GNAVI_FEATURE_ICON = "10_gnavi_feature_on" '/ 旬・特集 レシピ '/ レシピ ランキング '/ ※こちらを先にしないとその他/recipe/関連ファイルの処理ができないので注意 ElseIf InStr(Request.ServerVariables("URL"), "/recipe/ranking/") > 0 Then strBA_HEAD_LINE = "6" '/ ヘッダーラインカラー str10_GNAVI_RANKING_ICON = "10_gnavi_ranking_on" '/ レシピ ランキング '/ お菓子・パンコンテンツ '/ ※こちらを先にしないとその他/recipe/関連ファイルの処理ができないので注意 ElseIf InStr(Request.ServerVariables("URL"), "/recipe/sweet/") > 0 Then str10_GNAVI_CAKE_ICON = "10_gnavi_cake_on" '/ お菓子・パンコンテンツ '/ レシピをみる 検索する ElseIf InStr(Request.ServerVariables("URL"), "/recipe/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/search/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/foodlife/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/kids/") > 0 Then str10_GNAVI_RECIPE_ICON = "10_gnavi_recipe_on" '/ レシピをみる 検索する str10_GNAVI_1_ON = "_on" '/ プルダウン レシピをみる 検索する '/ ケータイ '/ ※こちらを先にしないと/useful/関連ファイルの処理ができないので注意 ElseIf InStr(Request.ServerVariables("URL"), "/useful/phone/") > 0 Then strBA_HEAD_LINE = "5" '/ ヘッダーラインカラー str10_GNAVI_MOBILE_ICON = "10_gnavi_mobile_on" '/ ケータイ '/ 動画コンテンツ ElseIf InStr(Request.ServerVariables("URL"), "/movie/") > 0 Then strBA_HEAD_LINE = "7" '/ ヘッダーラインカラー str10_GNAVI_MOVIE_ICON = "10_gnavi_movie_on" '/ 動画コンテンツ '/ イチオシ! コンテンツ ElseIf InStr(Request.ServerVariables("URL"), "/qres/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/blog/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/present/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/useful/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/rmd/") > 0 Then strBA_HEAD_LINE = "4" '/ ヘッダーラインカラー str10_GNAVI_RECOMMEND_ICON = "10_gnavi_recommend_on" '/ イチオシ! コンテンツ str10_GNAVI_4_ON = "_on" '/ プルダウン イチオシ! コンテンツ End If %> <% '/ スマホ対応追加 If InStr(strAgent, "Android") <> 0 Then %>
<% '/ スマホ対応追加 End If %>

レシピキーワード検索


もっと検索
カロリー・栄養価で
お菓子・パン
こだわり検索

<% '/------------------------- '/ サンプルキーワード検索 '/------------------------- If IsArray(arySMP_KW_DATA) Then intSMP_KW_RowCnt = "" For intSMP_KW_RowCnt = LBound(arySMP_KW_DATA, 1) To UBound(arySMP_KW_DATA, 1) Response.Write " " & arySMP_KW_DATA(intSMP_KW_RowCnt) & "" & vbCrLf Next End If %>

<% '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetDailyData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : 毎日の献立 データ取得 '/-------------------------------------------------------------------------------------------------- Sub GetDailyData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpSQL '/SQL Dim THE_MONTH Dim THE_DAY Dim SEQUENCE Dim THE_DATE '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strTmpSQL = "" '/SQL '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ 表示条件データ取得 THE_MONTH = Request.Form("THE_MONTH") THE_DAY = Request.Form("THE_DAY") SEQUENCE = Request.Form("SEQUENCE") '/ 本日を取得 If THE_MONTH <> "" AND THE_DAY <> "" Then THE_DATE = Right("0" & THE_MONTH, 2) & Right("0" & THE_DAY, 2) If ChkLeapDay(THE_MONTH, THE_DAY) <> True Then varRecCnt = 0 Exit Sub End If Else THE_MONTH = Month(CDate(strSYS_DATE)) THE_DAY = Day(CDate(strSYS_DATE)) THE_DATE = Right("0" & THE_MONTH, 2) & Right("0" & THE_DAY, 2) End If '/ レシピ取得 strTmpSQL = strTmpSQL & "SELECT T_recipedaily.Day," '/ varDailyData( 0, *) 日付 strTmpSQL = strTmpSQL & " T_recipedaily.RecipeCode1," '/ varDailyData( 1, *) 主采 レシピコード strTmpSQL = strTmpSQL & " T_recipe.RecipeMei," '/ varDailyData( 2, *) 主采 レシピ名 strTmpSQL = strTmpSQL & " T_recipedaily.RecipeCode2," '/ varDailyData( 3, *) 副采 レシピコード strTmpSQL = strTmpSQL & " T_recipe_1.RecipeMei," '/ varDailyData( 4, *) 副采 レシピ名 strTmpSQL = strTmpSQL & " T_recipedaily.RecipeCode3," '/ varDailyData( 5, *) 汁物 レシピコード strTmpSQL = strTmpSQL & " T_recipe_2.RecipeMei," '/ varDailyData( 6, *) 汁物 レシピコード レシピ名 strTmpSQL = strTmpSQL & " T_recipedaily.Comment" '/ varDailyData( 7, *) コメント strTmpSQL = strTmpSQL & " FROM ((T_recipedaily LEFT JOIN T_recipe ON T_recipedaily.RecipeCode1 = T_recipe.RecipeCode)" strTmpSQL = strTmpSQL & " LEFT JOIN T_recipe AS T_recipe_1 ON T_recipedaily.RecipeCode2 = T_recipe_1.RecipeCode)" strTmpSQL = strTmpSQL & " LEFT JOIN T_recipe AS T_recipe_2 ON T_recipedaily.RecipeCode3 = T_recipe_2.RecipeCode" '/ strTmpSQL = strTmpSQL & " WHERE (((T_recipedaily.Day)>='" & EditSqlInjection("0" & Mid(strSYS_DATE, 6, 2) & Mid(strSYS_DATE, 9, 2), "", True) & "')) ORDER BY Day" strTmpSQL = strTmpSQL & " WHERE (((T_recipedaily.Day) >= '0" & EditSqlInjection(THE_DATE, "", True) & "'))" If ChkLeap() = False Then strTmpSQL = strTmpSQL & " AND Day <> '00229' " End If strTmpSQL = strTmpSQL & "ORDER BY Day" '/ Response.Write "【今日の献立SQL】" & strTmpSQL & "
" recSetRecR.Open strTmpSQL, dbsConRecR, 3, 1 If Not recSetRecR.BOF And Not recSetRecR.EOF Then If SEQUENCE = "7" Then varDailyData = recSetRecR.GetRows(7) Else varDailyData = recSetRecR.GetRows(1) End If End If recSetRecR.Close End Sub '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetSampleKeyWordData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : サンプルキーワードデータ取得 '/-------------------------------------------------------------------------------------------------- Sub GetSampleKeyWordData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim objTmpFs '/ Object Dim objTmpData '/ Data Dim strTmpFilePath '/ 取得先ファイルパス Dim aryTmpRData '/ RecordData Dim intTmpCnt '/ 配列数計算用 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ 取得先ファイルパス取得 strTmpFilePath = Server.MapPath("/") & "\data\" & "090_SampleKeyWord.csv" '/ obj生成 Set objTmpFs = CreateObject("Scripting.FileSystemObject") '/ ファイル有無チェック If objTmpFs.FileExists(strTmpFilePath) Then '/ ファイル読込 Set objTmpData = objTmpFs.OpenTextFile(strTmpFilePath, 1, 0) '/ 値取得 intTmpCnt = 0 Do Until objTmpData.AtEndOfLine aryTmpRData = Split(objTmpData.ReadLine, vbTab, -1, 0) If "" & aryTmpRData(0) <> "" Then If intTmpCnt = 0 Then ReDim arySMP_KW_DATA(intTmpCnt) Else ReDim Preserve arySMP_KW_DATA(intTmpCnt) End If arySMP_KW_DATA(intTmpCnt) = aryTmpRData(0) End If intTmpCnt = intTmpCnt + 1 Loop objTmpData.Close End If Set objTmpFs = Nothing End Sub '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetSSData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : 旬の食材 データ取得 '/-------------------------------------------------------------------------------------------------- Sub GetSSData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim objTmpFs '/ Object Dim objTmpData '/ Data Dim strTmpFilePath '/ 取得先ファイルパス Dim aryTmpRData '/ RecordData Dim intTmpCnt '/ 配列数計算用 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strS1MatValue = "" strS1MatName = "" strS2MatValue = "" strS2MatName = "" '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ 取得先ファイルパス取得 strTmpFilePath = Server.MapPath("/") & "\data\" & "ss_" & Mid(strSYS_DATE, 1, 4) & Mid(strSYS_DATE, 6, 2) & ".txt" '/ obj生成 Set objTmpFs = CreateObject("Scripting.FileSystemObject") '/ ファイル有無チェック If objTmpFs.FileExists(strTmpFilePath) Then '/ ファイル読込 Set objTmpData = objTmpFs.OpenTextFile(strTmpFilePath, 1, 0) '/ 値取得 intTmpCnt = 0 Do Until objTmpData.AtEndOfLine aryTmpRData = Split(objTmpData.ReadLine, vbTab, -1, 0) If intTmpCnt = 0 Then strS1MatValue = aryTmpRData(3) '/ 材料1 食材検索値 strS1MatName = aryTmpRData(4) '/ 材料1 食材表示名 Else strS2MatValue = aryTmpRData(3) '/ 材料2 食材検索値 strS2MatName = aryTmpRData(4) '/ 材料2 食材表示名 End If intTmpCnt = intTmpCnt + 1 Loop objTmpData.Close End If Set objTmpFs = Nothing End Sub '/-------------------------------------------------------------------------------------------------- '/ 関数名 : ChkLeapDay '/ '/ 引数 : strTmpCheckMonth チェック対象月 '/ strTmpCheckDay チェック対象日 '/ '/ 戻り値 : True 日付有 '/ False 日付無 '/ '/ コメント : うるう年日チェック '/-------------------------------------------------------------------------------------------------- Function ChkLeapDay(strTmpCheckMonth, strTmpCheckDay) '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpCheckYear '/ チェック対象年 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- ChkLeapDay = True '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ 入力されていれば終了 If strTmpCheckMonth <> "" AND strTmpCheckDay <> "" Then Exit Function End If '/ 対象年取得 strTmpCheckYear = CLng(Mid(FormatDateTime(CDate(strSYS_DATE), 1), 1, 5)) '/ うるう日チェック If Day(DateSerial(strTmpCheckYear, Clng(strTmpCheckMonth), Clng(strTmpCheckDay))) <> Clng(strTmpCheckDay) Then ChkLeapDay = False End If End Function '/-------------------------------------------------------------------------------------------------- '/ 関数名 : ChkLeap '/ '/ 引数 : なし '/ '/ 戻り値 : True 有 '/ False 無 '/ '/ コメント : うるう年チェック '/-------------------------------------------------------------------------------------------------- Function ChkLeap() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpCheckYear '/ チェック対象年 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- ChkLeap = False '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ 20が頭につくか一応確認すること。 strTmpCheckYear = CLng(Mid(FormatDateTime(CDate(strSYS_DATE), 0), 1, 4)) If Day(DateSerial(strTmpCheckYear, 2, 29)) = 29 Then ChkLeap = True End If End Function '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetRecipeAccessRankingData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : レシピアクセスランキングデータ取得 '/-------------------------------------------------------------------------------------------------- Sub GetRecipeAccessRankingData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpSQL '/SQL Dim dtmTmpRankFWDate '/ 取得開始日付 '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strTmpSQL = "" '/SQL '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/----------------------- '/ 現在の日付の週の日曜から土曜までの集計 '/----------------------- '/ 対象週を設定 dtmTmpRankFWDate = Mid(Trim(Request("w")),1,4) & "/" & Mid(Trim(Request("w")), 5,2) & "/" & Mid(Trim(Request("w")),7,2) If dtmTmpRankFWDate = "" Then dtmTmpRankFWDate = LB_GetWeekOrigin(Now()) Else dtmTmpRankFWDate = LB_GetWeekOrigin(dtmTmpRankFWDate) End If strTmpSQL = "" strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " T_recipeweeklyrank.Day," '/ varLB_RAR_DATA( 0, *) 対象日付 strTmpSQL = strTmpSQL & " T_recipeweeklyrank.RecipeCode," '/ varLB_RAR_DATA( 1, *) レシピコード strTmpSQL = strTmpSQL & " T_recipeweeklyrank.RecipeMei," '/ varLB_RAR_DATA( 2, *) レシピ名 strTmpSQL = strTmpSQL & " T_recipeweeklyrank.Access," '/ varLB_RAR_DATA( 3, *) アクセス数 strTmpSQL = strTmpSQL & " T_subrecipe.Kotu," '/ varLB_RAR_DATA( 4, *) コツ strTmpSQL = strTmpSQL & " T_subrecipe.Keys," '/ varLB_RAR_DATA( 5, *) キー strTmpSQL = strTmpSQL & " T_subrecipe.EasyFlg," '/ varLB_RAR_DATA( 6, *) かんたんレシピ strTmpSQL = strTmpSQL & " T_subrecipe.HealthyFlg," '/ varLB_RAR_DATA( 7, *) ヘルシーレシピ strTmpSQL = strTmpSQL & " T_subrecipe.BoxLunchFlg," '/ varLB_RAR_DATA( 8, *) お弁当 strTmpSQL = strTmpSQL & " T_subrecipe.CookMethodFlg," '/ varLB_RAR_DATA( 9, *) 調理方法 strTmpSQL = strTmpSQL & " T_subrecipe.DishFlg," '/ varLB_RAR_DATA(10, *) 料理区分 strTmpSQL = strTmpSQL & " T_subrecipe.DishGenreFlg," '/ varLB_RAR_DATA(11, *) 料理ジャンル strTmpSQL = strTmpSQL & " T_subrecipe.CakeGenreFlg," '/ varLB_RAR_DATA(12, *) お菓子ジャンル strTmpSQL = strTmpSQL & " T_subrecipe.BreadGenreFlg," '/ varLB_RAR_DATA(13, *) パンジャンル strTmpSQL = strTmpSQL & " T_subrecipe.MenuClassFlg," '/ varLB_RAR_DATA(14, *) 献立分類 strTmpSQL = strTmpSQL & " T_subrecipe.EventGenreFlg," '/ varLB_RAR_DATA(15, *) イベントジャンル strTmpSQL = strTmpSQL & " T_subrecipe.CookUtensilFlg," '/ varLB_RAR_DATA(16, *) 調理器具 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_bk_cnt_all," '/ varLB_RAR_DATA(17, *) ブックマークカウント総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_bk_cnt_pc," '/ varLB_RAR_DATA(18, *) ブックマークカウントPC strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_avr_all," '/ varLB_RAR_DATA(19, *) レビュー平均総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_avr_pc," '/ varLB_RAR_DATA(20, *) レビュー平均PC strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_cnt_all," '/ varLB_RAR_DATA(21, *) レビューカウント総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_cnt_pc" '/ varLB_RAR_DATA(22, *) レビューカウントPC strTmpSQL = strTmpSQL & " FROM (T_recipeweeklyrank LEFT JOIN T_subrecipe ON T_recipeweeklyrank.RecipeCode = T_subrecipe.RecipeCode) LEFT JOIN T_mp_reciperank ON T_recipeweeklyrank.RecipeCode = T_mp_reciperank.mp_rr_recipe_code" strTmpSQL = strTmpSQL & " WHERE T_recipeweeklyrank.Day = '" & dtmTmpRankFWDate & "'" strTmpSQL = strTmpSQL & " AND (T_recipeweeklyrank.RecipeCode < '07000' " strTmpSQL = strTmpSQL & " OR T_recipeweeklyrank.RecipeCode > '07999') " strTmpSQL = strTmpSQL & " ORDER BY T_recipeweeklyrank.Access DESC, T_recipeweeklyrank.RecipeCode" strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " T_recipeweeklyrank.RecipeCode," '/ varLB_RAR_DATA( 0, *)  strTmpSQL = strTmpSQL & " T_recipeweeklyrank.RecipeMei," '/ varLB_RAR_DATA( 1, *)  strTmpSQL = strTmpSQL & " T_recipeweeklyrank.Access," '/ varLB_RAR_DATA( 2, *)  strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_bk_cnt_all," '/ varLB_RAR_DATA( 3, *) ブックマークカウント総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_bk_cnt_pc," '/ varLB_RAR_DATA( 4, *) ブックマークカウントPC strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_avr_all," '/ varLB_RAR_DATA( 5, *) レビュー平均総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_avr_pc," '/ varLB_RAR_DATA( 6, *) レビュー平均PC strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_cnt_all," '/ varLB_RAR_DATA( 7, *) レビューカウント総合 strTmpSQL = strTmpSQL & " T_mp_reciperank.mp_rr_rv_cnt_pc" '/ varLB_RAR_DATA( 8, *) レビューカウントPC strTmpSQL = strTmpSQL & " FROM T_recipeweeklyrank LEFT JOIN T_mp_reciperank ON T_recipeweeklyrank.RecipeCode = T_mp_reciperank.mp_rr_recipe_code" strTmpSQL = strTmpSQL & " WHERE T_recipeweeklyrank.SelectFlg = '1' " strTmpSQL = strTmpSQL & " AND T_recipeweeklyrank.Day = '" & dtmTmpRankFWDate & "' " strTmpSQL = strTmpSQL & " AND (T_recipeweeklyrank.RecipeCode < '07000' " strTmpSQL = strTmpSQL & " OR T_recipeweeklyrank.RecipeCode > '07999') " strTmpSQL = strTmpSQL & " ORDER BY T_recipeweeklyrank.Access DESC, T_recipeweeklyrank.RecipeCode" recSetRecR.Open strTmpSQL, dbsConRecR If Not recSetRecR.BOF And Not recSetRecR.EOF Then varLB_RAR_DATA = recSetRecR.GetRows(5) End If recSetRecR.Close End Sub '/-------------------------------------------------------------------------------------------------- '/ 関数名 : LB_GetWeekOrigin '/ '/ 引数 : d 計算する元の日付 '/ '/ 戻り値 : 日曜日の日付を返す '/ '/ コメント : 起点の日曜を求める '/-------------------------------------------------------------------------------------------------- Function LB_GetWeekOrigin(d) '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim dt '/ Dim df '/ '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- If IsDate(d) = True Then Else d = Now() End If dt = CStr(Year(d)) & "/" & Right("0" & CStr(Month(d)), 2) & "/" & Right("0" & CStr(Day(d)), 2) '// 起点の日曜を求める df = Weekday(dt) - 1 d = DateAdd("d", -df, dt) LB_GetWeekOrigin = CStr(Year(d)) & "/" & Right("0" & CStr(Month(d)), 2) & "/" & Right("0" & CStr(Day(d)), 2) End Function '/-------------------------------------------------------------------------------------------------- '/ 関数名 : INC_QR_GetMainData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : トップ表示用クイックリサーチデータを取得する。 '/-------------------------------------------------------------------------------------------------- Function INC_QR_GetMainData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpSQL '/ SQL Dim varTmpDATA01 '/ DATA Dim varTmpDATA02 '/ DATA Dim intTmpLOOP '/ LOOP '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strTmpSQL = "" '/ SQL '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/------------------- '/ 基本情報データ取得 '/------------------- strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " TOP 1" strTmpSQL = strTmpSQL & " qr_basic_no," '/ varTmpDATA01( 0, *) 基本情報番号 strTmpSQL = strTmpSQL & " qr_title," '/ varTmpDATA01( 1, *) タイトル strTmpSQL = strTmpSQL & " qr_created," '/ varTmpDATA01( 2, *) データ作成日 strTmpSQL = strTmpSQL & " qr_updated," '/ varTmpDATA01( 3, *) データ更新日 strTmpSQL = strTmpSQL & " qr_open_flg," '/ varTmpDATA01( 4, *) 公開フラグ 00:非公開、01:公開 strTmpSQL = strTmpSQL & " qr_open_level," '/ varTmpDATA01( 5, *) 公開レベル 01〜05 strTmpSQL = strTmpSQL & " qr_pub_ope_sta_day," '/ varTmpDATA01( 6, *) 公開開始日 strTmpSQL = strTmpSQL & " qr_pub_ope_end_day," '/ varTmpDATA01( 7, *) 公開終了日 strTmpSQL = strTmpSQL & " qr_rec_sta_day," '/ varTmpDATA01( 8, *) アンケート募集開始日 strTmpSQL = strTmpSQL & " qr_rec_end_day," '/ varTmpDATA01( 9, *) アンケート募集終了日 strTmpSQL = strTmpSQL & " qr_com_sta_day," '/ varTmpDATA01(10, *) コメント募集開始日 strTmpSQL = strTmpSQL & " qr_com_end_day," '/ varTmpDATA01(11, *) コメント募集終了日 strTmpSQL = strTmpSQL & " qr_ans_updated," '/ varTmpDATA01(12, *) 最終募集データ更新日 strTmpSQL = strTmpSQL & " qr_rec_updated," '/ varTmpDATA01(13, *) 最終選択回答データ更新日 strTmpSQL = strTmpSQL & " qr_com_updated," '/ varTmpDATA01(14, *) 最終コメントデータ更新日 strTmpSQL = strTmpSQL & " qr_graph_flg," '/ varTmpDATA01(15, *) グラフフラグ 01:円、02:棒 strTmpSQL = strTmpSQL & " qr_com_flg," '/ varTmpDATA01(16, *) コメントフラグ 00:無、01:有 strTmpSQL = strTmpSQL & " qr_exp01," '/ varTmpDATA01(17, *) 説明 strTmpSQL = strTmpSQL & " qr_exp02," '/ varTmpDATA01(18, *) 応募終了コメント strTmpSQL = strTmpSQL & " qr_ans_all_cnt," '/ varTmpDATA01(19, *) 回答総件数 strTmpSQL = strTmpSQL & " qr_com_all_cnt" '/ varTmpDATA01(20, *) コメント総件数 strTmpSQL = strTmpSQL & " FROM T_qr_basic" strTmpSQL = strTmpSQL & " WHERE qr_open_flg = '01'" strTmpSQL = strTmpSQL & " AND (qr_open_level = '01' OR qr_open_level = '02')" strTmpSQL = strTmpSQL & " AND qr_pub_ope_sta_day <= '" & EditSqlInjection(strSYS_DATE, "", False) & "'" '/ 公開開始日が過去 strTmpSQL = strTmpSQL & " AND qr_pub_ope_end_day >= '" & EditSqlInjection(strSYS_DATE, "", False) & "'" '/ 公開終了日が未来 strTmpSQL = strTmpSQL & " AND qr_rec_sta_day <= '" & EditSqlInjection(strSYS_DATE, "", False) & "'" '/ 募集開始日が過去 strTmpSQL = strTmpSQL & " AND qr_rec_end_day >= '" & EditSqlInjection(strSYS_DATE, "", False) & "'" '/ 募集終了日が未来 strTmpSQL = strTmpSQL & " ORDER BY qr_open_level, qr_rec_sta_day DESC" recSetRecR.Open strTmpSQL, dbsConRecR If Not recSetRecR.BOF And Not recSetRecR.EOF Then varTmpDATA01 = recSetRecR.GetRows() End If recSetRecR.Close If IsArray(varTmpDATA01) Then strINC_QR_BASIC_NO = "" & varTmpDATA01(cstINC_QR_BASIC_NO , 0) '/ 基本情報番号 strINC_QR_TITLE = "" & varTmpDATA01(cstINC_QR_TITLE , 0) '/ タイトル strINC_QR_CREATED = "" & varTmpDATA01(cstINC_QR_CREATED , 0) '/ データ作成日 strINC_QR_UPDATED = "" & varTmpDATA01(cstINC_QR_UPDATED , 0) '/ データ更新日 strINC_QR_OPEN_FLG = "" & varTmpDATA01(cstINC_QR_OPEN_FLG , 0) '/ 公開フラグ 00:非公開、01:公開 strINC_QR_OPEN_LEVEL = "" & varTmpDATA01(cstINC_QR_OPEN_LEVEL , 0) '/ 公開レベル 01〜05 strINC_QR_PUB_OPE_STA_DAY = "" & varTmpDATA01(cstINC_QR_PUB_OPE_STA_DAY, 0) '/ 公開開始日 strINC_QR_PUB_OPE_END_DAY = "" & varTmpDATA01(cstINC_QR_PUB_OPE_END_DAY, 0) '/ 公開終了日 strINC_QR_REC_STA_DAY = "" & varTmpDATA01(cstINC_QR_REC_STA_DAY , 0) '/ アンケート募集開始日 strINC_QR_REC_END_DAY = "" & varTmpDATA01(cstINC_QR_REC_END_DAY , 0) '/ アンケート募集終了日 strINC_QR_COM_STA_DAY = "" & varTmpDATA01(cstINC_QR_COM_STA_DAY , 0) '/ コメント募集開始日 strINC_QR_COM_END_DAY = "" & varTmpDATA01(cstINC_QR_COM_END_DAY , 0) '/ コメント募集終了日 strINC_QR_ANS_UPDATED = "" & varTmpDATA01(cstINC_QR_ANS_UPDATED , 0) '/ 最終募集データ更新日 strINC_QR_REC_UPDATED = "" & varTmpDATA01(cstINC_QR_REC_UPDATED , 0) '/ 最終選択回答データ更新日 strINC_QR_COM_UPDATED = "" & varTmpDATA01(cstINC_QR_COM_UPDATED , 0) '/ 最終コメントデータ更新日 strINC_QR_GRAPH_FLG = "" & varTmpDATA01(cstINC_QR_GRAPH_FLG , 0) '/ グラフフラグ 01:円、02:棒 strINC_QR_COM_FLG = "" & varTmpDATA01(cstINC_QR_COM_FLG , 0) '/ コメントフラグ 00:無、01:有 strINC_QR_EXP01 = "" & varTmpDATA01(cstINC_QR_EXP01 , 0) '/ 説明 strINC_QR_EXP02 = "" & varTmpDATA01(cstINC_QR_EXP02 , 0) '/ 応募終了コメント strINC_QR_ANS_ALL_CNT = "" & varTmpDATA01(cstINC_QR_ANS_ALL_CNT , 0) '/ 回答総件数 strINC_QR_COM_ALL_CNT = "" & varTmpDATA01(cstINC_QR_COM_ALL_CNT , 0) '/ コメント総件数 '/------------------- '/ 回答条件データ取得 '/------------------- strTmpSQL = "" strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " qr_basic_no," '/ varTmpDATA02( 0, *) 基本情報番号 strTmpSQL = strTmpSQL & " qr_option_no," '/ varTmpDATA02( 1, *) 回答情報番号 strTmpSQL = strTmpSQL & " qr_ans_cnt," '/ varTmpDATA02( 2, *) 回答件数 strTmpSQL = strTmpSQL & " qr_ans_cond," '/ varTmpDATA02( 3, *) 回答条件 strTmpSQL = strTmpSQL & " qr_ans_url," '/ varTmpDATA02( 4, *) 回答URL strTmpSQL = strTmpSQL & " qr_ans_desc," '/ varTmpDATA02( 5, *) 回答説明 strTmpSQL = strTmpSQL & " qr_com_cnt" '/ varTmpDATA02( 6, *) コメント件数 strTmpSQL = strTmpSQL & " FROM T_qr_option" strTmpSQL = strTmpSQL & " WHERE qr_basic_no = '" & EditSqlInjection(strINC_QR_BASIC_NO, "", True) & "'" strTmpSQL = strTmpSQL & " ORDER BY qr_option_no" recSetRecR.Open strTmpSQL, dbsConRecR If Not recSetRecR.BOF And Not recSetRecR.EOF Then varTmpDATA02 = recSetRecR.GetRows() End If recSetRecR.Close If IsArray(varTmpDATA02) Then intTmpLOOP = "" For intTmpLOOP = LBound(varTmpDATA02, 2) To UBound(varTmpDATA02, 2) varINC_QR_ANS_DATA(cstINC_QR_BASIC_NO, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_BASIC_NO, intTmpLOOP) '/ 基本情報番号 varINC_QR_ANS_DATA(cstINC_QR_ANS_OPT_NO, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_ANS_OPT_NO, intTmpLOOP) '/ 回答情報番号 varINC_QR_ANS_DATA(cstINC_QR_ANS_CNT, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_ANS_CNT, intTmpLOOP) '/ 回答件数 varINC_QR_ANS_DATA(cstINC_QR_ANS_COND, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_ANS_COND, intTmpLOOP) '/ 回答条件 varINC_QR_ANS_DATA(cstINC_QR_ANS_URL, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_ANS_URL, intTmpLOOP) '/ 回答URL varINC_QR_ANS_DATA(cstINC_QR_ANS_DESC, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_ANS_DESC, intTmpLOOP) '/ 回答説明 varINC_QR_ANS_DATA(cstINC_QR_COM_CNT, intTmpLOOP) = "" & varTmpDATA02(cstINC_QR_COM_CNT, intTmpLOOP) '/ コメント件数 Next End If Else End If End Function '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetKondateRankingData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : 献立ランキングデータを取得する。 '/ '/-------------------------------------------------------------------------------------------------- Function GetKondateRankingData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpSQL '/ SQL Dim varTmpD_DATA '/ DATA Dim varTmpM_DATA '/ DATA Dim varTmpR_DATA '/ DATA Dim strTmpERR '/ ERR Dim intTmpI '/ LOOP '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strTmpSQL = "" '/ SQL strTmpERR = "" '/ ERR '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/------------------- '/ ランキングデータ取得 '/------------------- strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " TOP 1" strTmpSQL = strTmpSQL & " T_mk_main_data.mk_id," '/ varTmpDATA( 0, *) 献立ID strTmpSQL = strTmpSQL & " T_mk_main_data.mk_title," '/ varTmpDATA( 1, *) 献立タイトル strTmpSQL = strTmpSQL & " T_mk_main_data.mk_open_flg," '/ varTmpDATA( 2, *) 公開フラグ    00:非公開、01:公開、09:一時保存 strTmpSQL = strTmpSQL & " T_mk_rank_data.mk_kr_wr_cnt_pc" '/ varTmpDATA( 3, *) 週間ランクカウントPC strTmpSQL = strTmpSQL & " FROM T_mk_rank_data INNER JOIN T_mk_main_data" strTmpSQL = strTmpSQL & " ON T_mk_rank_data.mk_id = T_mk_main_data.mk_id" strTmpSQL = strTmpSQL & " WHERE T_mk_main_data.mk_open_flg = '01'" strTmpSQL = strTmpSQL & " AND T_mk_rank_data.mk_kr_wr_cnt_pc > 0" strTmpSQL = strTmpSQL & " ORDER BY T_mk_rank_data.mk_kr_wr_cnt_pc DESC" recSetRec.Open strTmpSQL, dbsConRec If Not recSetRec.BOF And Not recSetRec.EOF Then varTmpD_DATA = recSetRec.GetRows() End If recSetRec.Close If IsArray(varTmpD_DATA) Then Call GetMyKondateData(varTmpD_DATA( 0, 0), "OutputKondate", strTmpERR, varTmpM_DATA, varTmpR_DATA) If strTmpERR = "" Then '/ 基本情報関連取得 strTOP_KD_RA_MK_ID = varTmpM_DATA(cstMK_MA_ID, 0) '/ 献立ランキング 献立ID strTOP_KD_RA_MK_TITLE = varTmpM_DATA(cstMK_MA_TITLE, 0) '/ 献立ランキング 献立タイトル floTOP_KD_RA_MK_ENERUGI = varTmpM_DATA(cstMK_MA_ENE, 0) '/ 献立ランキング エネルギー floTOP_KD_RA_MK_TAN = varTmpM_DATA(cstMK_MA_TAN, 0) '/ 献立ランキング たんぱく質 2012-12-08 追加 floTOP_KD_RA_MK_SHI = varTmpM_DATA(cstMK_MA_SHI, 0) '/ 献立ランキング 脂質 2012-12-08 追加 floTOP_KD_RA_MK_TOU = varTmpM_DATA(cstMK_MA_TOU, 0) '/ 献立ランキング 炭水化物 2012-12-08 追加 floTOP_KD_RA_MK_CA = varTmpM_DATA(cstMK_MA_CA, 0) '/ 献立ランキング カルシウム 2012-12-08 追加 floTOP_KD_RA_MK_NATO = varTmpM_DATA(cstMK_MA_NATO, 0) '/ 献立ランキング ナトリウム 2012-12-08 追加 floTOP_KD_RA_MK_SENI_SOU = varTmpM_DATA(cstMK_MA_SENI_SOU, 0) '/ 献立ランキング 食物繊維(総量) 2012-12-08 追加 intTOP_KD_RA_MK_REC_CNT = varTmpM_DATA(cstMK_MA_RECIPE_CNT, 0) '/ 献立ランキング 登録レシピ件数 '/ レシピ情報関連取得 intTmpI = "" For intTmpI = LBound(varTmpR_DATA, 2) To UBound(varTmpR_DATA, 2) Select Case intTmpI Case 0 strTOP_KD_RA_MK_R1_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 献立ランキング レシピ1 レシピNO strTOP_KD_RA_MK_R1_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 献立ランキング レシピ1 レシピ名称 Case 1 strTOP_KD_RA_MK_R2_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 献立ランキング レシピ2 レシピNO strTOP_KD_RA_MK_R2_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 献立ランキング レシピ2 レシピ名称 Case 2 strTOP_KD_RA_MK_R3_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 献立ランキング レシピ3 レシピNO strTOP_KD_RA_MK_R3_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 献立ランキング レシピ3 レシピ名称 End Select Next End If End If End Function '/-------------------------------------------------------------------------------------------------- '/ 関数名 : GetTodayMenuData '/ '/ 引数 : なし '/ '/ 戻り値 : なし '/ '/ コメント : 今日の献立データを取得する。 '/ '/-------------------------------------------------------------------------------------------------- Function GetTodayMenuData() '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim strTmpSQL '/ SQL Dim varTmpD_DATA '/ DATA Dim varTmpM_DATA '/ DATA Dim varTmpR_DATA '/ DATA Dim strTmpERR '/ ERR Dim intTmpI '/ LOOP '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- strTmpSQL = "" '/ SQL strTmpERR = "" '/ ERR '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/------------------- '/ 今日の献立データ取得 '/------------------- strTmpSQL = "SELECT" strTmpSQL = strTmpSQL & " TOP 1" strTmpSQL = strTmpSQL & " T_mk_daily_data.mk_da_date," '/ varTmpDATA( 0, *) 表示日付 strTmpSQL = strTmpSQL & " T_mk_daily_data.mk_id," '/ varTmpDATA( 1, *) 献立NO strTmpSQL = strTmpSQL & " T_mk_daily_data.mk_da_div_id," '/ varTmpDATA( 2, *) 区分ID ※予備 strTmpSQL = strTmpSQL & " T_mk_daily_data.mk_da_comment" '/ varTmpDATA( 3, *) コメント strTmpSQL = strTmpSQL & " FROM T_mk_daily_data" strTmpSQL = strTmpSQL & " WHERE T_mk_daily_data.mk_da_date = '0000" strTmpSQL = strTmpSQL & Mid(strSYS_DATE, 6, 2) & Mid(strSYS_DATE, 9, 2) & "'" '/ Response.Write strTmpSQL recSetRec.Open strTmpSQL, dbsConRec If Not recSetRec.BOF And Not recSetRec.EOF Then varTmpD_DATA = recSetRec.GetRows() End If recSetRec.Close If IsArray(varTmpD_DATA) Then strTOP_KD_DAY_COMMENT = varTmpD_DATA( 3, 0) '/ 今日の献立 コメント Call GetMyKondateData(varTmpD_DATA( 1, 0), "OutputKondate", strTmpERR, varTmpM_DATA, varTmpR_DATA) If strTmpERR = "" Then '/ 基本情報関連取得 strTOP_KD_DAY_MK_ID = varTmpM_DATA(cstMK_MA_ID, 0) '/ 今日の献立 献立ID strTOP_KD_DAY_MK_TITLE = varTmpM_DATA(cstMK_MA_TITLE, 0) '/ 今日の献立 献立タイトル floTOP_KD_DAY_MK_ENERUGI = varTmpM_DATA(cstMK_MA_ENE, 0) '/ 今日の献立 エネルギー floTOP_KD_DAY_MK_TAN = varTmpM_DATA(cstMK_MA_TAN, 0) '/ 今日の献立 たんぱく質 2012-12-08 追加 floTOP_KD_DAY_MK_SHI = varTmpM_DATA(cstMK_MA_SHI, 0) '/ 今日の献立 脂質 2012-12-08 追加 floTOP_KD_DAY_MK_TOU = varTmpM_DATA(cstMK_MA_TOU, 0) '/ 今日の献立 炭水化物 2012-12-08 追加 floTOP_KD_DAY_MK_CA = varTmpM_DATA(cstMK_MA_CA, 0) '/ 今日の献立 カルシウム 2012-12-08 追加 floTOP_KD_DAY_MK_NATO = varTmpM_DATA(cstMK_MA_NATO, 0) '/ 今日の献立 ナトリウム 2012-12-08 追加 floTOP_KD_DAY_MK_SENI_SOU = varTmpM_DATA(cstMK_MA_SENI_SOU, 0) '/ 今日の献立 食物繊維(総量) 2012-12-08 追加 intTOP_KD_DAY_MK_REC_CNT = varTmpM_DATA(cstMK_MA_RECIPE_CNT, 0) '/ 今日の献立 登録レシピ件数 '/ レシピ情報関連取得 intTmpI = "" For intTmpI = LBound(varTmpR_DATA, 2) To UBound(varTmpR_DATA, 2) Select Case intTmpI Case 0 strTOP_KD_DAY_MK_R1_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 今日の献立 レシピ1 レシピNO strTOP_KD_DAY_MK_R1_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 今日の献立 レシピ1 レシピ名称 Case 1 strTOP_KD_DAY_MK_R2_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 今日の献立 レシピ2 レシピNO strTOP_KD_DAY_MK_R2_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 今日の献立 レシピ2 レシピ名称 Case 2 strTOP_KD_DAY_MK_R3_RCCD = varTmpR_DATA(cstMK_RE_REC_CD, intTmpI) '/ 今日の献立 レシピ3 レシピNO strTOP_KD_DAY_MK_R3_RCNM = varTmpR_DATA(cstMK_RE_REC_NAME, intTmpI) '/ 今日の献立 レシピ3 レシピ名称 End Select Next End If End If End Function %>

ボブとアンジーのレシピ> 定番・基本のレシピ> 和食の基本> 冷奴

定番!基本のレシピ

和食の基本


あさつき

大葉

みょうが

ゆず

冷奴


材料:(4人分)

●豆腐(もめんごし)2丁●薬味(あさつき、大葉、しょうが、みょうが、各適量)●たれ(しょうゆ、ゆずまたはレモンの絞り汁、各適量)

みじん切り


下ごしらえ:

豆腐を洗います

  1. 豆腐は大きめのボウルにあけ、流水を静かに注いで崩さないように気をつけながら2〜3回水をかえます。
  2. 再びボウルに水を静かに注ぎ、そのまま冷蔵庫で冷やしておきます。芯まで冷やすには約2時間かかります。

薬味を用意する

  1. あさつきは外側の汚い皮をむき、薄い小口切りにします。
  2. 大葉は重ねて縦に巻き、端から細かいせん切りにします。
  3. しょうがは皮をむいて、おろし金ですりおろします。
  4. みょうがは外側の皮を1〜2枚むいて、みじん切りにします。

たれを作る

  1. しょうゆに、ゆずまたはレモンの絞り汁を加えます。市販のぽん酢は長期保存できるので手軽に使えます。

作り方:

  1. 冷やしておいた豆腐を取り出し、1丁を2つに切ります。
  2. 器に盛り、豆腐の中央を小さなスプーンで丸くくりぬき、浅い窪みを作ります。
  3. 窪みに薬味を飾るように少しずつのせます。
  4. 食べる直前にたれをかけます。

●薬味は全種類揃わなくても構いません。好みに応じて木の芽やわさび等、他のものも試してください。

豆腐は流水を静かに注いで崩さないように気をつけながら2〜3回水をかえます 冷やしておいた豆腐を取り出し、1丁を2つに切ります。 豆腐の中央を小さなスプーンで丸くくりぬき浅い窪みを作ります。 窪みに薬味を飾るように少しずつのせます


プロのアドバイス:

豆腐の下ごしらえ

関連レシピ

湯豆腐
ぎせい豆腐
豆腐ステーキトマトソース添え


[ English ]
<% '//************************************************************************************************* '// タイトル : 共通ファイル トップ用ヘッダー '// '// ターゲット : ボブアンWEBアプリケーション '// '// コメント : ボブアンの共通ファイルトップ用右側リストを表記 '// '// 更新履歴 : 2006/08/18 マック 三輪 新規作成 '// 2007/07/31 マック 三輪 MYページ機能追加 '// 2007/08/03 エルネット 寺西 GoogleAdsense機能追加 '// 2007/10/22 マック 三輪 検索結果用広告追加 '// 2007/10/30 マック 三輪 MYページ関連用広告追加 '// 2008/10/01 マック 三輪 新規広告追加 '// 2009/04/01 マック 三輪 レシピランキング表示 '// 2010/07/01 マック 三輪 リニューアル '// 2011/01/17 マック 三輪 URL短縮対応処理 '// '//************************************************************************************************* '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/--------------------------------------------- '/ バナービュー処理 '/--------------------------------------------- '/ レシピページのみカウント If Request.ServerVariables("URL") = "/recipe/OutputMain.asp" _ Or Request.ServerVariables("URL") = "/recipe/MailRecipe.asp" _ Or Request.ServerVariables("URL") = "/recipe/Outputmain.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMainTest.asp" Then Call CountViewData("I") '/ レシピ検索結果ページ、最近見たレシピのみカウント ElseIf Request.ServerVariables("URL") = "/search/FindResult.asp" _ Or Request.ServerVariables("URL") = "/search/FindResult_ad.asp" _ Or Request.ServerVariables("URL") = "/search/recently.asp" _ Or Request.ServerVariables("URL") = "/recipe/theme/standard_curry.asp" Then Call CountViewData("M") '/ MYページ関連のみカウント ElseIf InStr(Request.ServerVariables("URL"), "/my/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/diagnosis/") > 0 _ Or Request.ServerVariables("URL") = "/recipe/OutputReview.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputUser.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMypage.asp" Then Call CountViewData("U") Call CountViewData("V") Call CountViewData("W") Call CountPageViewData("rnt_my01") Call CountPageViewData("rnt_my02") '/ 献立詳細ページのみカウント ElseIf Request.ServerVariables("URL") = "/menu/OutputMenu.asp" Then Call CountViewData("C") '/ 献立検索結果ページのみカウント ElseIf Request.ServerVariables("URL") = "/search/FindMenu.asp" Then Call CountViewData("L") '/ 上記以外で表示 Else '/ 表紙のみ If Request.ServerVariables("URL") = "/index.asp" Then Call CountViewData("O") Call CountViewData("P") Call CountViewData("Q") Call CountPageViewData("rnt_top01") Call CountPageViewData("rnt_top02") '/ 表紙以外 Else Call CountViewData("R") Call CountViewData("S") Call CountViewData("T") Call CountPageViewData("rnt_sec01") Call CountPageViewData("rnt_sec02") End If End If If False Then Select Case Trim(Request.ServerVariables("LOCAL_ADDR")) Case CST_IP_OPEN_01, CST_IP_OPEN_02 Case CST_IP_STAGE Case Else End Select End If '/------------------------------------------------------------------------------------------ '/ 右側表示開始 '/------------------------------------------------------------------------------------------ '/--------------------------------------------- '/ レシピページのみ表示 '/--------------------------------------------- If Request.ServerVariables("URL") = "/recipe/OutputMain.asp" _ Or Request.ServerVariables("URL") = "/recipe/MailRecipe.asp" _ Or Request.ServerVariables("URL") = "/recipe/Outputmain.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMainTest.asp" Then %> <% '/--------------------------------------------- '/ 検索結果関連のみ表示 '/--------------------------------------------- ElseIf Request.ServerVariables("URL") = "/search/FindResult.asp" _ Or Request.ServerVariables("URL") = "/search/FindResult_ad.asp" _ Or Request.ServerVariables("URL") = "/search/recently.asp" _ Or Request.ServerVariables("URL") = "/recipe/theme/standard_curry.asp" Then %> <% '/--------------------------------------------- '/ MYページ関連のみ表示 '/--------------------------------------------- ElseIf InStr(Request.ServerVariables("URL"), "/my/") > 0 _ Or InStr(Request.ServerVariables("URL"), "/diagnosis/") > 0 _ Or Request.ServerVariables("URL") = "/recipe/OutputReview.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputUser.asp" _ Or Request.ServerVariables("URL") = "/recipe/OutputMypage.asp" Then %> <% '/--------------------------------------------- '/ 献立詳細ページのみ表示 '/--------------------------------------------- ElseIf Request.ServerVariables("URL") = "/menu/OutputMenu.asp" Then %> <% '/--------------------------------------------- '/ 献立検索結果ページのみ表示 '/--------------------------------------------- ElseIf Request.ServerVariables("URL") = "/search/FindMenu.asp" Then %> <% '/--------------------------------------------- '/ 上記以外で表示 表紙、それ以外 '/--------------------------------------------- Else %>

<% '/ 表紙のみ If Request.ServerVariables("URL") = "/index.asp" Then Response.Write BannerO '/ 表紙以外 Else Response.Write BannerR End If %>

レシピレンタルについて

" target="_blank">レシピ開発&レンタル!料理写真も!
開発もレンタルもボブアンにおまかせください!

" target="_blank">料理家・管理栄養士
レシピ監修、製作にかかわる料理家・管理栄養士

おすすめ情報[PR]

<% '/ 表紙のみ If Request.ServerVariables("URL") = "/index.asp" Then Response.Write BannerP '/ 表紙以外 Else Response.Write BannerS End If %>

<% '/ 表紙のみ If Request.ServerVariables("URL") = "/index.asp" Then Response.Write BannerQ '/ 表紙以外 Else Response.Write BannerT End If %> <% Call RecipeSeenRecently("OTHER_PAGE") %>

おすすめコンテンツ

<% '/ 表紙のみ If Request.ServerVariables("URL") = "/index.asp" Then %>

リンク

便利なお料理TOOLS

\
プライバシーマーク

このサイトは、プライバシー保護のため、SSL暗号化通信を採用(導入)しています。
SSL推奨ブラウザについて

<% End If '/-------------------------------------------------------------------------------------------------- '/ 関数名 : RecipeSeenRecently '/ '/ 引数 : strTmpType 表示タイプ '/ '/ 戻り値 : なし '/ '/ コメント : 最近見たレシピ表示 '/ '/ ※開発中 '/ '/-------------------------------------------------------------------------------------------------- Public Sub RecipeSeenRecently(strTmpType) '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- Dim intTmpRow '/ LOOP Dim intTmpCnt '/ COUNT Dim intTmpCstMaxCnt '/ MAXCOUNT Dim strTmpIMG_01_F '/ IMG FILE_NAME Dim intTmpIMG_01_W '/ IMG WIDTH Dim intTmpIMG_01_H '/ IMG HEIGHT Dim strTmpMoreRecipe '/ 「もっとレシピを見る」文言 Dim strTmpREC_IMG_CLASS '/ RECIPE IMG CLASS Dim strTmpREC_CHK_CODE '/ レシピページ用重複チェックレシピコード '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- intTmpCnt = 0 '/ LOOP intTmpCstMaxCnt = 5 '/ MAXCOUNT '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- Select Case strTmpType '/ 献立ページ Case "KONDATE_PAGE" strTmpIMG_01_F = "10_text_recent_s.jpg" '/ IMG FILE_NAME intTmpIMG_01_W = "250" '/ IMG WIDTH intTmpIMG_01_H = "32" '/ IMG HEIGHT strTmpREC_IMG_CLASS = "fl1007 mr1em nom" '/ RECIPE IMG CLASS strTmpMoreRecipe = "もっとレシピを見る" '/ 「もっとレシピを見る」文言 strTmpREC_CHK_CODE = "00000" '/ レシピページ用重複チェックレシピコード '/ レシピ参照系 Case "RECIPE_PAGE" strTmpIMG_01_F = "10_text_recent_s.jpg" '/ IMG FILE_NAME intTmpIMG_01_W = "250" '/ IMG WIDTH intTmpIMG_01_H = "32" '/ IMG HEIGHT strTmpREC_IMG_CLASS = "fl1007 mr1em nom" '/ RECIPE IMG CLASS strTmpMoreRecipe = "もっとレシピを見る" '/ 「もっとレシピを見る」文言 strTmpREC_CHK_CODE = varData(cstRecipeCode, 0) '/ レシピページ用重複チェックレシピコード '/ 検索結果系 Case "RESULT_PAGE" strTmpIMG_01_F = "10_text_recent_s.jpg" '/ IMG FILE_NAME intTmpIMG_01_W = "250" '/ IMG WIDTH intTmpIMG_01_H = "32" '/ IMG HEIGHT strTmpREC_IMG_CLASS = "fl mr1em nom" '/ RECIPE IMG CLASS strTmpMoreRecipe = "もっと見る" '/ 「もっとレシピを見る」文言 strTmpREC_CHK_CODE = "00000" '/ レシピページ用重複チェックレシピコード '/ 上記以外 Case "OTHER_PAGE" strTmpIMG_01_F = "10_text_recent.jpg" '/ IMG FILE_NAME intTmpIMG_01_W = "300" '/ IMG WIDTH intTmpIMG_01_H = "32" '/ IMG HEIGHT strTmpREC_IMG_CLASS = "fl mr1em nom" '/ RECIPE IMG CLASS strTmpMoreRecipe = "もっとレシピを見る" '/ 「もっとレシピを見る」文言 strTmpREC_CHK_CODE = "00000" '/ レシピページ用重複チェックレシピコード '/ 指定無し Case Else strTmpIMG_01_F = "10_text_recent.jpg" '/ IMG FILE_NAME intTmpIMG_01_W = "300" '/ IMG WIDTH intTmpIMG_01_H = "32" '/ IMG HEIGHT strTmpREC_IMG_CLASS = "fl mr1em nom" '/ RECIPE IMG CLASS strTmpMoreRecipe = "もっとレシピを見る" '/ 「もっとレシピを見る」文言 strTmpREC_CHK_CODE = "00000" '/ レシピページ用重複チェックレシピコード End Select %>

最近見たレシピ

    <% If IsArray(varRecViewData) Then intTmpRow = "" For intTmpRow = LBound(varRecViewData, 2) To UBound(varRecViewData, 2) '/ 最大件数チェック If intTmpCnt < intTmpCstMaxCnt Then '/ 表示レシピ以外 If varRecViewData( 1, intTmpRow) <> strTmpREC_CHK_CODE Then %>
  • <% = varRecViewData( 2, intTmpRow) %>
  • <% '/ 表示カウント intTmpCnt = intTmpCnt + 1 End If End If Next Else %>
  • レシピを見たらここに表示されます。
  • <% End If %>
  • <% = strTmpMoreRecipe %>
<% End Sub %>
<% '//************************************************************************************************* '// タイトル : 共通ファイル トップ用フッター '// '// ターゲット : ボブアンWEBアプリケーション '// '// コメント : ボブアンの共通ファイルトップ用フッターを表記 '// '// 更新履歴 : 2006/08/18 マック 三輪 新規作成 '// 2009/04/01 マック 三輪 バナーJをレシピ詳細へ移動 '// '//************************************************************************************************* '/-------------------------------------------------------------------------------------------------- '/ 変数定義 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 初期設定 '/-------------------------------------------------------------------------------------------------- '/-------------------------------------------------------------------------------------------------- '/ 実処理 '/-------------------------------------------------------------------------------------------------- '/ '/--------------------------------------------- '/ '/ バナービュー処理 '/ '/--------------------------------------------- '/ '/ レシピページのみ表示 '/ If Request.ServerVariables("URL") = "/recipe/OutputMain.asp" Or Request.ServerVariables("URL") = "/recipe/MailRecipe.asp" Then '/ Call CountViewData("J") '/ End If %>