代码如下: function gfv(str) gfv = request.form(str) end function
sub executesql dim content:content = gfv("content") on error resume next conn.begintrans conn.execute(content) if err.number <> 0 then err.clear conn.rollback conn.close:set conn = nothing call alertbox("抱歉!sql语句输入错误!",2) else conn.committrans conn.close:set conn = nothing call alertbox("恭喜!sql语句执行完毕!",2) end if end sub