复制代码 代码如下:
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