ASPの一般的に使用される機能、使用できることを願っています。
<％
DIM DB
db = dbms.mdb
'****************************************************************
'値を返すことなくSQLステートメントを実行します。最良のSQLステートメントは次のとおりです。
'テーブル名の更新セットフィールド名=値、フィールド名=値フィールド名=値
'フィールド名=値のテーブル名から削除します
'テーブル名に挿入（フィールド名、フィールド名）値（値、値）
'****************************************************************
sub noresult（sql）
dim conn
Dim Connstr
conn = server.createObject（adodb.connection）を設定します
connstr = provider = microsoft.jet.oledb.4.0; data source =＆server.mappath（＆db＆）
conn.open connstr
conn.execute sql
conn.close
conn =何も設定しません
End Sub
'*********************************************************************************
'Selectステートメントを実行し、RecordSetオブジェクトを返します。このオブジェクトは読み取り専用です。つまり、更新することはできません
'*********************************************************************************
関数結果（SQL）
dim conn
Dim Connstr
DIM RCS
conn = server.createObject（adodb.connection）を設定します
connstr = provider = microsoft.jet.oledb.4.0; data source =＆server.mappath（＆db＆）
conn.open connstr
rcs = server.createObject（adodb.Recordset）を設定します
rcs.open sql、conn、1,1
set result = rcs
エンド関数
'*********************************************************************************
'ダイアログボックスがポップアップします
'*********************************************************************************
サブアラート（メッセージ）
メッセージ=置き換え（メッセージ、 '、/'）
respons.write（<script> alert（ '＆message＆'）</script>）
End Sub
'*********************************************************************************
'前のページに戻ります。通常、情報が完全に送信されるかどうかを判断した後に使用されます
'*********************************************************************************
sub goback（）
respons.write（<script> history.go（-1）</script>）
End Sub
'*********************************************************************************
'別の接続をリダイレクトします
'*********************************************************************************
サブゴー（URL）
respons.write（<scrip> location.href（ '＆url＆'）</script>）
End Sub
'*********************************************************************************
'HTMLタグを交換します
'*********************************************************************************
関数htmlencode2（str）
薄暗い結果
薄暗いl
isnull（str）の場合
htmlencode2 =
出口機能
ifを終了します
l = len（str）
結果=
薄暗いi
i = 1からlの場合
ケースミッドを選択します（str、i、1）
ケース<
結果= result+<
ケース>
結果= result+>
ケースCHR（13）