ASPソース

標準的なブラウザで利用可能

可能な限り標準的な HTML、JavaScript を使用して様々なブラウザに対応するように設計。

		Internet Explorer 4.0 以上 Netscape Navigator 4.0 以上
（レイアウトは Internet Explorer に最も適応するように設計されています）

様々なデータベースに対応できるように設計

必要に応じて様々なデータベースを利用できるようになっています。
（WEB DE 予約管理にはすぐに利用できるMDBファイルが添付されています）

対応データベース：

MDB
MSDE
SQL Server
Oracle

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

WEB DE 予約管理はすべてのソースコードが公開されています。

シンプルかつ機能的な設計で、ソースコードにはわかりやすいコメントが付されています。
データベースの切り替えができます。 ( MDB、SQL Server、MSDE、Oracle 対応)
ソースはわかりやすいプロシージャで構成されていて汎用性が高められています。
Microsoft 推奨のコーディング規約でコーディングがされています。

再利用性の高いコーディング

汎用性を高めるために処理ごとにプロシージャにまとめられています。
ソースはカスタマイズしやすくコメントが随所に記されています。

common.asp

Dim cnMain

Private Sub OpenDB()
'//    データベースへの接続を行う

    Set cnMain = Server.CreateObject("ADODB.Connection")
    cnMain.Open "File Name=" & GetAppPath & "default.udl;"

End Sub

Private Function FormatDateEx(dteParam)
' 日付の形式を yyyy/MM/dd に整形する
' 引数：dteParam 整形する日付
' 戻り値: 整形した日付

    Dim intYear, intMonth, intDay
    Dim strYYYY, strMM, strDD

    If IsNull(dteParam) Then
        FormatDateEx = ""
        Exit Function
    ElseIf Not IsDate(dteParam) Then
        FormatDateEx = ""
        Exit Function
    End If

    ..........

End Function

general.asp

<%
        SYSTEMID = "RSVHOTEL"        ' システムID
        PASSWORDARRAY = "demo"       ' ログイン用パスワード
        ADMINPASSWORD = "admin"      ' 管理者パスワード
        strAppTitle = "ホテル予約管理システム" ' アプリケーションのメインタイトル
        strRoomTitle = "部屋"        ' 予約対象の物件名称
        HOMEINDEX = "index.asp"      ' ログオフ後のホームページアドレス

        blnUseSecurity = False       ' ログイン要・不要フラグ
        blnWriteLog = False          ' ログイン情報をlogin.logに書き込む

        ' メール送信機能用設定
        blnUseMail = False                     ' メール送信機能を利用するかどうかを指定
        intComponent = 0                       ' 0-WEBDE 1-Blat 2-Basp21
        strSMTPServer = "smtp.****.com"        ' メール送信に使用するSMTPサーバを指定
        strMailFrom = "****@****.com"          ' 送信元メールアドレス
        strAdminEMail = "****@****.com"        ' 送信先メールアドレス

        TBINNER = "#999999"        ' テーブル枠
        TDBGROWSEL = "#CCCCCC"     ' 左行背景色
        TDFCROWSEL = "#000000"     ' 左行前景色

    ..........