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)