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