ASPソース

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

WEB DE 在庫管理・売上分析・受注管理はすべてのソースコードが公開されています。

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

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

<% Option Explicit %>


<%

Public Const HOMEINDEX = "index.htm" ' インデックスファイル名
Public Const APPNAME = "weborder.asp" ' アプリケーションファイル名
Public Const IMGASP = "img.asp" ' 画像表示アプリケーションファイル名
Public Const APPTITLE = "WEB DE 注文システム" 'アプリケーションタイトル
Public Const BODYCOLOR = "#CCFF99" '背景色

' 次の行の値を False に設定すると商品カテゴリの選択を省略します。
' 商品数が多い場合、True に設定しておくことが賢明です。
Const blnUseGroup = False ' 商品カテゴリ（グループ）使用フラグ

' 新規ユーザ利用可能フラグ
' 企業間取引の場合 False
' オンラインショッピングの場合 True
Const blnSelfReg = True

' 以下の値を False に設定すると新規登録の際に顧客コードを直接指定
' するようになります。 True の場合自動的にインクリメントされます。
Const blnCusCodeAutoNumber = True

.........

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

Private Sub ShowOrderList(strOrderID)
'// 購入履歴一覧表示ルーチン

    Dim lngRowNumber, i
    Dim curAmount, curTotal
    Dim curTax, curTotalTax
    Dim curTotalAmount

    ' セキュリティのため認証チェックを行う
    If Not IsValidSlipID Then
        Call WriteMessageEx("伝票IDと認証番号が一致しません。", "戻る")
    End If

    ' 受注伝票を取得する処理
    strSQL = "SELECT saldetails.rownumber, " & _
             "items.code AS ItemCode, items.name1 AS ItemName, " & _
             "items.unitprice, items.taxtype, " & _
             "saldetails.quantity, saldetails.totalprice, saldetails.tax " & _
             "FROM saldetails,items " & _
             "WHERE saldetails.slipid = " & strOrderID & " AND " & _
             "saldetails.itemcode = items.code " & _
             "ORDER BY saldetails.rownumber"
    Set rsTemp = cnMain.Execute(strSQL)

    ' ブラウザにキャッシュさせないための処理
    Response.Expires = -1
    Response.AddHeader "Pragma", "no-cache"
    Response.AddHeader "cache-control", "no-store"
    %>
    <html><head>
    <% Call WriteCommonHeader("カート確認") %>
    <SCRIPT LANGUAGE='JavaScript'>
    <% Call JavaRollOver2 %>
    </SCRIPT>
    </head><body>

............