<% //カテゴリ別一覧 //2004/10/10 修正 Option Explicit Dim sc Dim ListId Dim Page Dim Start Dim paging Dim pagingmax Dim pagingflg Dim pagingstart Dim pagingend Dim p Dim maxpage Dim nokey Dim fk Dim xmldoc Dim xmldoc2 Dim root Dim count Dim tempbox Dim ns Dim fkns Dim fkloop Dim a Dim b Dim i Dim x Dim e //メニューデータ格納用 Dim list_count Dim list_catego2 Dim list_picflg Dim list_categotexttitle Dim list_categotext Dim list_pictext Dim list_linktext Dim list_linkurl Dim list_menu_id Dim menu_id Dim menu_menuname Dim menu_text Dim menu_rcp_linktext Dim menu_rcp_linkurl Dim keyword //検索結果 Dim searchresult Dim srbox searchresult = "" '変数初期化 sc = 0 '検索結果 ListId = Request("ListId") 'リストID受取 Page = Request("Page") Start = Request("Start") paging=5 pagingmax = 10 fkns = 0 //検索1ページ目 変数初期化 If Start = "" then Start = 0 Page= 1 Session("list_SesSrbox") = "" Session("sc") = "" Session("ns") = "" ns = 1 End If Set xmldoc = Server.CreateObject("Microsoft.XMLDom") xmldoc.async = false xmldoc.load(server.mappath("data/menu" & ListId & ".xml"))'カテゴリ別リスト読み込み set root = xmldoc.documentElement list_count = root.selectNodes("//menu").length set list_picflg = xmldoc.getElementsByTagName("picflg") set list_categotexttitle = xmldoc.getElementsByTagName("categotexttitle") set list_catego2 = xmldoc.getElementsByTagName("catego2") set list_categotext = xmldoc.getElementsByTagName("categotext") set list_pictext = xmldoc.getElementsByTagName("pictext") set list_linktext = xmldoc.getElementsByTagName("linktext") set list_linkurl = xmldoc.getElementsByTagName("linkurl") set list_menu_id = xmldoc.getElementsByTagName("id") list_categotext = Replace(list_categotext(0).text,"tags","<") list_categotext = Replace(list_categotext,"tage",">") list_categotext = Replace(list_categotext,"\n","
") list_pictext = Replace(list_pictext(0).text,"\n","
") Set xmldoc2 = Server.CreateObject("Microsoft.XMLDom") xmldoc2.async = false xmldoc2.load(server.mappath("data/searchdata.xml"))'レシピ全データ読み込み set root = xmldoc2.documentElement count = root.selectNodes("//menu").length set menu_id = xmldoc2.getElementsByTagName("id") set menu_menuname = xmldoc2.getElementsByTagName("menuname") set menu_text = xmldoc2.getElementsByTagName("text") set menu_rcp_linktext = xmldoc2.getElementsByTagName("rcp_linktext") set menu_rcp_linkurl = xmldoc2.getElementsByTagName("rcp_linkurl") If int(Page) = 1 then ///////////////   検索開始 //全リスト分、ループする For i = 0 to count - 1 For e = 0 to list_count - 1 //検索に合致した配列ナンバーをsearchresultに格納する。 If menu_id(i).text = list_menu_id(e).text then If searchresult = "" then searchresult = i Else searchresult = searchresult & "," & i End If sc = sc + 1 End If Next Next //End If //ページングのためデータをセッションに格納 Session("list_SesSrbox") = searchresult //検索結果(配列番号)を配列に格納 srbox = Split(searchresult,",") Session("sc") = sc Session("ns") = ns Else //ページング2ページ目以降 検索結果(配列番号)を配列に格納 searchresult = Session("list_SesSrbox") sc = Session("sc") ns = Session("ns") srbox = Split(Session("list_SesSrbox"),",") End If //検索は最初の一頁目だけで行う。 //ページング処理が必要か If sc <= paging then pagingflg = 1 End If //検索結果数を表示件数で割る maxpage = sc\paging //あまりのページがあれば、ページを追加する。 If 0 < (sc Mod paging) then maxpage = maxpage + 1 End If %> うま味レシピ <%=list_catego2(0).text%>

うま味調味料のことなら、ここにおまかせ 日本うま味調味料協会

<%=list_catego2(0).text%>

<% If list_picflg(0).text = "0" then %> <% If list_linkurl(0).text="" then%> <% Else %> <% End If %>
<% If list_categotexttitle(0).text = "" then %> <% Else %> ●<%=list_categotexttitle(0).text%>

<% End If %> <% If list_categotext = "" then%> <% Else %> <%=list_categotext%>
<% End If %> <% If list_linkurl(0).text="" then%> <% Else %>
  <%=list_linktext(0).text%>
<% End If %>
<% Else %> <% If int(Page) = 1 then%>
<% If list_pictext = "" then %> <% Else %> <% End If %>
<%=list_pictext%>
<% If list_categotexttitle(0).text = "" then %> <% Else %> ●<%=list_categotexttitle(0).text%>

<% End If %> <% If list_categotext = "" then%> <% Else %> <%=list_categotext%>
<% End If %> <% If list_linkurl(0).text="" then%> <% Else %>
  <%=list_linktext(0).text%>
<% End If %>
<% End If %> <% End If %>
レシピ うま味レシピ
<% If ns = 0 then%>
<%=sc%>件中 <%=Start+1%>件目 〜 <% If int(Page) = maxpage then %> <%=sc%> <% Else %> <%=Start + paging%> <% End If %> 件目を表示   レシピ一覧へ戻る
<% End If %> <% //条件検索 //検索結果をブラウザに書き出し If int(Page) = maxpage then For e = Start to UBound(srbox) call MakeList(int(srbox(e))) Next Else For e = Start to Start + (paging - 1) call MakeList(int(srbox(e))) Next End If %>
<% If pagingflg = 1 then %> <% Else %> 検索結果ページ  <%' pagingmaxページ以上、ページングされた場合にページ表示切替の始点を求める %> <% If int(Page) < (pagingmax/2) then 'ページング 前半 pagingstart = 0 pagingend = pagingmax Else pagingstart = Page - (pagingmax/2 - 1) - 1 pagingend = Page + (pagingmax/2) If maxpage <= pagingend then pagingend = maxpage End If End If %> <% If maxpage > pagingmax then '検索ページ数が規定を超えた場合%> <% for p = pagingstart to pagingend - 1 %> <% If p + 1 = int(Page) then%> <%=p+1%> <% Else %> <%=p+1%> <% End If %> <% Next %> <% Else %> <% for p = 0 to maxpage - 1 %> <% If p + 1 = int(Page) then%> <%=p+1%> <% Else %> <%=p+1%> <% End If %> <% Next %> <% End If %> <% End If %>
<% Sub MakeList(i) %>
<%=menu_menuname(i).text%>
<%=menu_menuname(i).text%>

<%=menu_text(i).text%> <% If menu_rcp_linktext(i).text="" then%> <% Else %>
  <%=menu_rcp_linktext(i).text%>
<% End If %>
レシピを見る

<% End Sub %>