复制代码 代码如下:

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