<%@ LANGUAGE = "VBScript" %> <% option explicit Dim CSQLEng ' CaoSQLEngine Dim CSQLCtrl ' CaoSQLController Dim CtrlName,CtrlNames ' コントローラ名 , コントローラ名一覧 Dim Count ' 日付選択で使用するカウント Dim Sel ' リストの選択をする場合に使用 Dim i Set CSQLEng = CreateObject("CAOSQL.CaoSQLEngine") ' CaoSQLエンジン生成 CtrlNames = CSQLEng.ControllerNames ' Controller名の一覧を取得 %> CaoSQLを使用したサンプル

コントローラ名 : <% ' コントローラの数ループする for i = Lbound(CtrlNames) to Ubound(CtrlNames) ' 1つめの要素を選択するようにする if (i = 0) then Response.Write ""& CtrlNames(i) & ""&chr(13) else Response.Write ""& CtrlNames(i) & ""&chr(13) end if next %>

値表示：

抽出日： <% For Count = 2004 To 2010 If Year(Now()) = Count Then Sel = " Selected" Else Sel = "" End If Response.write(""&Count&""+CHR(13)) Next %> 年 <% For Count = 1 To 12 If Month(Now()) = Count Then Sel = " Selected" Else Sel = "" End If Response.write(""&Count&""+CHR(13)) Next %> 月 <% For Count = 1 To 31 If Day(Now()) = Count Then Sel = " Selected" Else Sel = "" End If Response.write(""&Count&""+CHR(13)) Next %> 日

<% Set CSQLEng = Nothing %>