推奨: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% '=============================================================================================================== =================================================================================================================== '説明:カレンダーファイル '=================================================================================== ===============================================================================