ASPソース

ASP(Active Server Pages) ソースコード公開

WEB DE スケジュール管理はすべてのソースコードが公開されています。

シンプルかつ機能的な設計で、ソースコードにはわかりやすいコメントが付されています。
追加コンポーネントなどはいっさい使用していないので、ソフトウェアの追加購入は必要ありません。
データベースに Access、SQL Server、MSDE、Oracle を使用できるようにコーディングがされています。
ソースはわかりやすいプロシージャで構成されていて汎用性が高められています。
Microsoft 推奨のコーディング規約でコーディングがされています。

ソースはカスタマイズしやすくコメントが随所に記されています。

<%

Option Explicit

Const HOMEURL = "http://localhost/" '--- ﾎｰﾑｱﾄﾞﾚｽ
Const APPNAME = "scd.asp"           '--- ﾒｲﾝｱﾌﾟﾘｹｰｼｮﾝ名
Const EMPAPPNAME = "employees.asp"  '--- ﾕｰｻﾞ編集ｱﾌﾟﾘｹｰｼｮﾝ名
Const GRPAPPNAME = "empgroup.asp"   '--- ｸﾞﾙｰﾌﾟ編集ｱﾌﾟﾘｹｰｼｮﾝ名

Const BKCL1 = "#EEEEEE"             '-- 編集ﾌｫｰﾑのﾊﾞｯｸｶﾗｰ
Const BKCLALL = "#FFFFFF"           '-- 全体ｽｹｼﾞｭｰﾙのﾊﾞｯｸｶﾗｰ
Const BKCLGRP = "#FFFFFF"           '-- ｸﾞﾙｰﾌﾟｽｹｼﾞｭｰﾙのﾊﾞｯｸｶﾗｰ
Const BKCLPS1 = "#FFFFFF"           '-- 個人ｽｹｼﾞｭｰﾙのﾊﾞｯｸｶﾗｰ１
Const BKCLPS2 = "#FFFFFF"           '-- 個人ｽｹｼﾞｭｰﾙのﾊﾞｯｸｶﾗｰ２
Const BKCLTT1 = "#000000"           '-- ｽｹｼﾞｭｰﾙﾀｲﾄﾙのﾊﾞｯｸｶﾗｰ
Const FTCLTT1 = "#FFAA00"           '-- ｽｹｼﾞｭｰﾙﾀｲﾄﾙのﾌｫﾝﾄｶﾗｰ
Const BKCLLFT = "#000000"           '-- ｶﾚﾝﾀﾞｰ（左）のﾊﾞｯｸｶﾗｰ
Const BKCLRGT = "#FFFFFF"           '-- ｽｹｼﾞｭｰﾙ（右）のﾊﾞｯｸｶﾗｰ
Const FTCL01 = "#FFAA00"            '-- ｶﾚﾝﾀﾞｰ（左）下のﾘﾝｸ文字
Const BKCCAL = "#AAAAAA"            '-- ｶﾚﾝﾀﾞｰのﾊﾞｯｸｶﾗｰ
Const BKCCALTD1 = "#EEEEEE"         '-- ｶﾚﾝﾀﾞｰの明るいｾﾙ
Const BKCCALTD2 = "#CCCCCC"         '-- ｶﾚﾝﾀﾞｰの暗いｾﾙ
Const BKCCALTD3 = "#ffcc33"         '-- 選択された日付
Const BKCCALTD4 = "#ccccee"         '-- 今日の日付

Const BKCBAR1 = "#ccccee"           '-- 種別と名称のﾊﾞｰ
Const BKCBAR2 = "#ffcc33"           '-- 日付表示のﾊﾞｰ

Const FMETHOD = "GET"    '--- ﾌｫｰﾑのmethodの値
Const DBMODE = 1      '--- ﾃﾞｰﾀﾍﾞｰｽ種別 1-Access 2-SQL Server 3-Oracle

汎用性を高めるために処理ごとにプロシージャにまとめられています。

'■■■■ C R E A T E   C A L E N D A R ■■■■

Private Sub CreateCalendar(dteParam)
'// 目的：　ｶﾚﾝﾀﾞｰをHTMLで出力します
'// 引数：　出力する年月を指定します

    '------ ｶﾚﾝﾀﾞｰ関係
    Const strBGC1 = "#000000"           '--- 日曜日以外のﾊﾞｯｸｶﾗｰ
    Const strBGC2 = "#DD0000"           '--- 日曜のﾊﾞｯｸｶﾗｰ
    Const strFC1 = "#FFCC66"             '--- 曜日の文字色
    Const strFS1 = "2"                     '--- 曜日の文字ｻｲｽﾞ

    intYear = Year(dteParam)       '--- 指定年を取得
    intMonth = Month(dteParam)     '--- 指定月を取得
    intDay = Day(dteParam)         '--- 指定日の取得

    If intYear = Year(Date) And intMonth = Month(Date) Then
        blnThisMonth = True  '-- 指定月が今月であることを示す
    Else
        blnThisMonth = False '-- 指定月が今月でないことを示す
    End If

　　.........

End Sub