<%
'*******************************
'機能: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
エンド機能
%>