<％
'*******************************
'機能：formatquerystr（str）
'引数：str、sqlステートメント
著者：アリクシ
'日付：2007/7/13
'説明：SQLの文字列のような形式
'例：<％= formatquerystr（str）％>
'*******************************
functionformatquerystr（str）
Dimnstr
nstr = str
nstr =置換（nstr、chr（0）、 ""）
nstr =置換（nstr、 "'"、 "' '"）
nstr =置換（nstr、 "["、 "[[]"）
nstr =置換（nstr、 "％"、 "[％]"）
formatquerystr = nstr
エンド機能
％>