<% '//************************************************************************************************* '// タイトル : 共通ファイル トップ用ヘッダー '// '// ターゲット : ボブアン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 %>

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

定番!基本のレシピ

和食の基本


基本レシピ | 用語解説 | プロのアドバイス | English

基本レシピ

基本の和食レシピを20選びました。初めての人でも作れるように、詳しい解説をつけています。
肉じゃが 親子丼
出し巻き卵 カレーライス
天ぷら とんかつ
きつねうどん ブリの照り焼き
茶碗蒸し すき焼き
みそ汁 焼き鳥
冷奴 ラーメン
手巻き寿司 ほうれん草のごま和え
関西風お好み焼 おむすび
梅ぞうすい 雑煮
筑前煮 すき焼き


用語解説
材料・素材についての用語集
道具・技法についての用語集


プロのアドバイス

プロが解説する料理のポイントです。
和え衣いろいろ アク抜き
揚げもののコツ 合わせ酢
おむすびの握り方 ごはんの炊き方
魚の下ごしらえ 雑炊と粥
すしめしの作り方 スープストック
だしの取り方 卵料理のコツ
佃煮いろいろ 漬物いろいろ
豆腐の下ごしらえ 煮物のコツ
干物のもどし方 みそ汁のコツ
めんつゆ 餅の保存法
薬味いろいろ 野菜の下ごしらえ
野菜の切り方  
<% '//************************************************************************************************* '// タイトル : 共通ファイル トップ用ヘッダー '// '// ターゲット : ボブアン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 %>