コードコピーは次のとおりです。
functiongfv（str）
gfv = request.form（str）
エンド機能
subexecutesql
dimcontent：content = gfv（ "content"）
onerrorresumenext
conn.begintrans
conn.execute（content）
iferr.Number <> 0then
err.clear
conn.rollback
conn.close：setConn = Nothing
callalertbox（「ごめんなさい！sqlステートメントが誤って入力されます！」、2）
それ以外
conn.committrans
conn.close：setConn = Nothing
callalertbox（「おめでとうございます！SQLステートメントの実行が完了しました！」、2）
endif
Endingub