推奨：ASPテンプレートコードクラステンプレートプライベートM_FILENAME、M_ROOT、M_UNKNOWNS、M_LASTERROR、M_HALTONERR PRIVATE M_VALUELIST、M_BLOCKLIST PRIVATE M_REGEXP PRIVATE SUB CLASS_INITIALIZE SET M_VALUELIST = CreateObject（Scripting.Dictionary）Set M_BlockList = CreateObject（Create（Script）Set
ASPデータベースプログラムを作成するときは、通常SQLステートメントを使用し、データを追加および更新するときは、通常、次の方法を使用します。メッセージ（incepter、title、content、sendtime、flag、inisend＆ '）値（'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '＆'＆ '、now（エラーを見つけます。このSQLクラスを使用した後、単純化でき、エラーを確認する方が簡単です。クラスのAddfield関数を通じてフィールド名とフィールド値を追加すると、フィールド名とフィールド値をSQLステートメントに簡単に挿入してから、SQLステートメントを返すことができます。
このクラスのコードを見てみましょう。
＜％
クラスSQLString
'***********************************
'可変定義
'***********************************
'StableName ---テーブル名
'ISQLTYPE --- SQLステートメントタイプ：0-ADD、1-UPDATE、2-DELETE、3-QUERY
'swhere ---条件
'ソーダー--- sort
'ssql ----値
Private StableName、ISQLTYPE、SWHERE、SORDER、SSQL
'***********************************
'クラスの初期化/終了
'***********************************
private sub class_initialize（）
stablename =
ISQLTYPE = 0
swhere =
ソーダー=
ssql =
End Sub
private sub class_terminate（）
End Sub
'***********************************
'財産
'***********************************
'テーブル名のプロパティを設定します
公共財産let tablename（value）
stablename = value
プロパティを終了します
'条件を設定します
公有財産let hwere（value）
swhere = value
プロパティを終了します
'ソートメソッドを設定します
公共財産let order（value）
ソーダー=値
プロパティを終了します
'クエリステートメントのタイプを設定します
公共財産let sqltype（value）
ISQLTYPE =値
ケースISQLTYPEを選択します
ケース0
ssql =＃0（＃1）値に挿入（＃2）
ケース1
SSQL =更新＃0セット＃1 =＃2
ケース2
ssql =＃0から削除
ケース3
ssql =＃0から＃1を選択します
[選択]を終了します
プロパティを終了します
'***********************************
'関数
'***********************************
'フィールドを追加（フィールド名、フィールド値）
パブリックサブアドフィールド（sfieldname、svalue）
ケースISQLTYPEを選択します
ケース0
ssql =置換（SSQL、＃1、sfieldName＆、＃1）
ssql =置換（SSQL、＃2、 '＆sfieldName＆'、＃2）
ケース1
ssql =置換（SSQL、＃1、sfieldName）
ssql =置換（SSQL、＃2、 '＆sfieldName＆'、＃1 =＃2）
ケース3
ssql =置換（SSQL、＃1、sfieldName＆、＃1）
[選択]を終了します
End Sub
'SQLステートメントを返します
public function returnSql（）
ssql = cheplage（ssql、＃0、stablename）
ケースISQLTYPEを選択します
ケース0
ssql =置換（ssql、＃1、）
ssql =置換（ssql、＃2、）
ケース1
SSQL =置換（SSQL 、、＃1 =＃2、）
ケース3
ssql =置換（ssql、＃1、）
[選択]を終了します
swhereの場合は
SSQL = SSQL＆WHERE＆SWHERE
ifを終了します
ソーダーの場合＜＞
ssql = ssql＆order by＆sorder
ifを終了します
returnSQL = SSQL
エンド関数
'明確な声明
public sub clear（）
stablename =
ISQLTYPE = 0
swhere =
ソーダー=
ssql =
End Sub
エンドクラス
％＞
使い方：
例：メッセージ（Incept、sender、title、content、sendtime、flag、insend）値（ '＆incept（i）＆'、 '＆membername＆'、 '＆'、 '＆message＆'、now（）、0,1）の挿入
a = new sqlstring 'クラスオブジェクトを作成します
A.TableName =メッセージ 'テーブル名をメッセージとして設定します
a.sqltype = 0 'クエリタイプを設定してレコードを追加します
A.Addfield Incept、Incept（i）
A.Addfield Sender、MemberName
A.Addfieldタイトル、メンバー名
A.Addfield送信者、タイトル
A.Addfieldコンテンツ、メッセージ
A.Addfield Sendtime、sendtime（）
A.Addfield Flag、0
A.Addfield Inssend、1
Response.Write A.ReturnSql
a =何も設定しません
共有：ASPが作成したカレンダープログラム純粋なASPが作成したカレンダープログラムは、それ自体で美化することができ、ここで最もシンプルなCSSスタイルのみが利用できます。 。 。スタイルボディ{font-size：12px;マージン：20px 0 0 20px;パディング：0} tr、td {text-align：center;} /style％ '=============================================================================================================== =================================================================================================================== '説明：カレンダーファイル '=================================================================================== ===============================================================================