閲覧総計:&counter();  (本日:&counter(today);  昨日:&counter(yesterday);)

 カレンダ コントロールの「日付」をクリックした時の処理の書き方を確認した。
今回は、日付をクリックするとその日の予定明細が表示される事例である。 10/08/09
#ref(sqlCalDescDisp01.JPG);

参考にしたページは↓こちら。
「Calendarコントロール上で選択された日付について処理を行うには?」05/08/12
http://www.atmarkit.co.jp/fdotnet/dotnettips/337aspcalendarsel/aspcalendarsel.html

 ところが、DBへの接続手法がASP.NET2.0以降は、記事内容(ASP.NET1.X)から変更にな
っているので、「DBへの接続」のコードを↓記事を参考に全面的に改造した。
「データソース・コントロールでいってみよう(前編)」 06/07/29
http://www.atmarkit.co.jp/fdotnet/vs2005db/vs2005db_06/vs2005db_06_03.html

 また、実際にはDBにMS-Accessを利用したいので、↓このページの情報を参考に、
DBをSQL Server2008→MS-Access2003に変更し、正常に稼働する事を確認した。
「ASP.NET アクセスデータにアクセスする(コーディング)」 
http://3939deb.seesaa.net/article/107785168.html

#contents

開発環境:VWD2008 + Access2003 + SQL Server2008
サーバ:ASP.NET3.5 + Access2003

【機能】 カレンダの日付をクリックするとその日の予定の詳細情報が表示される。
 また、予定の入っている日は、カレンダの日付が水色で表示されている。

*DBにSQL Server2008を使用した場合 [#n79600a7]

【稼働画面】
#ref(sqlCalDescDesign01.JPG);
#ref(sqlCalDescData01.JPG);
#ref(sqlCalDescDisp01.JPG);

【sqlCalDescription.aspx】
 <%@ Page ContentType="text/html" Language="VB" %>
 <%@ Import Namespace="System.Data" %>
 <%@ Import Namespace="System.Data.Common" %>
 <%@ Import Namespace="System.Drawing" %>
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <script runat="Server">
     'SQL ServerDBのConnectionString
     Dim MyDbConnectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\SQLCalendar.mdf;Integrat ed Security=True;User Instance=True"
     'SQL ServerDBのProviderName
     Dim MyDbProviderName As String = "System.Data.SqlClient"
     
     Dim scheInfo As DbDataReader
     
     ' それぞれの日付セルをレンダリングするタイミングで実行
     Sub cal_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
         
         Dim setting As ConnectionStringSettings = _
           ConfigurationManager.ConnectionStrings(MyDbConnectionString)
         Dim factory As DbProviderFactory = _
           DbProviderFactories.GetFactory(MyDbProviderName)
         
         Using db As DbConnection = factory.CreateConnection()
             db.ConnectionString = MyDbConnectionString
             
             ' 出力する日付セルに対応するスケジュール情報を抽出
             Dim comm As DbCommand = factory.CreateCommand()
             comm.CommandText = "SELECT [ID] FROM [schedule02] WHERE [sdate]=@sdate"
             comm.Connection = db
             
             Dim param As DbParameter = factory.CreateParameter()
             param.ParameterName = "@sdate"
             param.Value = e.Day.Date.ToString("yyyy/MM/dd")
             comm.Parameters.Add(param)
             
             db.Open()
             Dim reader As DbDataReader = comm.ExecuteReader()
  
            ' スケジュールが存在する場合にのみセルの背景色をセット
             If reader.HasRows Then e.Cell.BackColor = Color.Lavender
         End Using
         
     End Sub
 
     ' 選択セルが変更されたタイミングで実行
     Protected Sub cal_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
         Dim setting As ConnectionStringSettings = _
           ConfigurationManager.ConnectionStrings(MyDbConnectionString)
         Dim factory As DbProviderFactory = _
           DbProviderFactories.GetFactory(MyDbProviderName)
         
         Using db As DbConnection = factory.CreateConnection()
             db.ConnectionString = MyDbConnectionString
             
             ' 選択された日付をキーにscheduleテーブルを検索
             Dim comm As DbCommand = factory.CreateCommand()
             comm.CommandText = "SELECT * FROM [schedule02] WHERE [sdate]=@sdate ORDER BY [stime] ASC"
             comm.Connection = db
             
             Dim param As DbParameter = factory.CreateParameter()
             param.ParameterName = "@sdate"
             param.Value = cal.SelectedDate.ToString("yyyy/MM/dd")
             comm.Parameters.Add(param)
             
             db.Open()
             
             ' 取得したDataReaderをRepeaterコントロールにバインド
             scheInfo = comm.ExecuteReader()
             rep.DataBind()
         End Using
         
     End Sub
 </script>
 
 <html xmlns="http://www.w3.org/1999/xhtml">
 <head runat="server">
     <title>スケジュールの詳細を表示する</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
     <table border="0">
     <tr><td valign="top" width="230">
       <asp:Calendar id="cal" runat="Server" Width="200" Height="200"
        DayHeaderStyle-BackColor="#FFCC66"
         onDayRender="cal_DayRender" OnSelectionChanged="cal_SelectionChanged"
         ShowGridLines="true"
         BorderWidth="3" BorderColor="Black" Font-Name="Verdana"
         Font-Size="10px" TitleStyle-BackColor="#FFCC66"
         TitleStyle-Font-Size="12px" TitleStyle-Font-Bold="true"
         DayStyle-VerticalAlign="Top" SelectedDayStyle-BackColor="Navy"
         ShowNextPrev="True" NextPrevFormat="FullMonth">
         <SelectedDayStyle BackColor="#CC5533" />
       </asp:Calendar>
     </td><td valign="top" width="370">
      <asp:Repeater id="rep" runat="Server" DataSource="<%# scheInfo %>">
         <HeaderTemplate>
           <table width="100%" bgcolor="#cee3f0" border="0">
          <tr>
            <td><span style="font-weight:bold;">&nbsp;&nbsp;&nbsp;
               <%# cal.SelectedDate.ToString("yyyy年MM月dd日") %>のスケジュール
               </span></td>
          </tr>
          </table>
           <dl>
        </HeaderTemplate>
        <ItemTemplate>
           <dt style="font-weight:bold;">
             <%# DataBinder.Eval(Container.DataItem, "title") %>
            (<%#DataBinder.Eval(Container.DataItem, "stime")%>〜
             <%#DataBinder.Eval(Container.DataItem, "etime")%>)</dt>
           <dd><%# DataBinder.Eval(Container.DataItem, "memo") %></dd>
        </ItemTemplate>
         <FooterTemplate></dl></FooterTemplate>
       </asp:Repeater>
     </td></tr>
     </table>
     </div>
     </form>
 </body>
 </html>


*DBにMS-Access2003を使用した場合 [#h881b115]

【ポイント】
DB接続の為のConnectionString情報とProviderName情報の2つを変更するだけでDBを
SQL ServerからMS-Accessに変更できる。
 'MS-AccessDBのConnectionString
 Dim MyDbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\AccessDB.mdb;Persist Security Info=True"
 'MS-AccessDBのProviderName
 Dim MyDbProviderName As String = "System.Data.OleDb"


【稼働画面】
#ref(acCalDescDesign01.JPG);
#ref(acCalDescData01.JPG);
#ref(sqlCalDescDisp01.JPG);

【acCalDescription.aspx】
 <%@ Page ContentType="text/html" Language="VB" %>
 <%@ Import Namespace="System.Data" %>
 <%@ Import Namespace="System.Data.Common" %>
 <%@ Import Namespace="System.Drawing" %>
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <script runat="Server">
     'MS-AccessDBのConnectionString
     Dim MyDbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\AccessDB.mdb;Persist  Security Info=True"
     'MS-AccessDBのProviderName
     Dim MyDbProviderName As String = "System.Data.OleDb"
     
     Dim scheInfo As DbDataReader
     
     ' それぞれの日付セルをレンダリングするタイミングで実行
     Sub cal_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
         
         Dim setting As ConnectionStringSettings = _
           ConfigurationManager.ConnectionStrings(MyDbConnectionString)
         Dim factory As DbProviderFactory = _
           DbProviderFactories.GetFactory(MyDbProviderName)
         
         Using db As DbConnection = factory.CreateConnection()
             db.ConnectionString = MyDbConnectionString
             
             ' 出力する日付セルに対応するスケジュール情報を抽出
             Dim comm As DbCommand = factory.CreateCommand()
             comm.CommandText = "SELECT [ID] FROM [schedule02] WHERE [sdate]=@sdate"
             comm.Connection = db
             
             Dim param As DbParameter = factory.CreateParameter()
             param.ParameterName = "@sdate"
             param.Value = e.Day.Date.ToString("yyyy/MM/dd")
             comm.Parameters.Add(param)
             
             db.Open()
 
             Dim reader As DbDataReader = comm.ExecuteReader()
             ' スケジュールが存在する場合にのみセルの背景色をセット
             If reader.HasRows Then e.Cell.BackColor = Color.Lavender
         End Using
         
     End Sub
 
     ' 選択セルが変更されたタイミングで実行
     Protected Sub cal_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
         Dim setting As ConnectionStringSettings = _
           ConfigurationManager.ConnectionStrings(MyDbConnectionString)
         Dim factory As DbProviderFactory = _
           DbProviderFactories.GetFactory(MyDbProviderName)
         
         Using db As DbConnection = factory.CreateConnection()
             db.ConnectionString = MyDbConnectionString
             
             ' 選択された日付をキーにscheduleテーブルを検索
             Dim comm As DbCommand = factory.CreateCommand()
             comm.CommandText = "SELECT * FROM [schedule02] WHERE [sdate]=@sdate ORDER BY [stime] ASC"
             comm.Connection = db
             
             Dim param As DbParameter = factory.CreateParameter()
             param.ParameterName = "@sdate"
             param.Value = cal.SelectedDate.ToString("yyyy/MM/dd")
             comm.Parameters.Add(param)
             
             db.Open()
             
             ' 取得したDataReaderをRepeaterコントロールにバインド
             scheInfo = comm.ExecuteReader()
             rep.DataBind()
         End Using
         
     End Sub
 </script>
 
 <html xmlns="http://www.w3.org/1999/xhtml">
 <head runat="server">
     <title>スケジュールの詳細を表示する</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
     <table border="0">
     <tr><td valign="top" width="230">
       <asp:Calendar id="cal" runat="Server" Width="200" Height="200"
        DayHeaderStyle-BackColor="#FFCC66"
         onDayRender="cal_DayRender" OnSelectionChanged="cal_SelectionChanged"
         ShowGridLines="true"
         BorderWidth="3" BorderColor="Black" Font-Name="Verdana"
         Font-Size="10px" TitleStyle-BackColor="#FFCC66"
         TitleStyle-Font-Size="12px" TitleStyle-Font-Bold="true"
         DayStyle-VerticalAlign="Top" SelectedDayStyle-BackColor="Navy"
         ShowNextPrev="True" NextPrevFormat="FullMonth">
         <SelectedDayStyle BackColor="#CC5533" />
       </asp:Calendar>
     </td><td valign="top" width="370">
      <asp:Repeater id="rep" runat="Server" DataSource="<%# scheInfo %>">
         <HeaderTemplate>
           <table width="100%" bgcolor="#cee3f0" border="0">
          <tr>
            <td><span style="font-weight:bold;">&nbsp;&nbsp;&nbsp;
               <%# cal.SelectedDate.ToString("yyyy年MM月dd日") %>のスケジュール
               </span></td>
          </tr>
          </table>
           <dl>
        </HeaderTemplate>
        <ItemTemplate>
           <dt style="font-weight:bold;">
             <%# DataBinder.Eval(Container.DataItem, "title") %>
            (<%#DataBinder.Eval(Container.DataItem, "stime")%>〜
             <%#DataBinder.Eval(Container.DataItem, "etime")%>)</dt>
           <dd><%# DataBinder.Eval(Container.DataItem, "memo") %></dd>
        </ItemTemplate>
         <FooterTemplate></dl></FooterTemplate>
       </asp:Repeater>
     </td></tr>
     </table>
     </div>
     </form>
 </body>
 </html>


【参考にしたページ】
1.「Calendarコントロール上で選択された日付について処理を行うには?」05/08/12
http://www.atmarkit.co.jp/fdotnet/dotnettips/337aspcalendarsel/aspcalendarsel.html

2.「データソース・コントロールでいってみよう(前編)」 06/07/29
http://www.atmarkit.co.jp/fdotnet/vs2005db/vs2005db_06/vs2005db_06_03.html

3.「ASP.NET アクセスデータにアクセスする(コーディング)」 
http://3939deb.seesaa.net/article/107785168.html
-- 1' --  &new{2011-05-15 (日) 15:38:59};
- 1 -- [[1]] &new{2011-12-20 (火) 11:24:16};
- 1 -- [[1]] &new{2011-12-20 (火) 11:24:19};
- 1 -- [[-1']] &new{2011-12-20 (火) 11:24:20};
-- 1' -- [[1]] &new{2011-12-20 (火) 11:24:21};
- 1 -- [[1]] &new{2011-12-20 (火) 11:24:22};
- 1 -- [[1]] &new{2012-05-18 (金) 11:38:29};
- 1 -- [[1]] &new{2012-05-18 (金) 11:38:33};
- 1 -- [[-1']] &new{2012-05-18 (金) 11:38:34};
-- 1' -- [[1]] &new{2012-05-18 (金) 11:38:35};
- 1 -- [[1]] &new{2012-05-18 (金) 11:38:36};
- 1 -- [[1]] &new{2012-07-03 (火) 12:33:00};
- 1 -- [[1]] &new{2012-07-03 (火) 12:33:05};
- 1 -- [[-1']] &new{2012-07-03 (火) 12:33:06};
-- 1' -- [[1]] &new{2012-07-03 (火) 12:33:08};
- 1 -- [[1]] &new{2012-07-03 (火) 12:33:09};
- 1 -- [[1]] &new{2014-06-09 (月) 21:32:23};
- 1 -- [[1]] &new{2014-06-09 (月) 21:32:25};
- 1 -- [[-1']] &new{2014-06-09 (月) 21:32:26};
-- 1' -- [[1]] &new{2014-06-09 (月) 21:32:27};
- 1 -- [[1]] &new{2014-06-09 (月) 21:32:28};
- http://www.cybermondaydeals.in.net  http://www.michaelkorsoutlet-store.us.com  http://www.nhljerseyswholesale.us.com  http://www.uggoutletuk.in.net  http://www.borseguccioutlet.it  http://www.longchampoutlet.name  http://www.moncleroutletstore.us.com  http://www.rosherunshoessale.com  http://www.outletlululemon.us.com  http://www.cheapmlbjerseys.us.com  http://www.canadagoosejackets.in.net  http://www.michaelkorsoutletusa.net  http://www.snowboots.us.com  http://www.raybansunglass.com.au  http://www.beats-headphones.in.net  http://www.michaelkorsoutlet.org.uk  http://www.adidasoutletstore.us.com  http://www.oakleyoutlet.in.net  http://www.cheapoakleysunglassess.us.com  http://www.lebronjames.us.com  http://www.oakley.in.net  http://www.uggsonsale.in.net  http://www.swarovski-outlet.co.uk  http://www.truereligionjeansoutlet.com  http://www.coachoutletstore.com.co  http://www.toryburch.in.net  http://www.cheap-nfljersey.us.com  http://www.cheapnfljerseys.org  http://www.belstaff.us.com  http://www.swarovskicrystal.me.uk  http://www.michaelkorshandbag.co.uk  http://www.coachoutletcanada.com.co  http://michaelkors.outletstoreonline.us.com  http://www.airforce1.us.com  http://www.michaelkorsonlinesale.us.com  http://www.weddingdressesoutlet.co.uk  http://www.louisvuittonus.us.com  http://www.coachoutletonline.in.net  http://www.michaelkors-outlets.us.com  http://www.michaelkorsoutletcanada.in.net  http://www.swarovskicrystal.us.com  http://www.toryburchoutletonline.in.net  http://www.calvinklein.in.net  http://www.michaelkorsbags.uk  http://www.uggboot.com.co  http://www.monclerjacketsuk.co.uk  http://www.coachoutletstores.com.co  http://www.hermesoutletstore.us.com  http://www.poloralphlaurenoutlet.it  http://www.nobis.us.com  http://www.truereligionoutletstore.us.com  http://www.borselouisvuittonoutlet.it  http://www.air-jordanshoes.us.com  http://www.ghdhairstraightenerssale.co.uk  http://www.cheapugg-boots.in.net  http://www.soccerjerseys.us.com  http://www.michaelkorswallet.net  http://www.raybansunglasses-outlet.us.com  http://www.cheapuggsboots.in.net  http://www.raybansunglassesonline.in.net  http://www.hermesbelts.us  http://www.pradahandbagsoutlet.co.uk  http://www.linksoflondons.co.uk  http://www.uggoutletstore.in.net  http://www.canadagoosecanada.com  http://www.replicawatchesforsale.us.com  http://www.canada-gooseoutlet.us.com  http://www.oakleysunglassescanada.com  http://www.michaelkorsoutletclearance.us.com  http://www.tiffanyandco.in.net  http://www.asicsisrael.com  http://www.replicahandbag.us.com  http://www.kobeshoes.us  http://www.barbourjacketsuk.co.uk  http://www.woolrichoutletstore.us.com  http://www.christianlouboutinoutlet.me.uk  http://www.uggs-clearance.in.net  http://www.thomassabos.co.uk  http://www.coachhandbagsoutletonline.us.com  http://www.michaelkorshandbags.in.net  http://www.cheapuggsoutlet.in.net  http://www.pandorajewelryoutlet.us.com  http://www.uggsale.in.net  http://www.thenorthfacejacket.us.com  http://www.nikeairmaxshoess.co.uk  http://www.mbtshoesoutlet.us.com  http://www.nfljerseys-wholesale.us.com  http://www.chanelhandbagsoutlet.in.net  http://www.louisvuittonoutletstore.name  http://michaelkors.outletonlinestores.us.com  http://www.pandora.eu.com  http://www.karenmillendressesoutlets.co.uk  http://www.raybansunglass.us.com  http://www.hermesbirkin.org  http://www.michaelkorsoutletonlinestores.us.com  http://www.uggbootsonsale.in.net  http://www.oakleysunglassesdiscount.us.com  http://www.truereligionjeanscanada.com  http://www.michaelkorsfactoryoutletonline.com  http://www.michaelkorsfactoryoutlets.in.net  http://www.canadagooseoutlet.com.co  http://www.occhialioakleyoutlets.it  http://www.poloralphlauren.us.org  http://www.basketballshoes.us.com  http://www.toms.us.com  http://www.cheapjordanshoes.in.net  http://www.canadagoose-coats.us.com  http://www.louisvuittonoutlet.in.net  http://www.rolexwatches-uk.co.uk  http://www.michaelkorshandbagsale.us.com  http://www.nikeairhuarache.org.uk  http://www.lebronjamesshoes.in.net  http://www.tiffany-outlet.us.com  http://www.cheapfootballshirt.org.uk  http://www.louisvuittonhandbags.org.uk  http://www.toryburchshoesoutlet.com  http://www.wintercoats.us.com  http://www.oakleysunglasses-outlet.us.com  http://www.uggsoutlet.us.org  http://www.beatsbydrdre-headphones.us.com  http://www.jordanshoes.us.com  http://www.rayban-sunglassess.us.com  http://www.canadagoose.us.org  http://www.ralphlauren-outletonline.co.uk  http://www.nbajerseys.net  http://www.uggbootsclearance.in.net  http://www.montblanc-pens.com.co  http://michaelkors.outletonlinestores.us.com  http://www.chanelhandbags-outlet.us.com  http://www.parajumpers.in.net  http://www.discountmichaelkorshandbags.in.net  http://www.thenorthfaceoutletstores.org  http://www.michaelkorsfactoryoutlet.us.org  http://www.kobebryantshoes.in.net  http://www.michaelkorsclearance.in.net  http://www.chaneloutletstore.us.com  http://www.uggoutletstore.eu.com  http://www.cheapuggboots.net.co  http://www.michaelkorsoutletonline.in.net  http://www.rolexwatches.in.net  http://www.thenorthface.in.net  http://www.ralphlaurenoutletuk.org.uk  http://www.timberlandboots.name  http://www.wellensteyn.com.co  http://www.ray-bansunglasses.eu.com  http://www.oakleysunglasseswholesale.in.net  http://www.cheapmlbjerseys.net  http://www.uggboots-outlet.co.uk  http://www.cybermonday2015.us.com  http://www.truereligionjean.in.net  http://www.designerhandbags.us.com  http://www.wholesaleoakleysunglasses.us.com  http://www.uggoutlet.in.net  http://www.moncler.us.com  http://www.discountuggboots.in.net  http://www.cheapmichaelkorshandbag.in.net  http://www.oakleysunglasseswholesale.us.com  http://www.michaelkorshandbagsclearances.us.com  http://www.michaelkorsoutlets.org.uk  http://www.longchamphandbag.us.com  http://www.swarovski.in.net  http://www.coachoutletstoreonline.in.net  http://www.thenorthfaces.in.net  http://www.christianlouboutinonline.us.com  http://www.uggboots.org.uk  http://www.nbajerseyswholesale.us.com  http://www.blackfridaydeals.us.com  http://www.outletuggs.in.net  http://www.barbour.us.com  http://www.michaelkorswholesale.us.com  http://www.mulberryoutlet.com.co  http://www.michaelkorsfactory-outlet.us.com  http://mulberryoutlet.outlet-store.co.uk  http://www.louisvuittonhandbagsoutlet.co.uk  http://www.ralphlaurenoutlet.in.net  http://www.uggaustralia.in.net  http://www.jordan-shoes.us.com  http://www.michaelkorsoutletonlinstore.us.com  http://www.juicycoutureoutlet.net  http://www.michaelkorssale.in.net  http://www.coachoutletonline-store.us.com  http://www.thenorthfaceclearances.us.com  http://www.coachoutletus.us  http://www.uggbootscheap.in.net  http://www.lululemonoutletstore.in.net  http://www.raybansunglassesonline.us.com  http://www.ray-bansunglassess.in.net  http://www.occhiali-rayban.it  http://www.hermesbags.co.uk  http://www.nike-airhuarache.co.uk  http://www.fitflop.in.net  http://www.northface-outlet.cc  http://www.adidaswings.in.net  http://www.coach-outlet-store.us.com  http://www.pradashoes.us  http://www.michaelkorsusa.us  http://www.iphonecases.us.com  http://www.poloralphlaurenshirts.us.com  http://www.cheap-jordanshoes.us.com  http://www.lacostepoloshirts.cc  http://www.pradaoutlet.us  http://www.tomsoutlet-stores.com  http://www.winterjackets.us.com  http://www.truereligionjeansoutlets.us.com  http://www.cheapsoccerjersey.net  http://www.louisvuittonhandbag.us  http://www.oakleysunglasses-wholesale.us.com  http://www.airmax2015.in.net  http://www.tiffanyjewelleryoutlets.co.uk  http://www.mcm.in.net  http://www.blackfriday2015.in.net  http://www.louisvuitton.in.net  http://www.futbol-baratas.com  http://www.canada-goosejackets.us.com  http://www.michaelkorshandbagsoutletstore.us.com  http://www.scarpelouboutin.it  http://www.louisvuittonbag.us.com  http://www.thenorthfaces.org.uk  http://www.cheap-snapbacks.us.com  http://www.herveleger.us.com  -- [[20151116caihuali]] &new{2015-11-16 (月) 12:29:42};

#comment_nospam
- 1 -- [[1]] &new{2014-06-09 (月) 21:32:24};
- 1 -- [[1]] &new{2012-07-03 (火) 12:33:04};
- 1 -- [[1]] &new{2012-05-18 (金) 11:38:32};
- 1 -- [[1]] &new{2011-12-20 (火) 11:24:17};
#vote(参考になった[1],ふつう[1],参考にならなかった[0])

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS