めまぴークライアントのデモ６のソース

めまぴークライアントのデモ５と６の記事はこちらです。

■Application.cfm

<cfprocessingdirective pageEncoding = "UTF-8">
<cfsetting enableCFoutputOnly="yes">

<!--- session有効時間は20分 --->
<cfapplication name="#hash( getCurrentTemplatePath() )#"
    clientmanagement="Yes"
    sessionmanagement="yes"
    loginStorage="session"
    sessiontimeout=#CreateTimeSpan(0, 0, 20, 0)# >

<!---===================================
設定
====================================--->
<cfparam name="cookie.user_id"  default="">
<cfparam name="cookie.key"      default="">
<cfset request.user_id          = cookie.user_id>
<cfset request.key              = cookie.key>
<cfparam name="session.yyyy"    default="#dateformat(now(), 'yyyy')#">
<cfparam name="session.mm"      default="#dateformat(now(), 'mm')#">
<cfparam name="session.dd"      default="#dateformat(now(), 'dd')#">

<!--- 通常
<cfset request.proxyServer      = "">
<cfset request.proxyPort        = "80">
--->
<!--- 会社
<cfset request.proxyServer      = "xx.xx.xx.xx">
<cfset request.proxyPort        = "xx">
--->
<cfset request.proxyServer      = "">
<cfset request.proxyPort        = "80">
<cfset request.url              = "http://memapi.utalab.com/index.cfm?go=">
<!---
<cfset request.moveUrl          = "http://demo127.0.0.1:8500/uta/memapi_demo/5/index.cfm?p=init">
--->
<cfset request.moveUrl = "#lcase(ListFirst(cgi.server_protocol,"/"))#://#cgi.server_name#:#cgi.server_port##cgi.script_name#">
<cfset request.moveUrl = ListDeleteAt(request.moveUrl, ListLen(request.moveUrl, "/"), "/") & "/">
<cfset request.moveUrl = "#request.moveUrl#../5/index.cfm?p=init">

<cfset request.cat_id1 = 5> <!--- 夢・目標（長期・短期） --->
<cfset request.cat_id2 = 6> <!--- やりたいこと --->
<cfset request.cat_id3 = 7> <!--- 今日の出来事 --->
<cfset request.cat_id4 = 8> <!--- 今日の感謝 --->
<cfset request.cat_id5 = 9> <!--- 今日の成功法則・学びの言葉 --->

<cfset request.cat_nm = structNew()>
<cfset request.cat_nm[request.cat_id1] = "夢・目標（長期・短期）">
<cfset request.cat_nm[request.cat_id2] = "やりたいこと">
<cfset request.cat_nm[request.cat_id3] = "今日の出来事">
<cfset request.cat_nm[request.cat_id4] = "今日の感謝">
<cfset request.cat_nm[request.cat_id5] = "今日の成功法則・学びの言葉">

■index.cfm

<cfprocessingdirective pageEncoding = "UTF-8">
<!---/////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////--->
<cfparam name="url.p"       default="">

<cfswitch expression = "#url.p#">
    <!--- srch --->
    <cfcase value="srch">
        <cfset session.yyyy = form.yyyy>
        <cfset session.mm   = form.mm>
        <cfset session.dd   = form.dd>
    </cfcase>
</cfswitch>

<cfset cst_layout()>
<!---=================================================================
cst_getData
==================================================================--->
<cffunction name="cst_getData" access="public" returnType="struct" output="no">
    <cfargument name="cat_id"   type="string" required="yes">

    <cfset var outData = "">

    <cfhttp url         = "#request.url#dataGetEx"
            proxyServer = "#request.proxyServer#"
            proxyPort   = "#request.proxyPort#"
            method="post">
        <cfhttpparam type="formField" name="user_id"    value="#request.user_id#">
        <cfhttpparam type="formField" name="key"        value="#request.key#">
        <cfhttpparam type="formField" name="cat_id"     value="#arguments.cat_id#">
        <cfhttpparam type="formField" name="fil_id"     value="c1c2_desc">
        <cfhttpparam type="formField" name="fld_list"   value="id,cat_id,c1,c2,m1">
        <cfhttpparam type="formField" name="fromto_fld" value="c1">
        <cfhttpparam type="formField" name="from"       value="#session.yyyy#/#session.mm#/#session.dd#">
        <cfhttpparam type="formField" name="to"         value="#session.yyyy#/#session.mm#/#session.dd#">
        <cfhttpparam type="formField" name="row"        value="10">
        <cfhttpparam type="formField" name="page"       value="1">
        <cfhttpparam type="formField" name="type"       value="wddx">
        <cfhttpparam type="formField" name="debug"      value="">
    </cfhttp>

    <cfwddx action="wddx2cfml" input="#cfhttp.filecontent#" output="outData">

    <cfreturn outdata>
</cffunction>
<!---=================================================================
cst_layout
==================================================================--->
<cffunction name="cst_layout" access="public" returnType="void" output="yes">
    <cfset var local = structNew()>

    <cfoutput>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <meta http-equiv="content-style-type" content="text/css; charset=utf-8" />
        <meta http-equiv="Content-Script-Type" content="text/javascript" />
        <title>めまぴークライアントのデモ（日記）</title>
        <meta name="keywords" content="めまぴー,memapi" />
        <meta name="description" content="めまぴークライアントのデモ（日記）です。" />
        <link href="common.css" rel="stylesheet" type="text/css" media="all" />
        <script type="text/javascript" src="common.js"></script>
        <script type="text/javascript" src="index.js"></script>
    </head>
    <body>
    <!-- container -->
    <div id="container">

        <!-- header -->
        <div id="header">
            <!-- left -->
            <div class="left">
                        <h1><a href="index.cfm" accesskey="1">めまぴークライアントのデモ（日記）</a></h1>
                        <h2>by <a href="http://memapi.utalab.com/" target="_blank">めまぴー</a></h2>
            <!-- /.left --></div>

            <!-- right -->
            <div class="right">
            <!-- /.right --></div>

        <!-- /##header --></div>

        <div class="clearblock"/>

        <!-- left -->
        <div id="left">
            <!--- yume --->
            <cfset local.st = cst_getData(request.cat_id1)>

            <!-- menu -->
            <div class="menu">
                <p class="title">STATUS</p>

                <table>
                    <tr>
                        <th>ret</th>
                        <td align="right" id="ret">#local.st.ret#</td>
                    </tr>
                </table>

            <!-- /.menu --></div>

            <!-- menu -->
            <div class="menu">
                <p class="title">検索</p>

                <form name="frm_srch" action="index.cfm?p=srch" method="post">
                <table>
                    <tr>
                        <td>
                            <select name="yyyy">
                            <cfset local.from   = dateformat(DateAdd("yyyy", -1, now()), "yyyy")>
                            <cfset local.to     = local.from + 2>
                            <cfloop index="local.idx" from="#local.from#" to="#local.to#">
                                <option value="#local.idx#" <cfif session.yyyy eq local.idx>selected</cfif>>#local.idx#</option>
                            </cfloop>
                            </select>
                            年
                            <br>

                            <select name="mm">
                            <cfloop index="local.idx" from="1" to="12">
                                <cfset local.tmp = right("0" & local.idx, 2)>
                                <option value="#local.tmp#" <cfif session.mm eq local.tmp>selected</cfif>>#local.tmp#</option>
                            </cfloop>
                            </select>
                            月
                            <br>

                            <select name="dd">
                            <cfloop index="local.idx" from="1" to="31">
                                <cfset local.tmp = right("0" & local.idx, 2)>
                                <option value="#local.tmp#" <cfif session.dd eq local.tmp>selected</cfif>>#local.tmp#</option>
                            </cfloop>
                            </select>
                            日
                        </td>
                    </tr>
                    <tr>
                        <td>
                            <input type="submit" value="検索">
                            <input type="button" value="本日にリセット" onClick="js_today()">
                        </td>
                    </tr>
                </table>
                </form>
            <!-- /.menu --></div>

            <!-- menu -->
            <div class="menu">
                <p class="title">参考図書</p>
<iframe src="http://rcm-jp.amazon.co.jp/e/cm?lt1=_blank&bc1=FFFFFF&IS1=1&bg1=FFFFFF&fc1=000000&lc1=0000FF&t=utalab-22&o=9&p=8&l=as1&m=amazon&f=ifr&asins=489451379X" style="width:120px;height:240px;" scrolling="no" marginwidth="0" marginheight="0" frameborder="0"></iframe>
            <!-- /.menu --></div>

        <!-- /##left --></div>

        <!-- center -->
        <div id="center">
            <!-- content -->
            <div id="content">
                <h3>#session.yyyy#年#session.mm#月#session.dd#日</h3>


                <!--- yume mokuyo --->
                <cfset local.st = cst_getData(request.cat_id1)>
                <!-- menu -->
                <div class="menu">
                    <p class="title t_color1">#request.cat_nm[request.cat_id1]#</p>

                    <ul>
                        <cfloop query="local.st.data">
                            <li class="fontBig">#local.st.data.m1#</li>
                        </cfloop>
                    </ul>

                    <p class="footer">□<a href="#cst_link(request.cat_id1)#" target="_blank">#request.cat_nm[request.cat_id1]#へ</a></p>

                <!-- /.menu --></div>

                <cfloop index="local.cat_id" list="#request.cat_id2#,#request.cat_id3#,#request.cat_id4#,#request.cat_id5#">
                    <cfset local.st = cst_getData(local.cat_id)>
                    <!-- menu -->
                    <div class="menu harf">
                        <p class="title">#request.cat_nm[local.cat_id]#</p>

                        <ul>
                            <cfloop query="local.st.data">
                                <li>#local.st.data.m1#</li>
                            </cfloop>
                        </ul>

                        <p class="footer">□<a href="#cst_link(local.cat_id)#" target="_blank">#request.cat_nm[local.cat_id]#へ</a></p>
                    <!-- /.menu --></div>
                </cfloop>

            <!-- /##content --></div>
        <!-- /##center --></div>

        <div class="clearblock"/>

        <!-- footer -->
        <div id="footer">
            <form name="frm_cookie">
                <table border="0" width="100%">
                    <tr>
                        <td>user_id:<input type="text" name="user_id" id="user_id" value="#request.user_id#"></td>
                        <td>key:<input type="text" name="key" id="key" value="#request.key#"></td>
                        <td>
                            <input type="button" value="cookie change" onClick="js_cookie()">
                            <input type="button" value="cookie delete" onClick="js_cookie_del()">
                        </td>
                    </tr>
                </table>
            </form>
        <!-- /##footer --></div>
    <!-- /##container --></div>
    </body>
    </html>
    </cfoutput>
</cffunction>
<!---=================================================================
cst_link
==================================================================--->
<cffunction name="cst_link" access="public" returnType="string" output="no">
    <cfargument name="cat_id" type="numeric" required="yes">

    <cfreturn "#request.moveUrl#&user_id=#cookie.user_id#&key=#cookie.key#&cat_id=#arguments.cat_id#&title=#URLEncodedFormat(request.cat_nm[arguments.cat_id])#">
</cffunction>