複製代碼代碼如下:
functiongfv(str)
gfv=request.form(str)
endfunction
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)
else
conn.committrans
conn.close:setconn=nothing
callalertbox("恭喜!sql語句執行完畢!",2)
endif
endsub